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SHARP 辦 w 


t / らかれたみぇ i を 


〇 


PRO II 



三 ^^^^^^^% P 


SUPER HD 


ザ.ワークステーション。 80 M バイト （ SCSI 化化い、ードディスク、 SCSI インプーフェイスを巧ホ裝備。 

SUPER HD 

本体 +キー ボード+マウス•トラックボール 
CZ -623 C - TN (チタンブラック）巧;’が仙けみ498,00〇円（说別） 

アートの系譜。 

EXPERT II 

本が+ キーボード +マウス•トラック ボール 

CZ -603 C - BK (ブラック） .- GYf グレ-)巧準伽巧338,0001り（税圳） / HD タイプ CZ - 613 C - BK (ブラック）がが伽か 448.()00 円（说別） 

ニェースプングード。 

PRO II 

本か+キーボード+マウス 

CZ - 郎 3 C - BK (ブラック） .- GY 《グレー）巧啊冊か285.000 PJ (悦圳） 

HD タイプ CZ - r )63 C - BK (ブラック） .- GY (グレー）概；お伽化395,000円（税別） 

























なけの ユーザー イン ダー フジ f スをを徵する、 \ SX - WINDOW > グ搭載。 


今回の X 68000 ニューンリーズのデビューじ閱して、ハードウェアん义上じウィンドウ巧境の提供に耳目か集中したことは、巧今のビジ 
ュアゾレューザーインクーフェイス事•階をふまえれ(よ、当巧のことと言えるて•しょう。マルチウインドウを駆使して X 68000 をコントロ_ルす 
る、待ち望まれていた巧おがこの SX - WINDOW によって実現されるのです。巧の予備知識もないここのウインドウに接したすは、一 



見してがホのビジュアルシェルのバージョンアップと思われるかもしれませんが、本質巧には全く異貨のものと言えます。ひとつのウ 

ィンドウである仕事をクせながら、別のウィンドウで違う仕事にとりかかる。ひとことで 
言えばアプリケーシヨンを実けクせる環境としてのウィンドウて•あるということ。これま 


でのビジュアルシェルではで多なかったシーンを生み出していま 


す。複数のアブリケーンヨンを同じ操イ乍のもとで走らせたり、アブ 


リケーション相互でデークのやりとりか可能になるわけです。そし 


て、次代のインテリジュンスを鮮やかにを徵する4階調のハイセ 


ンスな風面巧理—— oSX - WINDOW をクーゲットとしたアブ 


リケーション開発もすでに推進されており、これからの展望という点からも大いに期 


巧れるところです。また、この SX - WINDOW はディスクによって供給クれ 、 BIOS 


の高遠化（キ巧2倍）も含めて OS である Human 68 k の機能をお張。ニューシリーズ 


のみならず、すべての X 68000 でこのがしい環境が亨受で M す。 


* SX - WINDOW のおか口んメインメモリ 2 MB が'直、安です。 CZ -600 C /6 mc /611 C /652 C /653 C /662 C '663 C て - SX - WINDOW をご使用の巧には、あらかじめ削巧の 1 MB 增巧 RAM ポードが•巧してください。 


CZ ^N E W 一 !> 

US 8000 


TATION 


PERSONAL WORKS 

SUPER. EXPERT. PRO 


-充実のディスプレイラインアップ- 

巧型カラーディスプレイテレビくドットピッチ0.汾怖）〇2-朗20-61<(ブラック）.-0丫（グレ~^) . 保 ホ価巧99.800円（チルトスタンド同姻•悦別） 

巧型カラーディスプレイテレビ（ドットピッチ 0.39™>) CZ -605 D - 日 K (ブラック） 一 GY (グレー） . 巧 ホ価なり5.000円（スピーカ ー2 個/チルトスタンド同巧.税別） 

15型巧ーディスブレイテ U ピ(ドットピッチ 0.31 n «0 CZ -613 D - TN けタンブラック) .- BK (ブ子:/ク) .- GY (グ H …… 巧 ホ価な135.000円（スピーカ ー2 個/チルトスタンド同が•税別） 

M 型がーディスプレイ(ドソトピッチ 0.31mm》 CZ - 说犯 -BK (ブラック） 一 GY (グレー） . 揉# 価な84.800円 （チル ロタンド 同 巧.税別） 

14 型巧ーディスプレイ(ドットピッチ 0.31""〇 CZ -60 の- BK (ブラッペ .-GY (グレー） . が#価 巧94.800円（スピーカ ー2 化/チルトス タンド同 袖 •税別） 

21型カラーディスプレイ(ドットピッチ O . SZnvn ) CU -21 HD - BK (ブラック） . 株単価な148.0朋円（スピーカ ー2 個同巧•悦別） 

み 印の 巧 おは在 度化かです， 


シャーフ X 郎〇邮 
パソコン教室開催中 


♦会巧：巿ヶをおまジャーブ巧を支社ビル•コース:入門コ 
—ス•表おがコース•を楽コース•抬画コース • 申込をせ巧お 
を号：の 3) 260-8365 •巧满料: 2 . 朋〇円（税別） 


EXF リーグープパツブ I • いま、 EXE 会貝よりご紹介のおをがが EXE ショッブで X 68000 シリーズを M 入されますと、 

- .， .1 ，作一 - EXE 会貝に EXE りーダーズグッズをプレゼントします。なし<は EXE ショップにわ問い合わせ 

フレゼント実施中 ください。•また、 X 68000 シリーズをご稱入のわ客巧は、ぜひ EXE クラブじご入をください。 


•がか、合わ甘は…シャープ ㈱ 巧子機器事典本部システム機器営藥部〒5化大版市阿倍巧区み池町22番22号な (06)62 W 22 U 大代る）■ツ で， — •- む パ 
巧子機お♦巧本部ぶ晶かかシステム♦業部ま2巧品企面部〒162東京が巧宿区巿を八巧巧8番地な (03)260- り61(大代巧） 
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UNIX は AT&T BELL し ABORATORIES の OS をです。 

Mach は力ーネギーメロン大半の OS 名です。 

CP/M. P-CPM. CP/Mplus, CP/M-86. CP/M-68K. CP/M- 
8000. DR-D0S は DIGITAL RESEARCH 
OS/ 引お BM 

MS-DOS. MS-OS/2. XENIX. MACRO80. MS C は M に RO 
SOFT 

MSX-DOS はアスキー 

OS-9, OS-9/6 叫 00, OS- 如 00. MW C は M に ROWA 祀 

UCSD p-system はカリフォルニア大半巧事を 

WordStar. WordMas 似は WORDSTAR International 

TURBO PASCAL TURBO C. SIDEKICK は BOLAND INTER 

NATIONAL 

LSI C はし幻 JAPAN 

HuBAS にはハドソンソフト 

のな«です。その他，ブログラムを， CPU は一巧に各 
メーカーの登巧®«です。本文中では" TM". "R" マー 
クは明おしていません， 

本巧に巧»されたブログラムの著作«はプログラ厶 
がぶをに保留されています。著が推上. PDS と明化さ 
れたものなか，個人で巧用するほかのな巧な«は巧 
じられています。 
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才ーエーブレイン . 182 

才ーエーランド . 187 

計測技研 .180-181 

ザインソフト . 9 

J&P . ま3 

システムサコ厶 . II 

シャープ . 表2•表 4. I .4-8 

ソフトクリエイト . 189 

ソフマップ . 184-185 

九十九電機 . 15 

テイーアンドイーソフト .12-13 

DISK シャトル 商觀 . 186 

デンキヤ . 183 

パソコンプラザオクト . 16，17 

ビクターを 楽産業 . 14 

P&A .18*19 

満開製作所 . 191 (下） 

ロゴスシステム . 10 























































SHARP クリエイテイブマインドあふれる周巧機器が 



テイスプレイ関連 


プリンタ 


カラ-デイヴレイテレビ カラーディスプレイ 


画イま乂力 


カラー プリンタ 


ドットプリンタ 


ハードテ'イスク 



15型カラーディスプレイテレビ 

CZ -602 D-BK 

★ CZ -602 D-GY 

巧ホ価な99,800円（お別） 
(チルトスタンド同捆） 



巧型カラーディスプレイテレビ 

CZ -605 D - BK-GY 

巧ホ価格115,000円（税別） 


m 

が…ド 

14型カラーディスプレイ 

CZ -603 D - BK.-GY 

«ホ価な84,800円（税別） 
(チルトスタンド同捆） 


麵 


14型カラーディスプレイ 

CZ -604 D - BK--GY 
なホ価な94,800円（お別） 

(スピ—カイイ目•チルトスタン禍側 


[ 



(スヒ •— 力-2個•チルトスタン桐撕 


21型カラーディスプレイ 

CU -21 HD 


巧型カラーディスプレイテレビ 樣单価裕148,000円(悦別） 

CZ -613 D - TN *- BK*-GY (スピ-力 —2 個同视） 


巧单価な135,000円（税別） 

(が-カイがチルトスタン桐撇 チューナー 


CRT フイ J レター 



ちな能 CRT フィルタ— 

BF -68 PRO 

權巧価な19,800円（お別） 
( I 4./ I 5 型用） 



RGB システムチューナ ー 

CZ -6 TU - BK.-GY 

巧#饰な33,100円（悦別） 

(リモコンイ寸） 



カラーイメージスキャナ ♦ ， 

CZ -8 NS 1 

巧#価宿188,000円(お别） 



スキャナ用パラレルボード 

CZ -6 BN 1 

巧单価な29,800円（税別） 


峽像入力 



カラーイメージユニット * 2 

CZ -6 VT 1 -BK 

CZ -6 VT 1 

なホ価な69,800円（税別） 


映像出力 



ビデオボード 

CZ -6 BV 1 

巧ホ価な21,000円（が別） 

«化巧 I/O ポートを2スロット巧用します。 



おお写カラー漢字プリンタ 

★ CZ -8 PC 3 

»ホ他な65,800円（悦別） 
(借号ケーブル同個） 



24ピン 

カラー;男字プリンタ (80 巧） 

CZ -8 PG 1 

«ホ価裕130,000円（找別） 
(信号ケーブル同姻） 



がお写カラー巧字プリンタ 2化•ン 

CZ -8 PC 4 カラー度字ブリンブり36が） 


CZ -8 PC 4 -GY 
保ホ価巧99,800円（稅別） 
(信号ケーブル同栖） 


CZ -8 PG 2 

操ホ価な160,000円（お別） 
(借号ケーブル同お） 



カラービデオプリンタ 


カラービデオプリンタ 

CZ -6 PV 1 


24ピン;巧字プリンタり36巧) 

CZ -8 PK 10 

ホホ価な97,800円（悅別） 
(信号ケーカレ同お） 


«ホ価な198,000円(悦別） 
(馆号ケーブル同巧） 


カラーイメージジェット 



カラーイメージジェット *3 

IO -735 X 

がホ価な248,000円（お另||) 
(情号ケーブル別売） 



ハ—ドみスクユこ.ソト (20 MB ) 

CZ -620 H 

«单価巧178,000円(税削） 



巧設用ハードディスク 
ドライブ （40 MB ) 

( GZ -602 C / 说 3 C /652 C 
的 3 C 内度用） 

CZ -64 H 

»ホ価な120,000円（お別） 
(巧れ*別） 

朵巧がじ M してはシャーブ 
わぞ梯ご巧巧な口にてご 
巧はください。 


*1 ご巧巧に巧しては.カラーイメージスキャナ CZANSl じ同巧の RS-232C ヶーブルで巧巧するか.より;«巧のバラレルデータ伝ちを巧う4含.別巧のスキャナ用バラレルポード CZA 日N1ホホ価裕29.800円（が別）でが巧してください。 
m 2 CZ*603D/604D、OU ぶ HD をごな!用の合は、 RQB システムチューナ ーCZ"6TU (別巧）が必，巧です n 
*3 圳巧のなちケーブル IO-73CX 樣ホ価な5.500円{お別）で巧巧して下さい。 


シリーズ巧 


周巧機器 

標準価格は税別でず。 


1 カラーディスプレイ 

• 21 型カラーディスプレイ *1 

CU -21 HD 

148.000円 


1 映像•画像入力編集装置 1 

• カラーイメージスキャナ 

CZ -8 NS 1 

188.0日日円 

•カラーイメージポード H 

CZ -8 BV 2 

39.800円 


•立が映像セット 

が Z -8 BR 1 

29.孤日円 

•パー ソナルテロツバ* 2 

CZ -8 DT 2 

44.孤0円 


FM 音源 1 

• ステレオタイプ FM 音源ボード 

CZ -8 BS 1 

23.如日円 

スピーカー (2 本け且)巧#装備、 ミュージックツー ル同裡 

1 プリンタ 1 

• 24 ピンカラー巧字プリパ(孤侃 

CZ -8 PG 1 

130.000円 

• 24 ピンカラー漢字プリバ (136 巧） 

CZ -8 PG 2 

1朗.000円 


• 24ピン漢字ブ J ンタり36巧） 

CZ -8 PK 10 97.800円 

• 24 ドットおを写カラー漢字プ J パ 

★ CZ -8 PC 3 

的. 800円 

• 48 ドットなち写カラ-巧字プ J パ 

CZ -8 PC 4 

99.如0円 

• 48 ドットおも写カラー巧字プリンタ 

CZ -8 PC 4 -GY 99.800円 

•カラービデオプリンタ 

CZ -6 PV 1 

198.000円 

• カラーイメージジェット 

IO -735 X 

248.000円 


1 ファイル 

• ミニフロッピ-ディスクユニット胤 D •の)*3 ★ CZ -520 F 

118.000円 


がゎ-ス)祝巧さ《 •も'問い合わせは…シャープ ㈱ 電子おおホち本部システム機器営業部〒545大お巿阿倍野区長池町22を22号任 (06)621-1221( 大 f 



























































XG8000 をサポート0 



シャープペリフエラルファ三 J 一 

怒已8000 


—— ボード 7 

h ~ 1 

ネットワーク 


その他 


化巧メモリ 



1 MB 増ミを RAM ボード 
(CZ*600C 專用） 

CZ-6BE1 

巧ホ化裕351000円（悦別） 



1 MBit 設 RAM ボード 
(CZ-601 0/6110/6520^ 
653C/662C/663C 用） 
CZ-6BE1B 

活ホ化な28,000円（税別） 



2 M 巳增お RAM ボード*4 

CZ-6BE2 

ホ#砸な791800円（お別） 



インターフェイス 



ユニバーサル I/O ポード 

CZ-6BU1 

保#価な39,800円（悦別） 



GP- 旧ボード 

CZ-6BG1 

冷準価な59,800円（悅別） 



增設用 RS-232C ポード 

(2 チヤンネル） 

CZ-6BF1 

«ホ価な49,800円（换別） 


数値演巧プロセッサ 



教化•演巧フ□セツサポート‘ 

CZ-6BP1 

係ホ価格791800円（お則） 


FAX 



FAX ボート 

CZ-6BC1 

保ホ価お79,800円（お別） 


MIDI 



MIDI ボード 

CZ-6BM1 

♦累ホ価佑26,800円け A 別） 


4 MB 場巧 RAM ボード* 4 

CZ-6BE4 

樣ホ化巧138,000円（税別） 


モデム 



モデムュニット* 5 

CZ-8TM2 

価な49,800円（税別） 
(RS-232C ヶーブル同裡） 

RS -232 C ヶーカレ 

〇 

RS-232C ヶーカレ 
(平行巧統型） 

CZ-8LM1 

，*ホ価な7,200円（悦別） 



RS-232C ヶーカレ 
(クロスを桥型） 

CZ-8LM2 

«巧価な7,200円（お別》 


LAN ボード 



CZ-6BL1 

巧単価な268,000円(税別） 
(イーサネット用） 

CZ-6BL2 

巧单価な298,000円け堯別） 

(イーサネット/チーパネット両用） 
*電;»ユニット•ソフトウェア 
(ネットワークドライバ Verio ) 同祖 



インテリジェントコントローラ 

CZ-8NJ2 

保ホ価佑231800円（お別） 



マウス•トラックポール 

CZ-8NM3 

请#価巧9,800円(扶另リ） 



トラックポール 

CZ-8NT1 

な#価巧13,800円（悦別） 

マウス 

CZ-8NM2A 

ホ価格6,800円（悦別） 




ジョイカード 

CZ-8NJ1 

W ホ価な1,700円（お別） 


化張スロット 



化巧 I/O ボックス (4 スロット） 
(CZ-600C/ 朗1〇が〇化 /603C 
611C/612C/613C^623Cffl) 

CZ-6E 巨 1 - 己 K 
CZ-6EB1 

な车価な88,000円（快別） 


スビーカー 



アンブ巧な 

スビーカーシステ厶に本け且） 

AN-S100 

伸巧価な36,600巧（悦別） 


システムラック 



システ厶ラック 

(CZ-600C/601C/602C/603C/ 
611C/612C/613C/623C 巧） 

CZ-6SD1 

裸ホ価任44,800円(棋別） 


*4 ご巧用におしては、わらかじめ則巧の日增巧 RAM ポード GZABEl 樣ホ価巧35.00日円（悦别 .GZ よ 00C 用）、 CZ*6 日巳1日価な 28.0 孤円(税別 •CZAOlC'GZ^e り G、652C、653G、 施 2G、663C 用）を增!をしてください。 
楽5モデムユニット CZ"8TM2 じ同巧のソフトは XVX1 夕ーポシリーブ用です。 


• ミニフロッピーディスクユニット (2 D ) ★ CZ -502 F 

99.如0円 

• ミコ□•化‘—ディがユニット御‘1ドライカ 

CZ -503 F 

49.孤0円 

• 巧設巧ミこフロッピ-ディスクドライブ触)* 4 

CZ -53 F-BK 19.孤0円 


1 祐張ボード•その他 1 

•モテ厶ユニット（300/じ00ポー） 

CZ -8 TM 2 

49.800円 

♦ 320 KB 外部メモリ 

CZ -8 BE 2 

29.800円 

• RS -232 C •マウスボードが 

CZ -8 BM 2 

19.800円 

• フロッピーデイスクイパーフェイス *6 

CZ -8 BF 1 

14.800円 


• JIS 第 l 水お漢字 ROM *7 

CZ -8 BK 2 

19.800円 

• R お3化用ヶーブル(平行接統型） 

CZ -8 LM 1 

7.200円 

• RS *232 C 用ヶーブル(クロスをお型） 

CZ -8 LM 2 

7.200円 

•化張 I / O ボックス 

CZ -8 EB 3 

33.800円 

♦ RF コン ノ、•一夕* 8 

AN -58 C 

2.980円 

• インテリジェントコントローラ 

CZ -8 NJ 2 

23.孤0円 

•マウス•トラックボール 

CZ 4 NM 3 

9,卵0円 

•マクス 

CZ -8 NM 2 A 

6. 80日円 

• トラックボール 

CZ -8 NT 1 

13.800円 


•ジョイカード 

CZ -8 NJ 1 

1.700円 

•チルトスタンド 

CZ -6 ST 1- E-B 

己.800円 

•巧性能 CRT フィルターが 

BF -68 PRO 19.800円 

• スキャナ用バラいレポード *10 

CZ -8 BN 1 

27.800円 


•品番中の-巧示は、 B< ブラック >.E けフィスグレー> を示します。 
策1XI夕ーボ Z シリーズ用 *2 02ぶ620じは倭続できません。采 
3 XI夕ーボシリーズ用ホ4 CZ*830C 用が5 XIシリーズ用 *6 
CZ450C で CZ-520F を巧用する巧合に也、ま* 7 CZ- 8000.801 
C、802C、803C、811CJ、820C 用* 8 CZ"820G、822G、830C 用* 
914/15型用が10 CZ^SNSI 用•街质等の脱明じつきましては、 
周ぶお器紛合カタログをごを照くピさし、。 

★巧の商品は在庫僅少です。 


機器事乘本部;巧晶げかシステム♦巧部第2巧お企画部〒162ま京が巧宿区巿を八巧町8ホ地〇の 3)260-1161 (大代表） 
















































SHARP 


"アート"と巧べる高水華のソフトウェアが 


( 次代のインテリジュンス、 

V ウィンドウ環境をあなたの X 68000 で、。 


ユーザー本位の操作環境を提供するフル画面マルチ 
ウィンドウタイプの美しいデスクトップ(テキスト面/単を 
4階調+カラー4を、グラフィック面/カラー65 . 536色中 
16を）、イベント•ドリブン型マルチタスク処理じより複数 
の作業を同時に処 i 里できる疑似マルチタスクや入出力 
装置の設定が簡単に斤える多機能コントロールパネル 
を搭載した本格ウィンドウシステムです。従来のビジュア 
ルシェルとは異なり、今後のアプリケーンヨンソフトが統 
一された操作環境で実斤できるようじなります。 



SX-WINDOWverW 


CZ -259 SS 1日万を達成ご愛:用戚謝価格6.800円（税別) 



/ 高速通信をサポート。これ力んの、\ 
( をしてさまざまな通信環境にが応する ) 
V 高機能コミュニケーションソフト。ノ 


/ ソースコードテシぐ、ソガをはじめ、 

( み穩關維ツールを強化。 

\ ノぐージョンアップされた(デコンパイラ。 


Communication PRO~68K のバージョンアップ版です。300 BPS 
から 19.2 日 0BPS までの通信速度じが応し、パソコン同±の接続 
や各種データべースの漢字端末に、またホストコンピュータとの 
データ通信じ利用できます。さらに MNP モデムへの巧応で、ハ 
—ド フロー 制御 (CTS/RTS) をサポート。その他、 ち 速逆ス クロー 
ル機能、 才ー トログイン/才 一f' バイ □ットが可能な自動実斤機能、 
コンカレント機能も装備。巧入力機能やスクリーンエディタなど 
豊富な編集機能も魅力です。 

また、バイナリファイルを転送 
するプロにルとしてX modem 
り 28/SUM、128/CRCJK)、 

YmodemCG . BATCH . G-BA 
TCH)、Translt2 (TEXT'S I 
NARY) プロトコルもサポート 
しています。 CZ -257 CS 

樣ホ価な 

19.800円（税別） 




C の ソース レベルでデバッグできる ソースコー ドデバッガを搭載 
したほか、名■種開発ツールを強化した総合開発ツールです。ま 
た、ライブラリは Human68k ver2.0 の化張 DOS コール もサポー 


卜しているなと’、より X68 日00のハードウェアをまかせる豊をなライ 
ブラリ（約800種）となってし、ます。強力な MAK 巨も新たに追加。 


C 言語の標をである ANSI 規格準嫂をさらに強化し、プロトタイプ 
宣言も デフ オルトに変更されました。「 BAS に -C コンバー タ」、「ア 
センブラ J 、 「リンカ」、「デバッ 
ガ」、「ソースコードテ‘バツガ」、 

「アー カイ バ」 、「ライブラ リア 
ン J 、 「コンバータ J などのツー 
ルが装備されてし、ます。 


CZ -245 LS 



8月発売予を 



が tr- 灰祝巧さが •わ巧い合わせは…シャーブ ㈱ 巧子巧お♦巧本部巧晶巧をシステ厶♦夕部第2商品企画部〒162東京都新宿区巿を八健町8を化〇(03)260-リ61(大代ま)へ。 

























X 郎000をサポー ho 



■ CZ -251 BS 權ホ価冷39.800円（税則） 
X 68000 の»れたグラフィック巧巧をま 
用しなホ的に义♦を作成するための 
インテリジェントワープロです。アイデア 
ブロセッサが能、ハイパーテキスト機龍 
などをサポート，データのを巧やプレゼ 
ンテーシヨンツールなど幅広い用途に 
利用できます， 


■ CZ -243 BS 樣ホ価な19.800円（税別） 
ブライぺートなデータやビジネスデータ 
を巧単な操作で巧巧•運営できるバ 
-ソナルデータぺースですリフィル、 
タックシール、ハガキなどへの印字ら 
OKo シャープ電子手巧とのデータ交 
お可能(別売の巧巧ケーブル CE -200 
L が'必要）。 


■ CZ -240 BS 極ホ価な14.800円（税圳） 
化のソフトを起かする前に、この Sta 
tioneryPRO *68 K を一巧おかするた'け 
で、化のソフトを実斤中じら「スケジユ 
-ル/住所お J などをおなお能をワン 
タッチでイま用できますシャーブ巧子 
手帳とのデータ送をちも実現。（別売 
の通信ケーカレ GE -200 L がか要)。 



■ CZ -228 BS 樣ホ巧お200.000円（税別） 
給与計巧から明細発行までを、リ 
アルイメージ入力じより自動的に、 
巧早く処理することができます。 


■ CZ -227 BS 權ホ化な200.000円（税別） 
会計 エキス パー トシステムと デー 
タベースを 搭載し、機能と操作 性 
を 両立 させた 貝才務会計 ソフト。 


■ CZ -22 IHS 禄ホ価お19.卵0円（税別） 
オリジナリティあふれるはがき等、 
巧単に作成、印刷できるホームブ 
ロダクティピリテイツール C ほとんど 
の処理をアイコンで表示しマウス 
で選ぶフレンドリーオペレーシヨン。 


■ CZ -252 MS 挪準価な28.卵0円(お另 IJ ) 
24 トラック巧応 MIDI マルチレコー 
デイングソフト Musicstudio PR 0- 
68 K がバージョンアップしました。 
が巧の機能に加え、小節間のコピ 
—及びデリートや、 MIDI インプット 
モニターなど、数々の機能を追加. 
改良。さらに使いやすくなりました。 
* MIDI ボード ( CZ -6 BM 1) が也、まです。 




杰朽 . 水ず"坤 


■ CZ -226 BS 補ホ価な29.邮0円（税別） 
自由なレイアウト画面で入力でき 
るワーブロ機能を装備したカード 
型リ レーシヨ ナル データべー ス。 



ICZ -242 BS 樣ホ価な9加0円（税圳） 



■ CZ -247 MS 樣ホ価な28.800円（税則） 

MIDI 巧応自動伴き機能をサポー 
卜、簡単な楽譜入力で MIDI 演奏 
が楽しめます。 

ぷ MIDI ボード ( CZ -6 BM 1) が化、嬰です 


■ CZ -248 MS 裡ホ価な8.卵0円（税別） 
鑑巧用と音楽データ加工作成用 
からなるライブラリです。 



■ CZ -220 BS 禄巧価な卵.〇邮円（お別） 
入力の手間を程減するヒストリー 
機能を装備した、コマンド型リレー 
シヨナルデー タベースです。 


■ CZ -212 BS 巧ホ価が 68.0 邮円（税別） 
スプレッドシート（表計を）、データ 
ベース、グラフ作成機能を一体化 
させた統合ビジネスツールです。 


■ CZ -235 GS ホホ化格8.邮0円（お別） 
暑中見舞用を中ム、とした NEW Print 
Shop PRO "68 K 用グラフィックデータ集,， 


■ CZ -236 GS 巧ホ価な8.如0円（お別） 

年賀がを中ム、とした NEW Print Shop 
PRO -68 K 用グラフィックデータ集， 


■ CZ -215 MS 禄ホ価なけ.孤0円（税別） 
AD PCM 機能をまかす高機能サ 
ンプリングエディタ。多彩な EDITOR 
を裝備、サンプリング音のデータは 
BAS にでもま用できます。 

■ CZ -214 MS なホ価な巧.朋0円（税則） 
スタジオのコンソールパネルを操 
作する感巧で FM 音おじよる音創 
りが楽しめるサウンドエディタ。 


■ CZ -2 口 MS «ホ価な18.800円（税別） 
を大8パートのスコア（総譜）が書 
け、内蔵の FM 音源で演奏できる 
楽譜ワープロ &演奏用ツール。 



寧をI 



I お •拍 ，开- 
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g シューテイングゲーム 
ぐソインビー> 

■CZ-217AS 
權ホ価な7.卵日円(税削） 
©KONAMI. 1988 

シューテイングケーム 

■CZ-218AS 
權ホ価な 8. 朗日円（税别） 
©KONAMI. 1989 

ブロックゲー厶 
<アルカノイド> 

■CZ-222AS 
樣ホ価が 7. 8孤円(棋別） 
©TAITO C0RR 1987 

ドライブゲーム 
<フルスロツル> 

■CZ-231AS 
樓ホ価が8.卵日円(税別） 
©TAIT0 CORR 1988 

スポーツゲー厶 

<お血な校 
ドッジボール部> 
■CZ-232AS 
福巧価格7.朗0円(税則） 
◎TE 饥 N0S JAPAN C0RPJ 规 

アクションゲー厶 
いわクマニア> 

■C2-233AS 
禄ホ価な7.卵0円(税別） 

◎ NAMC0 

アクションゲーム 
〈ニュージーランド 
スト—り—〉 

■CZ-230AS 
權ホ価な8.卵0円（お削） 
©TAITO CORP. 1989 

スポーツゲーム 
<ViBA しし> 

■CZ-246AS 
權ホ®椿7.900円(税則） 
©TECHNOS JAPAN CORP. 1媒 

/ くイクレーシングゲーム 
<スーパーハングオン> 

■CZ-238AS 
操ホ価な 8. 8邮円(税別） 
◎SEGA 1987 

ジ I "ノトヘリ•シミュ U — ション！ r しム 

<サンダーブレード> 

■CZ-239AS 

權ホ化巧 9. 5邮円(税則） 

必 SEGA 1987 

アクションゲーム 

<ダウンタウン冷血み巧> 

■CZ-254AS 

樣ホ化な8.800円(お則） 

で) TECHN0S JAPAN CORR 1989 


■CZ-219SS «ホ化な29.800円（税別》 
OS -9 のもつマルチタスクが能、リア 
ルタイム機能をまかしたイまい易く 
機能的な OS 巧巧を巧供。これまで 
のデータ資産も活かせます。 

« 0S-9 はマイクロウェアなの畳な巧なで T 



■ CZ -224 LS 擇お化な9.980円（税削） 

……. f ； ! 加去 ! !■ 

■ CZ .234 LS 補ホ化が1说 .0 邮円（お則） 


AI .68 K Staff USP /0 PS 


THE 福袋 V2.0 


MUS に运 


Human68k ver2.0 


SOUND 


り <101巧ホ > 


OS-9/X 68000 


ver .1.1 


リ VO し 2 


グラフィックライブラリ VO し .1 


CARD PROeSK 用ま用フオーム集 


CARD PRO *68 K 用システム手巧りフィル集 


TOP 財お会計 


DATA 


TOP 給与 It ■巧 エキス/ 


ル 


Hyperword 


シャーフオリジナルソフトウエア 

1X68000 


サウンドツ— 









































































































• X 68000 を手じしたら何はともあれ r 巨 XE クラスへ。本か同おの入会申し込みハガ 
キを送るだけで会員証として、オリジナルデザインの力ード電卓がもらえちゃう（会叟無 
料)。 EXE クラブニュースや最新ソフト、周巧機器など父目如00の最新 
It 報を随時 ご 案内。を種イベント、フてァへのご招待 もあります。， 

(「X68000は持っているけど、まだ入会してない J 方も、ぜひこのな会にわ申し込み下さい。） 

• 巳 XE 会員には巳 XE り-ダ-ズグッズ • プレゼントも実施中です〇\^^^^|3^ 
詳しくはお近〈の EXE ショップまで。 


♦ X6 如 00 が創造するパソコントレンド、 MIDI 。 

音楽さえ巧きであれば、楽器やパソコンがま手な人でも 
切]エンターティナーになれる、いまま目度一番のニュートレンドです:> 

•音遊サウンドライブは、プロのキーボードき老■じよる本格的な midi ライブコンみート。 

巧評の第2弾ではプレイングショーだけでな〈、ミュージシャンの楽しい卜ークや、サウンドスケープ 
曲あでクイズなど、 X68000 と MIDI の楽しさを実感して頂けるイベントがグンと巧えました。 

• イベント参加者には、オリジナル T シャツや X68000 オリジナルグッズをプレゼント0 
あなたの感性をとがらせるががで活気あふれる MIDI ライブが、 

あなたをきっと#1«の"音遊"空間へ誘っみれることでしよう。 


開催月日 

開催地区 

開催場所 

わ問い合わせ TEL 

8/25(±) 

を 

野 

ラオ.;/クスヒナタコンビュータ館 X 68000 フェア 

0262-37-2221 @ 

8/25 吐) ’26 旧） 

仙 

台 

庄司デンキコンビュータ中央店 X 68000 フェア 

022-224-0559 @ 

8/26 旧） 

長 

野 

0 A ショップアクソン X 68000 フェア 

0262-44-3037 @ 

8/26 脚 

熊 

本 

松膝產業銀座通り木な X 6 如 00 フェア 

096-354-9111 © 

9/8 出 

德 

を 

カインドソフト X 68000 フェア 

0886-52-2123 » 

9/15 吐） 

ま 

京 

アイビット電子 X 6 如 00 フェア 

0426-45-3001 © 

9/21 输 ~ 23 旧） 

広 

窝 

シャープグランドフェア’ 90 

082-874-2280 © 


NEW X68000 、新作ソフト、面白イベント’ 

まるごと見•体•験フェア。 


9/22(±)-23(0) 


ま京 


九十九電機 7 号店 X 68000 フェア 


03-253-4199 @ 


◎巧のを巧でをおサウンドライブを巧おします。》印の会巧には山下章巧来巧。 


•今回のテーマはニュー X 68000 oSUPER - HD / EXP 巨 RTII / PROII の魅力を直 
じごか験ください。業界を目の SX - WINDOW も必体験。他、新作ソフトが験コーナ ー 、 

100インチ巧晶プ□ジェクショソこよる大迫力のゲームたちなど、新しい出会いがある力、 がわ—ふ olJR て 

もしれません。 X 68000 オリジナルグッズも展示即壳。ぜひお近くの会場へお立ち寄り •わ巧い合わせは...シャープ ㈱ 巧子機器事柴本部システム機お営巢部 

〈ださい。 干545大阪巿阿倍野区長池巧22番22号巧 (06)621-1221( 大代ま） 
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商を惑亂郑致ぉ：. 

これなら使える! G = ジ-ル解がシリ— X — ©お古も;、^-‘を支-玄. 
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X 68 アーティストのクリエイティブマインドを 
刺激する新感覚のグラフィックツール。こ 
れまでのエディタ概念を一•掃し、作品に挑 
む上で必要不可欠なグラフィック•キャラク 
夕•背景作成のすべてを備えた卜ータルグ 
ラフィックツールです。ゲー厶デザインをは 
じめとしたオリジナルアートが驚くほど自由 
じ描けます。今回は、背景やそのキャラクタ 
の作成を目的とした 「BG EDIT モード」を 
ご紹介します。 


巧数のパターン同時け成: 8 x 8 ドットのキ 


ャラクタを単位として最大8日 X 80 ドットのキ 
ャラクタ作成が可能です。 

アニメーション機能 : 作成したキャラクタを 
動画チェックできるアニメーション機能を 
装備。キャラクタの効果を確認できます。ま 
たアニメーションの間隔設定も可能です。 
巧密巧画も可能 ： 1〜16倍まで画面の大 
きさを自由に変えることができ、拡大画面 
での細部にわたる描画が可能です。 

BAS にが 応 : 強力な外部関数を装備。複 
数のキャラクタはもちろん大きなキャラクタ 
も扱えます。 


誦 


背景 


背景の作成じは 、 「G =ツール」上で作成 
したキャラクタを使用して縦スクロール、横 


スクロール、 全画面 スクロールが 可能。また 
日 OX 、 BOXFILL など多彩な編集機能 


が使えます。 
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株式会社ザイン•ソフト .ぃ 

テが6兵宙熙奋砂巿米田町米田 1162-1 
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新発売 

¥28,000 


=>ツール J 新登場< 


て ■ • rf.、* r スー • る • ft ; • 

回田田田田田田の巧巧因田 




ザインの骇 先端。 

ニユーコンセプトのアートキヤンバス 「 G " ツ—ル」、登場。 










































US 日 000 


恶婚關^罗 4 狐すを一梦ツ苗卜孩里梦 


業巧の新星、ロゴスシステムが 

ユーザーの巧望を1つのおにしました。 
これは必要だとか便利じやな LV 快感た/ 


〇 


を国ち名パソコンショップでお求め下さ L 
電話1本での通信販売も受付 I 、たしておりまず。 





THE FILE PROFESSOR の実々 


ディスクのバックアッフ、ディスクのエディット、ディ 
スクのネリ期化、ディスクの比較、ディスクの検査、ディ 
スクの情報 、 F A 下のエディッ S 、 ファイルの検索、デ 
ィレクトリのコピー、ディレクトリの削除、ヴスリュー 
ムラべルの投定、ディレク K リの作ぶ、ディレクトリが 
造の巧銃み込み、ディレクトリ搪造の巧刷、ディレクト 
リちの変更、ディレク S リ内容のソー h 、 削除ファイル 
の巧元、ファイル属性のお更、ファイルのコピー/巧の、 
ファイルの削が、ファイルのエディッ S 、 ファイルの目己 
面情報、ファイルーの巧刷、ファイル名の変更、ファ 
イルのソー h 、 ファイル更新日時の巧要、ファイルの表 
示、ファイルの奨巧、カレンダー、八ードディスクの直 
描エディツ S 、 システム情報の表示、コマンドシェル、 
現巧時刻の巧更。 
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WB 回到なな费么 

このソフトはロゴスシステムのデビュー作でず。でも、だか 
らといってなめてもらっちゃあ困りまず。私達は、 

ソフトを作りました。そのどれをが他なから発売されていまし 
た。出来る事ならば自分達で発売したい/その願いがやっとか 
ないました。 


I： 



□ ゴスシステム 


干615ま都巿ち京区西院上今田町 17-1 L 这 P ビル 4 F 
TEL (075) 日12-的的 FAX (07 日） B 22-6915 


いろいろな 
ホていまし 


M. 
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策か欠/ベ探 f む魅山の繰りにげる 
ミステリアスアニメーションアドベンチヤーぶ1帅 





X 目邮〇日巧応日"- 2 HD 
•口ーランドネ： tMT-32，CM-M 完ま巧応 
MIDI インターフェイスボード CZ-6 巨 Ml 
又は、 SACOM 製 SX-68M が必要で 

(巧期の MT -32 では、正常に演奏できません。） 

標準価格8,800円 


THEPE 眠脚職 Tim;D HOM [阪 I 脚臟 #1 


塞や巧なファッション界をお奇怪な删 iA 事件, 
南米の飯齡れた歷とは？ 

そし態を待ち到姻族の宿制ま？ 


、季件0 ホ 




あたし、魅を。 

新宿じあるデザイン-スタジスの、新人 A • D (アパレ 
ル.デザイナー）。……なんだけどあたしの持ってる妙な 
「力」みたいなモノ-人の to が半！)っちやったり、変じ 

カンが良かったり - のせいで、周りからは「名探偵 

魅を」なんて呼ばれて、よ<相談事を持ち逆まれたりし 
ている。で、そんなある曰、ち達のモデルが、突然、’殺 
されてしまった。 

^ そレ" U 、 あたしの親ちだった唯を ……! 

これって……ひよつとして連続殺人事件つてでツで！ 


システムサコムでは、ゲームソフトのクリエーターを馨集してしぶず./ 

ゲーム造りの 客び 哀しみを一緒にはわってみませんか/ 

•フロ グラマーほ朋6や閒邮〇のアセンフラや CS 巧が使える人） 参 グラフィック{原 
あやドッ K おを描ける人） ♦ピジ ユアリス K (才ーフニングデモなどの構巧が出来る人） 
♦ゲー ムデヴイナー(ゲームのを画»を巧な出来る人） 

证;娜方まな歴■と化に作品巧（フロクラムや ドット お、シナリオ巧）を当なにおをり下 
さい。•衡港ちの上面倭曰を御ぶ巧巧しまず。資指再校をしソ上3日ネ程までの方。お 
きお力や巧核により®遇致しまず。待 a 巧お年1回、貨ち年2回、曲 M 手当、巧美 
手当、各甫保巧完備。 お巧時間午前日時一午を日時3日分。休曰 売を 逊化吕曰制、 
年末年お、夏季が招、年次有お化お有。 


加万キロの虚空 CD 

東芝 EMI より 

がな g // • M 下税么価格2.巧0円 
が T 巧巧7 ♦グ 税込 fffi 格と的0円 


1 ノヴェルウェアシリース 

好評発売や// 

DOME 

PC - B 0 O 1 SR 

pc-q 日 01 

る 

9 .日□□円 

ユーフォリー 

X -1 

日，日□肌 

X -1 

エボ IJ ユー シヨン 

FM-TOWNS 

9.日00円 

X 郎邮〇 

FM-7*77A\/ 

幽靈君 ' 

Msxe 

巨 .800 円 

Msxe 

プロヴィデンス 

戶 C - 邮 01 SR 

7.800円 

CHATTY 

PC -8801 SR 

日.日□□円 

ヴァルナ 

PC -8 B 01 SR 

7.日00円 

ソフトで 
八ードな物語 

戶 C - 卵 D 1 

：7.日0□円 

メタルサイ h 

x -閒邮日 

氏8己□円 

X - 即邮日 

7.8 □□円 

FM-TOWNS 

9.日□□円 

史上最強の 
ビデオバイスレ 

FM-TOWNS 

4.加肌 

ソフトで 
八ードな物語2 

戸 C - 卵01 

7.日00円 

X - 郎邮〇 

7.加□円 

FM-TOWNS 

9.日00円 


3 日万キロの 
虚空 

戸 C -9 邮 1 

X - 郎邮〇 

る 

9 •呂□□円 

夕巧華 価格には消#税はをまれておりません。 

FM-TOWNS 

1 

株式会社システムサコム 


〒130まを都 B 田区兩国 4-3 日-1目 


両国格'并ビル 4 F 

八ードウエア部的(的 5)5145 
ソフトウェア部03(的5)7閒9 


ジェミニウインブ xmmm バ u バ u 開発中/ 


sQcom 
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乏バけ化•巧レ 4M レ Hi ム化 fihiihai 化 WI." レイ tfili 


C 1990 


黒あの貴屬 

- --心、、 


邱辞 、'.雨! _ L ^| _ ■ 」 

■ • で'' ク. TT イ y 〇 _ . ■が: t 、:\! こ—- 可 を!ご 

Xl 68000 ''^m 

11|9〇-歴眉 

ル—ンヮづ黒衣の貴;焦 

がい/ X68000 ユ-ザ-巧お争 契が*™ 

がい/ルー■ンワ-スとよげ ……ぷ 
がい/プレイヤっぶさ 


画 域 


m 


巧い/ルー■ンワ-スとががれ^世巧 
がい/プレイヤ 'T 鶴^ 

,r 巧 

>X 色な000ち 12HD 

朱ダ々フイツク W ♦巧 UU み M. ホダタツィ，夕征 * 化 
シ巧かホ4ダ碱晦 な,’, 4IJ' 

ド M •.堆 巧,！ 

い C . 貸投觀風/シリーズ PC 心 


技 2 HD 3ぶぶ HO 2化 IT •ザ*ウン 


(■•じ uaui/K/p/M. VF/Ui,^*A. Pi, i4H«,‘L£/i 

の WN めか 做.かかイム f. かか M わ t ム .. 

►戶 C " 呂拉〇1 S 巧シリーズ；，が 


し E/ し ドも A ぴ Pi 


幻な打 




RPG - 

ACT - 

SLG - 


a^neXt 

T-neXt 

3 -neXt 


ルーンワース黒をの貴公子 
幻獣鬼 

遙かなる才ーガスタ 


■泣ほ肪巧-ホ留の方は祝を»巧て料ホと巧おを•な g をと g お 
番号を刚己の上、当れ宙わぶり< ださい,. ( All ホ a の方は孤肿プラス】 
■カタロクごホ望の方は、ぶ料として切手200円々を同がの上、カタ 
ロケ W ホ券をもぶりください（葉■ての《ホはわのわりしさす） 

• T&E の*巧情薄かわかるテレフォンサービス をを屋 (052)776-850 C 


逐 


No Copy 


企画‘閒発 ‘ Wit •版巧 

株式会社テイーアンドイーソフト 

〒465をを屋巿を束区里が五:1810吞化 PHONE 052-773-7770 




























ftc 雀ソフ h の決定版登場！プレイずればずるほど個性をちつたフレイヤーに成ちずる 
自己成長型サンプリング 攪 能と、より強化された推論型人工知能の 搭載で 限りなく 
実戦麻雀に近づいた。 

リアルな4人囲みと見やずい麻雀牌、迫力ある効果音などの採用が麻雀ソフ h のを字塔の 
地位を不助のをのにずる。 


19郎年発売と同時にが巧やのゲーム•フリークを觀狂させた、あの「ダンジョン•マスター J ザ今、曰本中を荒しまわる。 
3 D グラフィックスによる複巧な迷巧、が々の謎、パーティーをまが襄って巧るモンスター。 ’ 

そしてなによりもプレイヤーの考えること、見ること、手にずること、 

ずべてにリアルタイムでお!いていく……本当の應巧の IJ アル R 户 G だ。 

なぜ^巧巧をそして曰本をこれ程までに興*させたのか！ 

—— その备えは君自身で出して巧しい。 


PC-9801VM21/ り , VX,RX,RS,RA ■ PC-98DO 
PC-9801UV21/11,UX,CV,EXJS 獲バス .3 ウス / アプロク RGB 巧巧 


* 巧^とピ口： roll iMfg 当社の商品をお近くのバソコンシヨッフでお買い求めになれない巧合、商品る、お種ち、住所、氏を、巧話香号を明記のラえ、下紀はが 
• 5670 定価ブラス3〇/〇消巧稅分を現を•留にてお申し込み下たい。（送料無料）〒巧1東京都お谷区千なヶ谷 2-8-16 ビクター音楽廷業 ㈱ 〈巧信販ミ 

























n\/IIDI サウンドライブ in 才ータム j 
巧大巧採の MIDI ライブシヨーの第2巧デス/ 

開催日 9巧22日江) -23 日旧）午後3回 02:30/1:30/2:30) 
30々づつ。 

巧所 九十九電機 ㈱ 7号店け皆店頭じて、 X 68000 と MIDI 楽 
器を巧った楽しい演奏巧クイズもあって景品が当る/ 
是弗わ立ち寄り下さい。 


40 MB 

ハードデイスク 

定価 ¥ 102,000 

ツクモの曰特価 

Y 59ぶ00 


アナログ 
ジョイステック 

定価 ¥23,800 

ツクモの曰特価 

Y け ,900 


klM S 69 ぶ 00 

定価 ¥398,000 

け#/‘ • rBusiness MatejW ホ装備 


aan n czb 的 c 定価が祐1000 
r^rfUil CZBB 3 C を価 ¥395,000 

•巧せ:代のインテリジェンス、 SX-WINDOW 巧找 •巧的ニュー 
スタンダードフオルム • BIOS のな A じよりハイスピード化 巧去実 
現 • 2 M バイトの 大巧量 メモリ を推ホなか •が 批 /〇ポ ー M スロ 
ット巧ホ巧な！ 

If CZ 邮 3 C を価 ¥338. 000 
CAr^cri I II CZB 13 巳 を価料佩〇〇〇 

•ホ世代のインテリジェンス、 SX-WINDOW 巧 tfe •巧泌 のフオ 
ルム、マンハッタンシェイプ © BIOS の改良じよりハイスピード化 
巧を 実現 • SM バイトの 大を量 メモリを 樣ホ巧備 

gUPER 脚 を価 ¥498,000 

U ホ世代のインテリジェンス、 SX-WINDOW 巧 tt • 

'ラーのクオリティブラック • 80 MB SCSI / 、ードディスク 堯化* 化 
ホ樣ホ SCSI インターフエース棵ホな備 • BIOS の改度じよりハ 
イスピード化巧を 巧 現* 3 M バイトの 大を量 メモリを 揉 ホ 巧償 


m 


( A セット) 旧セット) 

CM -32 L . ¥69,〇邮 CM -64 . ¥129,000 

SX -6 BM . ¥19,800 SX -68 M . ¥19,800 

Musicstudio Mu -1-¥19,800 Musicstudio Mu 小 ¥19,卵0 


IMS ち設用乂モ ij — ボード シリース内な用 

難が夕がク觸 r) 

MB 増設 RAM ボード . ツクモ特価 y タタ,5クク 

(ミ 肖*税5リを ¥1.275) 

MB 増設 RAM ボード . ツクモ特価 y 巧.500 

(ミ 肖 黄 税別を ¥2. け5) 

2 MB と 4 MB はをシリーズ巧応。化張ス□ット用。 


Simcity (9/7 発巧予を) 
予約受付中/ 
サイ八! J オン 

/シャープ . 、 

\シューテイング ザーム) 

予約受巧や/ 


Hyper WORD 

定価ザ 39 T 80 a 

SX-WINDOW 

定価^ 6 t 孤0_ 

CCompllerPRD-BBK 

Ver 2.0 予たをが中/ 


ァィヮ 

PV - A 24 MNP 5 限定特価 F タブぶ & 

定価¥ 54,800 (ミ肖《锐別途 ¥894) 


全国代金引さ換え配達 

わ申し込みは田 03-251-99 りへ 
わ巧括1本/ 

目己ま日の指をもできます。 


クレジツ h 払し、 

月々 Y 3.000上の均等私いも 
頭をなし、夏•をボーナス2回 
仏いもをイ寸中/ 


巧載商品2万円が上鐘潮鹽劇# 


ツクモ7号店巧 03-253-4199 いさ当荒井) 


巧03-巧卜0987( 巧当 mm) 
巧03-巧卜0531 (巧当川を) 
巧 052-263-1655( 巧当き禹) 
巧05卜巧 1-33 的 (括当 w 山） 
巧 011-24 卜巧的 (巧当が舞） 
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ft 

ザ•より 
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1區 















































































■巧頭じて、ダームソフト 25% OFE グ（税別）、超低金利オクい V ッピークレジットをご利用下さい// 


パソコンブラザ 


’90 オクトでおまるバソつンワ ー J レド- 



~案内図- 


まおル ロホ JR . 巧田から化ホ5み 

! 口 巧ホ巧田から巧.ホ1み ミを W 



、八巧^な'!/ 


• ’ 4り し ,〒 /1 ぞ 

巧頭セール実施中 


G03-730-6271 


•営業時間 AM 11:00 〜 9.00/ 日曜•祭日 PM 7.00 

干 144 東京都大田区蒲田 4-6-7 FAX 03-730-6273 

> 定休日毎鸡 _ が ?| 曰祭日の場合翌日じなります。 
オクト 


電話一本で、八イ即納 


全国适販 


クラククレジット 


2%|3回 

9%向回 


10 % 


OCT -1 システムインフオメーシヨン 

►を I 巧 iVi 保細り • （メーカー化!山 ） 

►趟化ホ利ハッビークレジット川り|~(;()||||)如をナシ OK.' 
► ボーナス•巧お、V、〇 K/ ボーナス21111化 L 、〇 K/' 

►巧 li 述 U の巧ぶ OK/ (ノ J •たなサポート f 木制） 

► Iがん||の糸11かせ n 山/1オク F フリーみシスな 
►化如デモンストレーシヨン义施||' 


徊 


3.说 Ij 晒 

り％向回 


広告巧載商品かの 
お ! 品も取巧ってわります。 



1 


冬のボーナスー括払し乂12月末 ) OK 夕 
手数料なしでず。絶巧、お得でずゾ。 
型ち末私いも受付けていまず (9 月末) 


★ 下記セットでお買い上げの方にはプレゼント • グ n MD-2HD 10 枚をジョイカード 2 個（連おホ ) ③シリコンキ — ボードカバ — 


お好みのセットをお選び 下さい。 け型カラーディスプレイ TV 


♦ SX-WINDOW 巧 Wo 
♦40M バイい、ードデ f スク搭載 


ぶ巧無料 





♦ C 之 - 603C-BK/GY 
定価 ¥338,000 

• C 之 - 613C - 巨 K/GY 
定価 ¥448,000 

現金特価/^ 


推選 I 


お電話下さい。 

♦ SX-WINDOWJttto 
♦ お爾 / 〇ポ-卜 4 スロット装備 


• CZ-653C-BK/GY 
定価 ¥285,000 

• C 之 - 663C- 巨 K/GY 
定価 ¥395,000 


C 之 - 605D-GY/BK 
定価 ¥1 け ，000 

5 型カラーディスプレイ TV 


み 

CZ-613D-GY/BK 
定価 ¥135,000 


14 型 カラー デ f スプレー 



CZ-604D-GY / 巳 K 
定価 ¥94,8000 

21 型カラーディスプレイ 


CZ-8NJ2 

•インテリジェントコント ローろ 
定価 V 23 .卵0 

超特価 ¥16,800 





CU-21HD 
定価 ¥148,000 


み CZ -603 C + CZ -605 D . 法:価合計 ¥ 453,000 ►オ クト大特価 

「じ回1 ? 1—24 回] ? 1—36 回'! ? — 1—48 面 ! ? I 

(目: CZ -6 I 3 C + CZ -605 D . 定価合計 ¥ 563,000 ►オク ト大特価 

「12回]~ ? 「24回 I - ? 36回广？ — 面 1 r ~ - j 

で CZ -653 C + CZ -605 D . ま:価合計 ¥ 400,000 ►オ クト大特価 

[~12 回1 ? "[24 回广 _?_ 1—36 回1 ? ] 48 回 ]—___ L ——] 

：D CZ -663 C + CZ -605 D . 定価合計 ¥ 510,000 ►オ クト大特価 

112回 I ? 了24回「 1 |~3目回「__? 1—48 回广_?_ ] 

怎 CZ -603 C + CZ -6 I 3 D . ま:価合計 ¥ 473,000 ►オク ト大特価 

厂に回 f ? 1—24 回 T ? 1~36 回 r ? 1~48 回 1_? i 

(.F CZ -6 I 3 C + CZ -6 I 3 D . を価合計 ¥ 583,000 ►オ クト大特価 

I じ回 " T ? 124回 1~ ? — 1—36 回「 ？ 「48回] ? 1 

.G CZ -653 C + CZ -6 1 3 D . 定価合計 ¥ 420,000 ►オ クト大特価 

|12回| ? 174回 I ? |36回 r ?い8回 [— L — 1 

(H CZ -663 C + CZ -6 I 3 D . 定価合計 ¥ 530,000 ►オ クト大特価 

[_[徊_[ ? I 24回 I T I 36回 I ?—两固 I ?1 

‘ ! CZ -603 C + CZ -604 D . 定価合計 ¥ 429,800 ►オ クト大特価 

I 12 回! _ ¥ 28,000 1—24 回 I — ¥ 14,800 1 36 回1 ¥ 10 . 200「48 回1 ¥ 8,000 | 

J CZ -6 I 3 C + CZ -604 D . 定価合計 ¥ 542,000 ►オ クト大特価 

||2 回 I ¥36,000 I 24 回 I ¥ 19,000「36 回 1— ¥ 13,100 ] 48 回 | ¥ 10,200 | 

K CZ -653 C + CZ -604 D . を価合計 ¥ 379,800 ► オクト大特価 

I 121111 ¥25,400「24回 r ¥ 13,400136回 I ¥9,300 | 48回 「 ¥ 7,200 | 

丄 CZ -663 C + CZ -604 D . 定価合計 ¥ 489,800 ► オクト大特価 

I 12 回1 ¥32,200 T 24 回 T ¥ 17,000「36 回 「 ¥ I 1 ,800 I — 48 回 I — ¥9,200 | 

M CZ -603 C + CU -2 IHD . 定価合計 ¥ 486,000 ►オ クト大特価 

|12回 I ? 1—24 回1 ? — 136回「 ？ い8回 I — _I — J 

N CZ -613 C + CU -2 IHD . ま:価合計 ¥ 596,000 ►オ クト大特価 

|12回 I ? T 241111 ? r 36 回「 ？ |48回— I — J 

;0 CZ -653 C + CU -2 IHD . を価合計 ¥ 433,000 ►オ クト大特価 

h 徊 I ? 了 24回 T ? ~|36回 I — ——」 j 8 —国;广 — _ ?— ] 

P CZ -663 C + CU -2 IHD . 定価合計 ¥ 543,000 ► オクト大特価 

|12回| ? 124回 I ? 了 36回 I ? 1.48凰]__ — J 


りどんどん TEL しょう。安〈なるかもヨク 
ロクレジット価格は、消費税込みですヨ。ご利用下さい♦グ 


クレジットの回数は1回〜60回、ボーナス併用などありますのでわ電話でお問合せ下さい C 


■本がセット:送料無料 •店頭デモ実施中…専門の係員が詳細にアドバイス致します。ザひご来店下さし、 

※上記料金じは、消費税は含まれてわりません。消費税が付加されますので、詳しくは、電話でわ問合せ下さい。 


■朗報です。冬のボ—ナス运払い巧月末命が：手数料なし。藝月末払いも抓么ご利用下さい。 

























































































































































平 
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冬 
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ボ 

I 


■ 1 , 000 ) 
;,000) 

103,000 

1 , 000 ) 

134,000 


■ 


特価 ¥14,800 
特価 ¥31,500 
特価 ¥34,800 
特価 ¥27,900 
特価 ¥15,000 


ス 

忌 

キム 

し、 

0 K 

夕 

le 

月 

末 

手 

数 


/T^。フ oni/ I n 'つ/レ。、，ごをホイ11、，々_ Iつじ换、 


I 



トヤスタ—イ寸③四段キヤスタ—イ寸⑤ミ段キヤスタ-付 


な1! 


超 

低 

金 

利 

ク 

レ 

ジ 

、ツ 


マ、 

莉 

用 

下 

さ 

し、 


< 

( 


( 


< 

( 


<i 

(' 


< 

另 


<： 

另 


ぐ 

另 


巧頭ダームソフトオール 25% off / ビジネスソフト25%より特価中 


♦お、送料として1ケ¥500、2ケ¥700、 


3ケ]<乂上で ¥1.000 となります。 


(税別》 


★通信販売お申をみのご案内 ★ 干144東京都大田区蒲田 4-6-7 TEL : 03-730- 6271 

か I 化みはわ‘おれ'ぉ规いします 0 わ•かぶの < 化所バ氏か<‘1おろホか度び <がん1|かをわからせ I 、•さい。*人か贿飢をただちにがん •, をこ'化がいたします 0 

富±銀行=菱銀行 

専用わ申込用紙をわ掛觸します. 

ので、'必要事項をご記入、ご接印の上 

ご返送下さい,手続きは簡単です 

. 


义ヶ原支店蒲田支店 
( i ) No . l 824 ( g ) No . O 278691 
株式会社億人(オクト） 


※褐載の価格は変動しますので、まずは、わ電話じてご確認くどさい。 ※連休のお知らせ =8/2 U 火）、22(水)は連かです。 

※上記料をじは、消費税は含まれておりません。消費税がせ加されますので、詳しくは電話でお問合せ下さい。 

《銀行振込、または、現金書留でごを文の際じは、あらかじめ亀話でご確認の上、お申し込み下さし、。 


ナ ー（ 送料 Y 


. 000 ) 


卜面白グッズ 


オク S 特選シャープ周适機器（送料¥1加日） 


'CZ-6BE I 旧 M 巧設 RAM ボード .（¥ 35.000) ►特価 ¥ 26,500 •CZ-8NM2A 

CZ-6BEIB IMB 增お RAM ポード . （¥ 28,000) ►巧 巧 ¥21,000 • CZ-8NTI 

CZ-6BE2 2M 目巧投 RAM ホード…… (V 79,80 0) ►巧 価¥ 60,500 • CZ-8NSI 

CZ-6BE4 4MB 巧披 RAM ホード…… （¥ 138,000) ►特価 ¥104,800 •CZ-6BCI 

CZ-6BFI 增設用 RS-232C ボード .....（¥ 49,80 0) ►特価 ¥ 38,500 •CZ-8TM2 

CZ-6B0I GP- 旧ボード . （¥ 59, 如 0) ►巧 価¥ 45,000 • CZ-64H 

CZ-6BMI MIDI ホード . （¥ 26,800) ►巧 価 ¥ 20,500 • CZ-6TU GY/BK 

CZ-6BNI スキャナ用ハラレルボード. .（¥ 29, 800) ►お 価¥ 22,800 •BF-68PRO 

CZ-6BPI 数化;离巧フロセッサボード （¥ 79,80 0) ►巧 価¥ 60,500 • SX*68M (システムサコム） 

CZ-6B0I ユニパーサル I/O ボード.. .（¥ 39,80 0) ►巧 価¥ 30,500 • PI0-68BEI-A(l/0 DATA) 

CZ-6EB l/BK 巧測/ 0 ボックス . （¥ 88,00 0) ►特価 ¥ 66,800 •円 0*6BE2-2M(l/0DATA) 

CZ-6VTI/BK カラーイメージ•ユニット… .（¥ 69,80 0) ►巧 価 ¥ 53,000 • PIMBE4-4M(l/0 DATA) 

Ct6BL2 LAN ポード . （¥ 298, 000) ►大 特価 •CZ-6BVI 


マウス .(¥ 68,800) ►特価 ¥ 5,300 

マウストラックポール ..（¥ 98,80 0) ►巧 価¥ 7,500 

カラ-イメージスキャナ•…… （¥188,000) ► 大巧価 

FAX ボード .（¥ 79,80 0) ►特価 ¥則，500 

モデムユニット .（¥ 49,80 0) ►巧 価¥38,000 

巧投ハードディスク… -(V 120,00 0)^ 大巧® 

R 犯システムチユーナー…" （ ¥ 33. 100) ►巧 価¥25,000 
* 巧能 CRT7 ィルタ- （¥ 19,80 0) ►巧 価¥15,500 

MIDI ポード .（¥ 19,80 0) ►巧 価¥15,000 

IM 日增設 RAM ボ ー ト’…… （¥ 巧,00 0) ►特価 ¥18,500 
2MB 巧設 RAM ポード （¥ 50,00 0) ►お 価¥37,000 
3MB 巧設 RAM ポード （ ¥ 88,00 0) ►お 価¥6^000 
ビデオボード .(¥ 21,00 0) ►巧 価¥15,800 


謀範写カラー漢字プリンター 


( ド 4 レが）靡し。。。 1 

パソコンラック 

推奨 

1 


' アイテック（送料 V 

• 1T-X640( ¥ 158 

. 特価¥1 

• IT-X680( V 198 
. 巧価¥1 


• MD - I 200 AIII . 

• MD -24 FS 4 ••- 

• MD -24 FS 5 ••• 

• MD -24 FP 4 ••• 

• MD - I 2 FS ..... 


販如スタ-巧 
キーポードが収巧できる 
力ん手元てマウス法作が 
ラクラクできる 
が扳5段のマルチに 
る用できるディスク。 

ウーン、こいつはデキル/ 

1325(H) X640(W) 

X 700(D) 


11 

I 含; 


特価¥16,000 ^ ^ 特価¥12,000 


4段キ t スターせ 

どんなバソコソこも 
フレキシブルじ巧応/ 
使い易いデスクです。 


1245(H) X614(W) 
X 600(D) 


ifpri 

^ 1 

と 

眉 


娘科スターか 
賴お M ばない 
ffi 易で巧利な 
デククです。 

国 


1 175(H) X640(W) 

X 600(D) 

特価¥8,800 


1 ★オクト今月だけの新品限定販売(創台限) 借が華0; 

• CZ -6 MC ( BK ) を価 ¥ 399,800 . 

. 大特価 ¥218,000 

• CZ -652 C ( BK ) 定価 ¥298,000 . 

大特価 ¥188,000 

参 CZ -662 C (目 K ) を価 ¥408,000 . 

. 大特価 ¥248,000 

• 0左6010但1<)を価¥119,800 . 

大特価¥ 68,000 

• 0己6010侣丫)を価¥119,800 . 

. 大特価 ¥ 68,000 

• CZ -6 I 2 D ( GY ) を価 ¥119,議 . 

. 大特価 ¥ 74,000 

• 10-735 ま:価 ¥248,000 . 

. 大特価 ¥158,000 


オクトラクラククレジット表 


個 

1% 

3 回 

2.5% 

6 回 

3.5% 

10 回 

5% 

12 回 

5% 

は回 

7.5% 

18 回 

9% 

20 回 

10% 

24 回 

11% 

30 回 

M. 说 

36 回 

15 .说 

48 回 

20% 


CZ -8 PC 4 ¥99,800 广 ム- 。「へ…、"し/巧す/'/ノ • 刪 
♦ 48 ドット を価 ¥97,800… ••… 大特価•グ TEL 下さい。 
1^^ サ- マル〜ソド ②の -8 PGI (2 化。ンカラ-！字プリンタ -80 做 

[〜 D /1 が 130,000……. 湖 fi // TEL 下さい。 


サーマルヘッド 
.♦巨 5 〜目 4 まで 
>ハガキ可能 
>カラー 対応 

オクト大特価 ¥64580 (r 


③ CZ -8 PG 2 (24 ピンカラ-漢きプリンタ - 13 躺） 

ま:価 ¥160,000…•… 大特価/: /TEL 下さい。 

④ 10-735 X ( カラーイメージシエット） 

を価 ¥248,000……‘ 大特化.グ TEL 下さい。 


①五段: 



XB 日日0□ソフト大 1 Z - ル実施中※ゲ—ムソフトオ-ル巧％日 ff 


グラフィック > *213 STAFF PR068K Ver.2.0 
シャフト）ま:価 ¥58. 00 ひ 

オクト巧® ¥ 40,000 

データーぺース> • KAMIKAZE 
サムシンググッド）を価¥ 68,000 

オクト特価 ¥ 46,000 

グラフィック >>C-TRACE68 
キャスト）を化¥68,000 

オクト特化 ¥ 51,000 

CS 巧 > • C & Professional Pack 
マイクロウェアジャパン)を価 V 58,000 

オクト巧価 ¥ 44,000 

グラフィック> ♦ サイクロンエキスブレス 

ミ価 V 78.000 

オクト巧® ¥ 58,000 

グラフィック > 参デジタ J レクラフト 
ミ価 ¥39,8 邮 

オクト特価 ¥ 28,000 

ワーブロ>•/、ィバーワード 

ミ価 ¥39, 扣〇 CZ-25IBS 

オクト巧® ¥ 29,800 


お を 

商 な 

を 価 

特 化 

CZ ぶ IILS 

Ccompier PRO-68K 

バ 9,800 

¥ 28.800 

CZ-2I2BS 

BUSJNESS PROeSK 

¥68, 卵 0 

¥ 48.000 

CZ-2I3MS 

MUSIC PR068K 

¥18,800 

¥13 ぷ 00 

CZ-2I4MS 

SOUND PROeSK 

、 15,800 

¥ 11,500 

CZ-2I5MS 

Sampling PRO 刷 K 

¥17,800 

¥",800 

CZ-2I9SS 

OS-9/X 68000 

パ 9,800 

¥ 21.000 

CZ-220BS 

DATA PRO-68K 

V58,000 

¥ 41.000 

CZ-257CS 

Prml'ShoD PRO ち' 8K 义 2 

X 19,800 

¥ 14,300 

CZ-223CS 

Convnunication PRO-68K 

VI 9,800 

¥ 14.300 

CZ-224 し S 

THE ffl 巧 V2.0 

¥ 9,900 

V 7.500 

CZ-226BS 

CARD PRO^BK 

¥29,800 

¥ 21,300 

CZ-24I 目 S 

システムキ « リフィル » 

¥ 9.800 

¥ 7,500 

CZ-242BS 

る用フォーム集 

¥ 9,800 

V 7.500 

CZ-244SS 

Homan 68K Ver2.0 

¥ 9, 朗〇 

¥ 7,500 

CZ-247MS 

MUSIC PRO-68K(MIDI] 

¥28,800 

¥ 20.800 

CZ-240BS 

Stationery PRM8K 

VI4,800 

¥ 11.500 

CZ-243 目 S 

CYBER NOTE PRO*68K 

VI9,800 

¥ 15.200 

EW 


¥38,000 

¥ 29.800 

G-68K 


¥14,800 

¥ 11,400 

E-68 


V 19.800 

¥ 15.300 


厳選された製品を、よりまく、より早く、皆樣のお手元じ// I 製品も取扱っております0 


チャンス/ XB 8000 . SUPER - HD けタン }= 致1た登寶忠。送料ナシ•グ 

X 68000 EXPERT-HD 

SX - WINDOW 巧が。 •ザ•ヮ T クス互 r 三打公遭 i ミちふさわしし、 

_ スーパーな6800日♦グ新登場•グ 

オク h 限定スペシャルセ、ッ h 

sup 巨 r - hDo 

1 ：WiH 巧:•プレゼン!'/ ( DMD -2 HD 10 が ⑥ジョイカ—ド(連が式） 

③ァフタ—バ—ナ-(¥9,2日0)④シリコンキ—ボ—ド(¥2,800) 

ストぉンス 

CZ -6 

(¥ 466,000) 

CZ -602 D ( BK ) 

(¥99,800) 

MD -2 HD 瞻 
•ジョイカード(連射ホ X 2 個） 
オクト超特価 • シリコンキ-ポ-ド•ヵバ- 

¥ 364 j ( X )0 (を巧•消で税込みべ 

※ディスプレイ = & CZ -604 D ② CZ -605 D 
③ CZ -6 I 3 D ④ CU -2 IHD 
との組合せもございます TEL 下さい。 

X 68000 SUPER-HD 
♦ CZ - 623 C - TN + CZ -613 D-TN 
定価合計 ¥6 33 , 000 …大特価ク TEL 下さい。 

をマウス • トラックボールせ//ディスプレイじはスピーカ2個、チルトをか// 

化のディスフレィリ〇2-60の、’.2 612〇、、3〇2-目03[1||徊| ? | 24国 ？ | 36回 ？ 48回 ？ 

端^: 2 IHD の組合せにかますのでも'問ぃ合せ 口安くてゴメンなさい。今だけヨ X / 

※超低金利クレジツに利用下さい。個〜60回払い、頭金ナシ/ボーナス1回払い、ボーナス2回仏い OK / 


Sf 紙%為篇带5鱗彭雜齡ぉ黛! I 按諭縣賠碟革於 


振込先 


現金 I 巧仏い 
































































































































剛 X 68 QQQEXPERTII / II-HD & PROII / PROII-HD & SUPER-HD (送料•消費税込） 




EXPERTII 

セットでお貫い上げの方に、 

•ディスケット10枚^ 

♦ジョ が-ド2ケ}プレゼン忡•グ 

EXPERTII-HD 

セットでお頁い上げの方に、 

•ディスケット10枚^ 

•ジョイカード2ケ[ 中 


EXPERTII 

み)セット ： C 之 •603 C + C 2-604 D - 


. を価¥ 432 . 800 ►か® (化なはお電話下* 


曾セット： CZ -603 C + CZ -605 D - 


厂12回「 30.200 广24ち]]15.906~ I 36回 I 


••巧価 y 453. 000 ►巧 巧（化なはが■巧下 I 


‘C, セット： CZ -603 C + CZ -613 D - 


も旨地 T 60111 ~r 


'か、） 


••巧価 ¥473. 000 ►巧 巧（化巧はわ■店下さ LV ) 


1 12回 1 

? 124回 1 ? 

1 36回 1 

7 

I 48回 I ? 1 60回 1 ? i 

( D ) セット 

: CZ -603 C + CU -2 1 HD . 



•巧価 V 486 . 000 ►巧 価（価なはお■な下ホい „) 

i 12四 1 

? 1 24圓 1 ? 

1 36回： 

? 

48回！ ？ 60回 ？ 

EXPE 円 T 1 I-HD 




@セット 

: C 之 -6 巧 C 牛 C 之- 604 D . 



•を価 ¥ 542 . 800 ► « « (« なはわ下 At sJ 

1 12の 1 

7 1 24团 1 ? 

1 36回 1 

7 

1 48回 i ? 1 6〇画 1 ? 1 

盾)セット 

: CZ .613 C + CZ -605 D . 



••を価 W 5的. 000 ►4«化（巧冷はが KB 下 ♦ L'J 

1 12(51 1 

37.700 1 24(0 1 19.800 

1 36回 1 

13.700 

「48面 1— 10.600 1ち0因11 8.さり0 — ~ I 

◎セット 

こ C 之- 613 C + C 之- 613 D . 



•巧価 W 583.000 ►林 優（価なはが Ktt 下 

IJ 2 回* 

ネ * 24 固* ? 

' 36回 

7 

1—48 担！- ? 160回 1- う 

'D セット 

: C 2-613 C + CU -21 HD 



’•ま:価 Y 596.000 ►钓化 （価巧はわ《お下さい,） 


.36 回 


■ P&A 恒例サマ-大バ-ゲン祭 
開催中夕 

電諭こて、ドンドンお問合せ下さいク 
クレジット表には、出甘なし、ほとの価格でホ 
メーカーさん、ご免なさい。 

ユーザーの方には大勧迎されそうです。 
今がチヤンスです、ハイ C 


PROII 

セットでお頁い上げの方に、 
•ディスケット10枚"！ 

> プレゼント中•グ 
参ジョイカード2ケ J 

PROII-HD 

セットでお貴い上げの方に、 
•ディスケット10枚] 

•ジョイカ-ド2ケ^プレゼント中•グ 


PRO II 

@ セット： CZ -653 C + CZ -604 D - 


124回 i 


••を価 W 379.8日 [)► 特化 （《 4* はが下 


ち)セット： CZ -653 C + CZ -605 D . 

I 12回！— 26.800 1:24凰ユ 14 J 00 [36画口 


••巧価 >1^00.000 ►特優（‘ 


60面 I 

•接はわ下 


‘ C ' ‘セット 2 CZ -653 C + CZ -613 D 


e：w I 


••を価 V 420.000> W « i <« HftttlrtWHnF « Ls ) 


.かセット ： C 之- 653 C + CU -21 HD . 



••ホが¥433.000 ►轉 1■(巧任はが®化下八、） 

1 12旧 1 ? 

I 24固！ ？ 

1 36巧 1 

? 

1 48曲1 ? 1朗回 ？ 

PRO II-HD 





，みセット： CZ -663 C + CZ -604 D . 



•■巧価 V 489.800 ►巧 価【化なはわ■な下 々 Lv ) 

1 12回 1 ? 

J 24圓1 ? 

1茄回1 

7 

1 48旧 1 ? 1 60圓 1 ? 1 

B セット： C 之- 663 C + C 之 -6050. 



ホ化 ¥ 510 . 000 ► #% « ( « » はお <IS 下 ♦ L sJ 

1 12回 1 34.100 

1 24回 1 17.900 

1 36回 1 

12.400 

1 48回 1 9.600 1 60回 1 8.100 1 

C-’ セット： CZ -663 C + C 之-6 口 D . 



•巧価¥ 530 . 000 ► か® (巧なはわ言お下*い。） 

12回 1 ? 

1 24固' ？ 

、 36回1 

7 

48回； ？ 60回' ？ 


000 ►か 価（価なはわ«は下 い,） 
? 60回 ？ 


SUPER-HD 

セットでお頁い上げの方に、 
•ディスケット10枚"! 

•ジョイカ-ド 2 ケ トレゼント中•グ 


SU 戶 E 円 - HD 

み)セット： CZ -623 TN + CZ -604 D - 


~1 36回 I 


••ま価 ¥592.日00^#巧（化《はゎ電化下夕^〇 


ち)セット： CZ -623 TN + CZ -605 D . を価 V 613 .000 ►か® (巧な U 

1 2田1 I ?_ に24巧 [ ? — し 36田!] ? i 48 回 I ?_: — 6鸟鸟 


?1 I 60旧] 1 

扣 ►巧 巧（巧なはが UiTF 


1 C ) セット： CZ -623' 

I 12® T ―^70で 


1 TN + CZ -613 D - 


.DI セット： CZ -623 TN + CU -21 HD - 


1 2 AM 1 ~2?.5 QQ ~ I さ 61 B 1 I 15.500 HigEl |~ 


••巧価 V 633. 000 ►巧 他（価巧はわ電化下を い o ) 


リ —. J 卯— L が)圓卫 _ LQ . 1日り」 

000 ► 林化< 化な U わ«化下さい..） 


•.ホな iV 646.000 ►林 值1<化な I 
.600 


X 郎邮日シリーズ〜 P 居 A スペシャルセット = 限定誌上販売 // 



台数限定■送料、消費税込み 


EXPERT 


巳 XPERT-HD 


PRO-HD 


セットでおち上げの方じ、 

参ディスケット10枚•ジョイカー ド2個プレゼント中 

• CZ -602 C + CZ -6 I 2 D . 定価 ¥ 475,800 ►特価 ¥306,000 

• CZ -602 G + GZ -604 D . 定価 ¥ 450,800 ►特価 ¥300,000 

• CZ -602 C + CZ -605 D . 定価 ¥ 471 ,000 ► 特価 ¥320,000 

• CZ -602 C + CZ -6 I 3 D . 定価 ¥ 491 ,000 ► 特価 ¥336,000 

• C 7-602 C + CU -2 IHD . 定価 ¥ 504,000 ►_ 特価丰% 538,000 

• CZ -612 C + CZ -6 I 2 D . 定価 ¥ 585,800 ► 特価 ¥375,000 

• CZ -6 I 2 C + CZ -604 D . 定価 ¥ 560,800 ► 特価 ¥369,000 

• CZ -6 I 2 C + CZ -605 D . 定価 ¥ 目81,000 ► 特価 ¥386,000 

• CZ -6 1 2 C + CZ -6 I 3 D . 定価 ¥ 601 ,000 ► 特価 ¥403,000 

• CZ - 6120 + CU -2 IHD . 定価 ¥ 614,000 ►特価 ¥407,000 

• CZ -662 C + CZ -6 1 2 D . 定価 ¥ 527,800 ►特価 ¥339,000 

• CZ -662 G + CZ -604 D . 定価 ¥ 502,800 ► 特価 ¥333,000 

• CZ -662 C + CZ -605 D . 定価 ¥ 523,000 ► 特価 ¥352,000 

• CZ -662 C + CZ -6 I 3 D . 定価 ¥ 543,000 ► 特価 ¥368,000 

• CZ -662 C + CU -2 IHD . 定価 ¥ 556,000 ► 特価 ¥372,000 



8/15〜9/15 


X - けーボ zni 特別ご提供品 // 「台数限を 


お近くの方は 
本体単品で 
ビジネスソフト 


• CZ-888C+CZ-860D + M.2HD ( 1嫩）/:备三な是。 


を価 ¥269. 600 ►特価 ¥164,800 

(ボーナス併用も有ります TEL 下さい） 


•パソコンラック@3段 

\プレゼント中 



送料¥500 


口回 

14.400 

2徊 

7,600 36回5,300 

48回4 .100 60回 

3,400 


を価 ¥9. 500 ►巧 価 >1¢7.801 
•ASCII STICK 

を価 ¥6. 800 ►特価 ¥5. 5ひ 



3 ER STICK 

■8NJ2 
i¥ 23.800) 

:価// 

500 (さ巧’;肖黄税込み ¥19.570) 



PQ 3 A 超低金利クレジッ h をご利用くださいグ 


•本広告の巧栽のおおの価格じついては、 ミ 肖巧税はままれてわりません。参営業時間=平日 AMICKOO へ PM 7:00、 日祭 AM 10:00 〜 PM 目:00 


























































































































































朋金一括でも'申し込みの方） 

•商品名およびお客様の住所•氏を•電話番号をご記入の上、代金を当社まで、現金 
き留でお送りください。ヴリンター•フ□ッピーの場合、本体使用機種名を明記のこと） 
〔銀行振込でわ申し込みの方〕 

•銀行振込ご希望の方は必ずも'振込みの前にわ電話じてお客様のご住所•わ名前 • 
商品る等をお知らせください。 

(巧 信扱いでも'振込み下さい。） 

〔クレジットでお申し込みの方） 

♦電話じても'申し込みくた'さい。クレジット申し込み用紙をお送りいたしますので、ご記入 


• をか日 / 毎週水曜日=第3水懼‘木曜は連かとさせてし 、ただを 



1 ブ *〇 OTACTcr oorvcou* 、/^>>ゥ n グ、い . づ^/麻 乂 co ム ikM 

1 と S な 1 Ar ド nriUboJs ver と . U 、 ✓ rn rj . 化 IHD ♦ do , uuu 琴听 M の ザ 

1 ブ，〇 TDIDLJr\M V 1 し々つ . . 'U つ O 4i4/i1l ； W 

1 么 S 1 パ 1 ド MUIN T アンプ 7 レノフノ r 、 / アっ卜 J 化 1 脚 * 03,0 UU 琴 曲子 

1 だ、 . ムリ ； W 1 〇 

J ✓'ゾ / ホ、/、、///、 1’ イ . 

KAMIKAZE (サ厶シング-グッド） . 

EW & EI (イースト） . 

C & Professional 戶 ack (マイクロウェアジャバン） • 

Final Vor 3.2( エーエス ピー ) . 

DATA 户 R 068 K C 之 220 BS . 

CARD 戸 R 068 K CZ 226 BS . 

C compiler 戶円 068 K C 之21 1 し S . 

OS -9/ X 68000 C 之21 9 SS . 

AI -68 K C 2234 し S . 

TH 巨福袋 V 2.0 C 2224 し S . 

SOUND 戶只 068 K . 

MUSIC P 只 068 K 02213 MS . 

Sampling 户 R 068 K C 之2 ISMS . 

luu ▼ • 。 , 〇リリ ^^ •nr 1 UU -r- 

. 巧価¥ 68,800 ■►巧 化¥ 

. 定価 ¥ 38,800時! H »« B ¥ 

. を:価¥ 58,800時 巧«6¥ 

. 巧価 V 38,000 吟巧価 ¥ 

. を価 ¥ 58,000 ■♦ P & A お価 

. 巧価 V 29,800畔 TE し下さい./ 

. を価¥ 39,800 ■♦併 価¥ 

. 巧価¥ 29,800今 P & A 巧® T 巳し下さい' 

. 巧価 V 188,00 D - fW 価¥ 

巧価 ¥ 9,900今 巧価¥ 

. 定価 V 15,80日 ■♦特化 ¥ 

. ま:価¥ 15,800 巧化 TEL 下さい- 

. ま:価 V 17,800 •♦巧 価¥ 

MUSIC-studio PR 068 K 237 MS ... 

MUSIC ■戶 R 068 K 〔 MIDI ) 247 MS . 

New-prinl Shop 22 IHS . 

Communication 223 CS . 

C - TRAC 巨 68 Ver .3.0( キャスト） . 

サイクロン巨 XPR 巨 SSa 68. 

G 68 K Ver 2 PRO . 

xuicr irii c 口 / n イ、， ^ つみ / 、 . 

. を価 ¥ 28,800 ■♦ iHH 面 y 

ま:価¥ 19,800今 P & A 巧価 

. 巧価 V 19,800 -^ TE し下さい。 

. を価¥ 98,000今 巧価¥ 

. 巧価 V 98,000 •♦が 価¥ 

. 巧価 V 22,000 ■♦巧 価¥ 

1 Me. ド 1 しじ K パ Uh t な oU け、 U—I ン乂てム X J 

ハ、*■/ " - /4^ 心、，、■/つい . 

. 化1の* と啤巧 1化< 

. :な V / つ〇 ix V / 

1 W ✓ V -i / / / r / . 化 luu T CO , 曲で 

I ，. y>»N O ionc*\ .... ... . / 正 vy » ， rx W 

/、 の w ィ w い〇广 o /. 

つ••二，*•々バし". kV 々— 、•二- #1 1 し 一、 . 

. 化 IWi ， 1 , , OUU 叩 マ巧 1 ので 

ィ^/ツノ/、レツ r 、ミユ ンの J レノマノ） . 

. 化価 V 19,800時 的 K 面 V 

Hyper word C と-25 IBS . 

•ゲームソフト 20 %OFF OK ク <— がソフト除く） 

. 化他 V 39,800 吟が価 V 

周ぶ機器コー 

ナ ー( 送料 Y 1,00 日） 

@ CZ -8 NSI . 

. を価 V 188.肌0 ►特価 ¥145,000 

. ホが R M KQ が fe 佩^ gy 1 rtoo 

cB ) C 之-目 V 下1 . • 

. ホのお w 〇〇 inn ^ 料が fi 乂 クん〇〇〇 

を jC 之-6下 U . 

必 BF -68 PRO . 

お CZ -6 BEI . 

. を価 V 19.800 ►巧 価 ¥ 15,500 

. を価 V 35.000 ►巧 価¥ 26,500 

. ホ佩 V ス〇 が佩 M 〇〇 

(©C 之- 6 B 巨 IA . 

. ホ佩 V 7〇 Anok 给佩 V 

1感 C 之- 6 B 巨2 . 

0 CZ -6 BE 4. 

巧 》 ion ザ , OUU 戸 イザ'!脚 v / 

. を価 V 138.000 ►巧 価 ¥107,000 

. ホ佈 W AO Qfink 轉佩 V つな000 

CE ) c 之-目 B 円 . 

化1の * 4づ ， OUU > 巧1ので 〇〇9么 WU 

. ホ / RTi V 7 Q QOnk 始イ flfiV d 

Q ) C 之- 6 BPI . 

. 化1のザ f ゴ， OUU ，すが 曲す 〇 1 jKJkJU 

. ホイお W 7 C onn ^ 梯佩乂 ク QrtO 

( K ) CZ -6 BMI . 

. ホ佩 一 QO nnnk 换佩乂 f\7 ち no 

之-目巨百1 . 


轉 AN - S 1 Q 0. 

. >£.llUj T JO , OUU 尸 i 巧 1 UIJ 于 ^〇9 Www 

. w A A onn o tz r\f\r\ 

UX ) レム-〇ご UI . AXLIW T • OL # WT で IUU す 一一 

1 /iscx A ， 〇 •"■ fc 一つ . . . . . . w cc onn \ 

vy レム- or レ。 .. 

を) CZ -8 戶 C 4. 

◎ C 2-8 PG 1. 

luu ~r りん。りり 1 

. 定価 V 99 .卵 0 化側 

. を価 ¥13 D . 日。。 

(巧しと- . 

嗟 ) CZ -8 户 K 10 . 

め CZ -6 PVI . 

( Q ) IO -735 X . 

. ^ 1 DU • UUU 1 

. ま:価 ¥ 97.800 ) 

. ま:価 V 198.000 ►お 価 ¥153,000 

. 巧価 V 248.000 ►お 価¥190,000 

. み y ： R ： W 〇〇 onn イ〇 

W ノレ 厶 -OO こ >1 . At luu T ムん ouu 1 マ luu す 1 口,、 rww 

W P 10-6 BEl - A ( l /0 DATA ) I X PIO -6 己 E 2-2 M ( l /0 DATA ) | ,Y PIO -6 曰 E 4-4 M ( l /0 DATA ) 

1 ……ミ任 y 25.000 ►巧 化 ¥1 8,200 I ……ミ怔¥胡.000 ►巧 任 ¥36,800 I ……ま化¥班.000 ►巧值 ¥64,800 


中古パソコンは P & A じおまかせク 


アイテム 

• HXD-040(40MB/23ms). を価 ¥118,加0 ►特価 ¥ 88,000 

• HXD-042 ( 増設用） . 定価 ¥ 128, 日 00 ►特価 ¥ 95,000 

アイテック 

• ITX-640 (40MB/ 28ms). を価 ¥ 158,日〇〇 ►特価 ¥ 101,000 

• ITX-680(80MB/20ms). 定価 ¥198,0日0 ►特価 ¥131,000 

• CZ-8PC3 (カラー漢字2がット熱転写プリンター) 

定価 ¥65,800 . 特価 ¥39,800 

• CZ-8PK8(24 ピン漢字プリンター136お子） 

ま:価 ¥ 152,000 . 特価 ¥69,000 

• CZ-8PC4 P&A 特選//(カラー’;美字48ドット熱ま i 写プリンター） 

を価¥99,卵0 . 特価 TEL 下さい 

WMD -24 FS 5( オムロン） . 定価¥ 49,800 ►特価 ¥ 34.800 

(目) MD -24 FS 7( オムロン） . 定価¥ 64,800 ►特価 ¥ 45,000 

I ( C ) コ厶スター2424/4 ( NEC ). 定価¥ 如,800 ►特価 ¥ 28.000 

(@ コムスター2424/5 ( NEC ). ま:価¥ 44,800 ►特価 ¥ 32,000 




®3 段 

875(H) 


>^1;、©4段 ^^^©5 段 

I 稱’ 1320( H ) JP 1280( H ) 

X 600(D) X600(D) 

お. |- X630(W) X620(W) 

¥9,000 夕 >¥12,000 ^*^^¥15,000 


X580(D) 
X610(W) 


• X - 68000 セット . ►¥210,000 • CZ -856 C - 

• X - 68000 ACE セット ...>¥240,000 • CZ .870 C ... 
* X ;1 夕ーボ Z セット ►¥100,000 ^CZ 郎 1 C … 

• X . K 3/30 セット . ►¥ 39,000 • CZ .820 D … 

• CZ -822 C . ►¥ 1 5,000 参 CU .14 GB .. 


• CZ -830 C - 


>¥ 25,000 • CU 14 BD ►¥25,000 


► ¥45,000 • CU 14 AG 2 ►¥30,000 

► ¥55,000 • CU -14 H 2 ► V 30,000 

► ¥65,000 • CZ -8 PC 2 ►¥25,000 

► ¥10,000 • CZ -8 PK 6 ►¥32,000 

► ¥ 5,000 



♦現を巧留及びが巧振込でお申し込みの方は、上記商品の料をじ3%加ちの上て•お申し込み下さい。詳しくは、わ電話でわ問い合せ下さい。 


の上、当社までお送りください。 

•現金特別価格でクレジットが利用できます残金のみに金利がかかりま1; 
♦1 回一84回払いまで出来ます。但し、晒のお支払い額は¥1000円上。 
超低金利クレジット率 


巧す備日の場合は翌日じなります） 


回数 

3 

6 

10 

12 

18 

24 

36 

48 

60 

72 

84 

手数料 

2.5 

3.5 

5.0 

5.0 

9.0 

10.5 

14.5 

19.0 

24.5 

32.0 

38.5 



P&A 本店 

朴、ィユ， 


その巧で 巧 価現を 頁 取り •な 価下取り OK . グ 


■まずはわ巧お下さい。 ■下取り•賈取りでお急ぎの方、直接当社に来店、また 

03-651-1884 FAX ；03-651-01 41 は、宅急便じてお送り下さい。 

参下取りの巧合 . 価なは常にをかしていますので査定おをわ巧話で確热して下さい。 

(差測よ、 P & A 超低を利ク レジ‘ソ トをご利用下さい〇) 

♦買取りの巧合 . 現品がちき次第、2日内に頁取りをま員を連絡しお込み、又は書留 

でお送り致します。 


♦近郊の方は、 P&A 本店まて、直接お持ち下さい。即をじて、 ¥1.000.000 まても'支仏い致します。 


《便利な超低金利クレジットをご利用下さい》 

•巧々¥1,000円から 0K •グ•ボーナス仏い 0K (夏ネ10回まで 0K) 
•支私い回数1回〜84回♦お支払いは、8ヶ月先からでも 0K. グ 


マイコン 

ビデオ 

ビデオテープ 


がぶなかヒ ー• アンド•エー討:親 Voo 〜 pm 7:00 

下124東方、都葛飾区新小岩2下目1番地19号 日祭: AM 10:00 〜 PM 6:00 

巧 03-651-0148( 代ぶ3 6510141 


アフターサービス万全 

全商品巧証が。専門の巧当者がわを梯の立巧でタオ応します。 

ネリが不を、輪送トラブル etc . 

万が一初期不を、輪ぶトラブルが発生しました際じは、良 D 交換させていたどきます, 


〔振込先）住友銀行新小岩支店 

当 No. 263914㈱ピー•アンド，エー 


通信販売お申し込みのご案内 


送料 ¥2. 00日 


P & A 特選パソコンラック（送料無料） 巧お自を(キャスタ—付) 


モデムコーナー（送料¥1,日 00) 


紙付）限を5を新品（送料¥ 


• 000 ) 


'84 回仏いまで〇んグ 


★頭金なし/★即日発送 


み M 掛ま価 t ■ルでご奉仕夕 

厂 :打' こ—' \ — 

t 寄り下さし、。専門係員が'説明いたします。 — 

面で受かします。詳しくは電話にても♦問合せ下さぃ。 fc ゴ I y 

面の20%引き OK /下 EL ください 0 し »一" ん 一 • '人 

X 68000 用ソフトコーナ ー( 送料1ヶ〜5ヶまで¥500) X 目8000用ハード ディスク（送料 ¥1,00日） _ 


LJ 


JR 巧かちが 


超特価でクレジットザ組める夕 


あ巧迪リ 







































































































































カラ—イメ—ジスキャナ （ WD -05 HS ) での取り 
込み例。なお，アダプタは一部手苗しが必要。 


下巧きをスキヤナで巧み込み，点列エディタを巧 
って上からなぞっていく。そうして;’みらかな画が 
データが手軽じ作れるようじなる。 



画があり込みした自が画にランダムフラクタル化 
理をかけてみたところ。おくかけると絵画脚の巧 
現となる。 


通 


8月号で発表したアンチエリアシング用 
のグラフィック関数の応用例と新しい関 
数群。65536色でより滑らかなを調表現 
と，手描きやが来のグラフィック処理で 
は難しかった自が物の表現に挑戦する。 
65536色のグラフィックはまだまだ可能 
性を秘めていることがわかるだろう。 


な品位グラデーシヨンの例。 B 5538 ををフルに使え 
ばこの程巧のを現力は当が。内部処理は24ビット 
なので非常じ巧らかなを化となっている。 





於ぃ 卜 - r 

— 


グラデーシヨンで巧いた絵をラ 
ンダムフラクタル処理で加工し 
たもの。巧のような自がな棋が 
ができる。同じ系例のフラクタ 
ルでも，フラクタルのかけ方を 
だんだん強くしていくと，絵も 
どんどん進う形じを化する。特 
巧が)果としても面白い。 








S/J/iaSY Graphic Gallery 


ADVAN 刷 2D 帥 APHICS お兼 



20 Oh!X 1990. 9. 

























ahiXI Graphic Gallery 


学‘‘ 


D 目 G A • CG アニ乂ー シヨン讚座 




画像2 ぶくもはっきり，くつきり，わあキ•レ•イ 




画な1 


巧への映り込みの 


例。位 S 関係をよ 


く見てください 


画な3空巧遠肢去なら诺くはかすんでリアリティが出る 


モデラーな津のアップデータ 
いや.なんとも，夏ですねえ 


画像4 


コジラの親子はなかよ 


よし，てなカンジ 


かな（ちがうつて) 


今月は皆さんからのご要望にお応えして画像を大 
映しでがせてみました。これで細かいところの処理 
や，全体的なバランスなどがよ〈わかるとあいます。 

D 6 GA の連載も1年を過ぎ，皆さんもぶお的な 
ことは把提できたとあいますので，今月はちょっ 
と奋をな巧術を紹介してみました。 


Oh!X Graphic Gallery £1 



















O/TOU 州 


SOFTWARE INFORMATION 


mmt 

mill 

今月は署さのせいかゲームのほうもちよっ 
とひと休みってカンジかな。とりあえず， 
今回は先月号で間じ合わなかったダームを 
中ム、じ紹介していきます。てなことで，今 
巧もヨロシク！ 




提巧の決断 

光栄の新作は太平洋戰争が題材の シ ミュレ ーシ ヨン。 マルチシ 
ナリォ方式を取り入れている。歴史の勉強ができちゃいそう。 



—話 括の ソ^^ 

あ〜，寒い寒い。なんでこんなにクーラ 
—がききすぎるほどきいてんだろ，この述 
物は。わかげで外との温度差がやたら激し 
くってカゼひいちやったじやないの，もう。 
離かに新しいからきれいはきれいなんだけ 
どね，このビル。 

さて，今月はスペースが少ないダー！ 
全部紹介しきれるかなあ。をれじや，スぺ 
—スも少ないことだし，く、'だく、'だいってな 
いで，さっさ^進めていきましよう力、。夏 
化みも残り少ないし……ね（だって宿題全 
部終わった人って少ないんじやない？を 
ろをろ焦ろうね）。 

トツプバツターはわ馴染み光栄のシミュ 
レーシヨンゲーム 提督の決断。 これは太平 
洋戦争を適材にしたもので，プレイヤーは 
罔本軍か連合圃軍のどちらかを選択し，太 


泰若白然，ポピュラスI 


1 

ポピュラス （前回順位） 

1 

2 

ダンジヨンマスター 

4 T 

3 

グラナ ダ 

2 i 

4 

天下統一 

5 t 

5 

クォー•ス 

-初 

6 

ギャラガ188 

-初 

7 

スーパーハングオン 

6 1 

8 

ソーサリアン 

lot 

9 

トンネルズ&トロールズ 

-お) 

10 

ワンダラーズ.フロム.イース 

3 i 


相変わらずポピユラスがトップです。2位ダ 
ンジヨンマスター の票の 2. 83倍というからわ話 
じならない。来月からプロミストランドの票も 
入ってきたらどうなってしまうのやら。 

しかし，ポピユラスを僅差で追っているソフ 
卜が I 本た•けあります。それは " SX - WINDOW " 
だつ！ 「安い」「へ夕なゲームより楽しめる」 
「遅い（？）」などなどの声が巧かれます。ほかに 


平洋の利権を巡ってドンパチするわけでず。 
当然シミュレーシヨンゲームだから頭を使 
う。どんな作戦を立てる力，が，このゲーム 
の攻略のポイント。友達^ 2人でも遊べる 
のもうれしいですね。これはすでに発売中。 
ホ 巧 号で詳しくやるっらりです。さて，キ 
ミならどんな決断を下す？ 

2番手は T & E の ルーンワ_ス。 このゲー 
ムもすでに発売されているので，もうプレ 
イした人もいるはず。プレイヤーの斤動に 
よって エンデイングが 変わる マルチエンデ 
ィング 方式を採用した 民 PG 。 これからじわ 
じわ！:人気を集めてきをう。これもホ巧号 
で詳しくやります。楽しみにしてて。 

をれではザインソフトの バルーサの復 が。 
このゲームももうすく、、発売される予定。画 
而を見るとザインらしさがよくなわってき 
ますね。このゲームはトリトーン*フアイ 
ナルの続編です。 

さあさあ，前からみんなの興咪をひい 
ていたシステムずコムの 閱の血族， これも 

ゲームが外では C コンパイラ， Z’sSTAFF PRO -68 
K の票もをいですね。 

5, 6位はそろってゲームセンタ—からの移 

植が巧登場。クオ_スはゲームセンターでハマ 
っ ていた人のハガキが多いのが特徴で，巧戦が 
楽しみという声も。対してギャラガ’88はグラフ 
ィックがいい，手軽に楽しめるということです 
から，ゴテゴテせずにシユーティングの王道を 
ゆく姿勢が，好印まを与えたということでしょ 
うか。 

トンネルズ&トロールズは， 璧 富なテキスト 
と数多くのイベントが飽きさせないという声で 
9位にランクイン。しかし上は強をぞろいでツ 
ライかな。 

と二ろで，ソーサリアンがランクアップして 
るけど，このハガキの大半に「ランクから巧ち 
そうだから」て 書いて あるぞ。う一む。も'そる 
べきパワ ー 。 今後はイースがをちそうだから， 
ファンのみんな頑張ってハガキを送ってくれた 
まえい。 （浦） 
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ルーンワース 
マルチエンデイ ング 
方ホ採用の RPG。 も 
ちろんそれが外にバ 
ッド エンデイ ングも 
あるけどね。口の悪 
い勇者っていうのも 
珍しい。思わず笑っ 
ちゃいます。操作性 
はなかなか GOOD。 と 
つつき やすい ゲーム 
といえるでしよう。 


バルーサの復巧 


巧の血族 



PINBALL-PINBALL 




雀ち2 


とうとう "1" が発売されました。超能力 
を待つ少女魅由が，殺人事件を解決してい 
くアドベンチャー。取り込み画像を駆使し 
た才ープニングやビジュアルシーンは店卷 
ものです。エンディングが終わるし9巧 
に発売される予定の完結編の予告まで入っ 
ていたりして，なんとなくトクした気分に 
なれますョ。 

新規参入を社日本ソフテックからは PIN 
BA しし ‘PINBA しし 力 3' 発売される予定。タイ 
トルを見てのとわりピンボールゲームです。 


f 本させることによってクリアできるい 
ったパズルゲーム。いつも同じ牌を見るん 
じゃ飽きちゃうから，牌の種類はフルーツ， 
動物，英字，昆虫などといろいろ用意され 
ています。すべてマウスで操作できるのら 
X 68000 用らしくていいですね。 

さてし発売はまだ先だけれど着々と進 
巧して いる 2 つの ゲームの画面を紹介しま 
す。 まずは システム サ コムの ジェミニウイ 
ング。をろをろ遊べるものができてきまし 
た。上がりが楽しみですね。をして M . N . M . 


Software のペルセウスの冒険。これは横ス 
クロ—ルタ イプの民 PG 。 もう少ししたら詳 
しくゎなえできをうです。 

をの ほかウルフ.チームでは X 68000 尊用 
仕様の アクションゲーム アクシスを開発中 
だし， ヘルツでは，アクションゲーム ダイ 
ナマイトデュー クを移植開発中だし， おが 
王 II はもうじき発売されをうだし。 

なにはともあれ活気のあるゲーム界。ホ 
巧はいったいどんなゲームが出てくるやら。 
それじゃ，また米巧をわ楽しみに。 


サンプル版を見る限りではなかなかよくで 
きているようす。期待しましょう。 

で，ダンジョン マスターが いまだ好評を 
得ているビ クター 音楽産業からは，雀 ま 2 
が発売される-了•定。推論型人工知能を搭載 
したことで麻雀フアンの間で人気だった力':， 
今回の バージ ョンアップでますますをの傾 
向にキ白車がかかりをう。なんたって今回は 
「強知能版」。一層本格的な麻雀が楽しめる 
とあっては，麻雀フアンでなくても興味 
津々てところでしょう。8月中に発売の予 
定です。 

先巧号でも紹介したワールドコート。い 
よいよ SPS から発売されました。このゲー 
ム，嚴初はなかなかタイミングを合わせる 
のが雛しいんだけど，慣れてくるとエース 
が決まったりして壮快をのもの。サンプリ 
ングで スコアを碟って くれるのもなん t な 
〈うれしいし。このゲームは要2 メガです。 

で，新規参入のポニーテールソフトでは， 
パズル ゲームユニオ ンが‘陕調に關発されて 
いるもよう。画面上にある同じ牌と牌を合 
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♦TUNNELS 良 TROLLS 



テーブルトークの 
興奮を XI でも I 


Mizuno Kazuo 

水野一雄 


かの有名なテーブルトーク RPG「TUN 
NELS&TROLLSj が'ノくソコンダームイヒさ 
れ， XI および X 68000 版でも発売されまし 
た。特に XI ューザーの方々じは興味津々か 
もしれないけど，お気に否しますかな……？ 



X 郎邮〇用日" 2 HD 版3が組9.邮日円(税別） 
XI / turbo 用日"2□版 IS 棚 i 9.日日0円(税別） 
スタークラフト 003(9 邮)明日日 


ついに， 「TUNNELS 应 TROLLS」 ル: TF 
T&T) が江I,ました。テーブルトークでプ 
レイしていた私はすっごくな當しい。 X68000 
はデイスク3枚組ですが，XIではなんと12 
枚組です（超大作ともいえます力す，いゃな 
予感がするでしよ）。をれでは，さっそくい 
ってみましよう。 

テーブルトークで运 Tj . 

皆さん，テーブルトークはご存じでしよ 
う力，。備単にいうし数人で対話をしなが 
ら進めていく民 PG です。映闽 「E.T.」 の最 
初で子供たちがピザを注文しながら遊んで 
いたのがをうです（あれは D&D， ちなみ 
じ，あの「ウイザードリイ」は D&D のダ 
ンジョンでの冒険を備略化しゲームじした 
もの。知ってた？）。 

さて 「T&T」 ですが，これは本格的で 
ありながら， システム や ルールは すごく簡 
単（柔軟性がある）なんです。ほかの民 PG 
はちゃんとしたパッケージにルールブック 
などが入っているものが多いのに対して， 

これは必要最低腿のルールが書かれた义库 
本1冊（消機税実施前に680円だった）で出 
ています。をして 「T&T」 には，ソロア 
ドベンチヤーなるものがあります。これは 
いわゆる ゲーム ブックで， 「T 色 T」 の世界 
(もちろん，ドラゴン大陸が舞台）をひと 
りでも遊ぶこじがでさます。これも，簡単 
なシステムの恩恵といえるかもしれません 
ね。興味のある方はやってみるとよいでし 
よ 


とあります。探索していれば賈に掛かりに 
くく，些細なことじも気づく確率が增しま 
す力 3 '，やっぱりをれなりに時間を消赞しま 
す。走っていれば速く移動できますが，危 
険にあいやすく ステータス も回復しないと 
いうことじなるので， TPO に応じて使い分 
けが必要です。 

戦關はタク ティカル コン バッ ト方式です。 
戦闘がのメニューには， 「Auto Fight」 
「Manual Fight」「Run」「Control」 があ 
り， 「Auto」 は個々のキャラクタが手にして 
いる武器で自動戦剛します。絶対勝てる相 
手の t きには便利でしよう。 「Manual」 は 
個々のキャラクタの動作を決をできます。 

戦脚は敵，味方の区別なく敏捷性 (SPD 做 
の高いキャラクタから順に行動します。 

動作中のメニューには「攻撃する」「魔法 
を使う」「アイテムを使う」「飛び道具を使 
う」「体当たりする」「防御する」がありま 
す。ここで面白いのは「体当たりする」で 
しよう。これは文字どおり相手に体当たり 
をして，うまくいけば相手をふっ飛ばした 
り気絶させたりできます。またを意する点 
として，「防御する」 la 外は味方の位置も考 
えないし睐方にも寮夕響を及ぼしてしまう 
というこ^ (仲間をな撃したり，魔法で眠 
らせたりしてしまう）があります。 「Run」 

は皆さんわ馴染みの"逃げ"です。をして， 
「Control」 はメッセージの表示速度の変更 
など。ここはXIと X68000 で少し異なって 
「アニメー シ ヨンのオン，オフ」 なんてX 
68000らしいものもあります。 


八ソコングーム fT&Tj 1111111 

この ゲームが どんなものか，システム， 
キャラクタ，アイテムにかけて紹介してい 
きましよろ D ’ 

まずはゲームのシステムについてです力す， 
ウルティマ型の本格的ロールプレイングゲ 
ームです（これは見ればわかるか）。あっ， 
ウルティマ型って知っていますか。これは 
ゲームの世界（マップ）を上から見下ろす 
タイプの RPG の総称ですけホするものにウ 
ィザードリィ型があり，これは 3D ダンジ 
ヨンタイプのものですカミ，両方 t もすでに 
死語？）。単に上から見下ろしていても芸が 
ないので，このゲームではアドベンチャー 
フィールド（マップ）を斜め上方から見下 
ろすという方法をとっていまず。初めのう 
ちは違和感があります力5'，惯れると結構見 
やすいと思います。 

パーティの移動方法もテーブルトークら 
しくなっていて，「普通にホく」「探索しな 
がら歩く」「走る」「登る」など，いろいろ 



〇 



裝備を身じつけると画面上のをも変わる 
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ところで，このゲームでは時間の概念が 
あり，ゲーム進斤と密接に関係してきます。 
この世界では1年は12力ちで四季があり， 

1週は7日と我々の世界とあまり変わりあ 
りません。日付，曜日によって生活が変化 
するので，プレイヤーの対応次第では冒険 
じ有利になったり不利になったりします 
(具体的にはな料の値段が巧により変化す 
るなど）。が脚は1日24が間です。時閒は商 
店の當業時間，ステータスの回復などじ脚 
係してきまず。 



言語を教えてくれる人がいた，誰が習わうか 



二れが槪關画面だ！ バシバシ 


キャラクタについで ■ 

やはり民 PG なので，定番のキャラクタメ 
イキングがあります。しかし 「 T & T 」 で 
は NPC (ノン •プレイヤー•キャラクタ） 
というものがあり，すでにシナリオ中にキ 
ャラクタが用慈されているので，それを使 
ってプレイするこ t もできます。でら，自 
分の分身 （PC プレイヤー•キャラクタ） 
だし，ゲーム中で役に立つときもあるかも 
しれないので，作成してわいて損はないで 
しょう。 

キャラクタは4人まで作成できます。作 
成できる種族は Human , Elf , Dwarf , Hobbit 
の男女の 8 種類，職業は Warrior , Rogue , 
Wizard の3種類です。また，キャラクタの 
容姿（グラフィックで表示される。 Elf の女 
性はいい力3'， Dwarf の女性は…… ) も遽がで 
きます。 X 68000 ではきれいです力5'， XI で 
はこんなものかなという程度です（まあ， 
をんなじ重要じゃないけどね）。 

ところで，テーブルトーク 「 T 应 T 」 で 
は穂族にフェアリーやワーウルフなどのモ 
ンスターを遵択することらできるし，職業 
にも魔法戦-丄•がありました。これらはゲー 
ムバランスを崩しかねないので実現されな 
かったのでしよう。僧侶は 「 T & T 」 では 
扱いません。治嫌のけ兄义も赚術師が峭えま 
すから。ちなみに盗賊もある程度までの膽 
法を脂えられます。 

キャラクタのステータスには ST (体力 
度)， IQ (知性度)， LK (幸運度)， CON (耐 
久度 )， DEX (器用度 )， CHR (魅力腹)， 
SPD (速度 )， ADD (戦脚修正）がありま 
す。 ADDi ^ U 外はわ馴染みでしよう。 ADD は 
ほかのステータスより導き出される戦侧畔 
のボーナス点です。 

キャラクタ作成!背の解説はこのぶにして 
わいてゲーム中のことじ話を移します。ゲ 
ーム中にキャラクタを呼び出すと，ステー 
タスのほかに AGE (年齢 ）， Level (レべ 
ル ）， Hits Taken (防御点 ）， FOOD (食 
料 )， GP (金貨 ）， SP (銀巧 ）， CP (銅 


货)，健康が態が表示されます。 「 T 公 T 」 
では貨幣が3種類あり， 1 GP =10 SP 二100 
CP となっています。健康が態は8段階あ 
り， XI では文字， X 68000 ではちょっとし 
たグラフィックで表示されます。また，作 
成晴に選択した容姿も表示されます 。X 
68000では装備を変えるとこれが変化しま 
す（ XI の人，残念でした）。 「 T 狂 T 」 じは 
豊當な言語がありまず。誰もが話せる共通 
語のほか，エルフ語，ドワーフ語，ホビッ 
卜語，古代語（モンスターの話す言語)，獣 
語（動物の話す言語）など十数語あり，い 
ろいろな言語を習得することにより話せる 
相手が増え，冒険に幅を持たせてくれます。 

冒険するにはパーティを組まなければな 
りません。パーティは4人編化で PC，NPC 
の混在が可能なので，必嬰に応じて入れ換 
えることができます（入れ換えたキャラク 
夕はをの場でずっと待機している）。 

最後にアイテムじついてですカミ， 「 T & 
T 」 の特徴は武器の豊富さじもあります。 
短剣，直刀，曲刀，こん棒，斧，弓，槍な 
どの武器がすべて数種類ずっ揃っています。 
これだけある t 攻擊力の同じものがあるの 
で，「この武器は嫌いだが攻撃力があるから 
しょうがない」などということがなく，自 
分の好みで選ぶことができます。 

実際にやってみて II ■ 

テーブルトーク 「 T & T 」 のプレイヤー 
から見てもかなりいい化米ではないかと思 


います。テーブルトーク t •は異なっている 
ところがかなりあります力す，をれはしかた 
ないといって通り過ぎるこ t ができる程度 
のものだし野います。 

X 68000 版では(編集室で8時間程度遊ん 
でみただけですが)，これといって不満はあ 
りませんでした。ディスク交焕も起動がじ 
1回のみだし，ハードディスクにインスト 
—ノレして遊ぶこともできます。 

XI 版は（たぶん）初代でもまるだろうか 
らそれだけでらすごい。でも，不満もあり 
ます。ディスク12枚という大作であるから， 
(怒濤の）ディスク交換は避けられないと 
しても，1戦刚につき4回（のべ6枚）は 
飮迎できません。プレイ時間よりもデイス 
ク交換，アク七スにかかる時間のほうがは 
るかに長い気がします。これでは感情移入 
もへったくれもあったもんではありません。 
もう少しどうにかならなかったのでしよう 
力，。あと， Xlturbo なのにグラフィックに 
漢字を蕾いているではありません力>。パッ 
ケージにある「400ラインモニタ，漢字民 OM 
が必嬰」とは，どこで活かされているので 
しょう力’。また，両機種ともマウスを使用 
できますカミ，アイコン間が離れているこ！： 

むあり，移動風が大きくて使いづらい t こ 
ろがあります（マウスを使い‘的れていない 
せいかもしれないが)。この辺も考赚に入れ 
て もらって， 次'回 「クオータースタッフ J 
に期待したい t 思います（移植されるかな 
あ…… XI に）。 


感想 

かなり忠実にゲーム化されていますので，テ 
—ブルトークの 「 T & T 」 をタロらない人でも， 
霖囲なを巧わえると思います。だから，細かい 


ことをいってもしかたないと思いますのでいわ 
ないことじします。 

また ，X I でも走ることは大いに称巧すべきこ 
とだと思います。 XI ユーザーの皆さん，怒ホの 
ディスク交換に負けず頑張ってくた•さい。 


X 68000 版 
シナリオ 
グラフィック 
BGM 

ゲームバランス 
「 T & T 」 らしさ 
総合 


(ホ巧* 10個） 

ネ本本本本本本 

本本本ネ本 

ネネ本本本本 

本本水本ネネ本木本本 

本本本本本ホ本本本 


XI /turbo 版 

シナリオ 

BGM 

ゲーム バランス 
「T&T」 らしさ 
ディスク閲係 
総合 


X68000 と同じ 
同ち 
〇 

かなり良い 

涙ちよちよ切れ 

ディスクさえ我巧すれば ◎ 
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•□-Again 


D>4gain 

Itfr tiK'JNi:-. 


キャラクタは 
巧巧をつ〈る 


Komura Satoshi 

ちホす聪 


—部に教狂的ファンを持っているブロンウ 
イン。そのブロンウインがミ舌躍する「第4 
の ユニット」 シリーズ も， はや第5弾。こ 
れで第1部 「 WWWF 」 編が完結らしいけ 
ど，どこまで続くんだろう……。 



X 郎邮〇用日" 2 HD 版がか！®日.邮日円(税別） 
データウェス S 巧邮 (9 郎 )1236 


やっぱりキャラクタな のだ^^^^ 

う一ん，う一ん，感動したぞゎ。やれば 
感動するぞゎし野いながら，やり終わって 
やっぱり感動するっていうのは作れをうで 
なかなか作れるらんじゃあありません。と 
いうわけで，第4の ユニット シリーズ第5 
弾 " D - Again " の登場なのです。いや，こ 
のシリーズはシナリオと演出が本当にい 
い！ しいっらながら感心してしまいま 
す。前作の第4の ユニット 4 "Ze が" では 
ほとんど詩のような閒み（本人は詩なんか 
書いた覚えはな L 、んだが……でもあれって 
本当は2ページ兒關きができるくらい分量 
があったんだよ）を書いてしまい，いまで 
は Oh!X の吟遊詩人とまで呼ばれるように 
なってしまった私なのであります力《，をう 
やって道を踏み外す奴が化てくるくらいシ 
ナリオ&演出がとてもよいのです。 

なんでこんなにシナリオも满出もよく出 
米ているのか？ をれはこのゲームがキャ 
ラクタを大事にしているからなんですよね。 
登場してくるキャラクタをあたからそこに 
本人がいるように，細かく細かく心理揣写 
をしていく，をしてキャラクタがひとりで 
じ話を作っていってしまうのではないか t 
いうくらいキャラクタが感情豊かになって 
いく……ということです。 

前作 ‘‘ Zer 0’’ ではブロンウインのキャラ 
クタがかなり形となって出ホてきたんです 
よね。をして，今回はらうひとりの少女の 
物語なのです。 

ちらずじなど • …ぃ ■■■ 

話は前作 " Zer 0" のエンデイングから。 
ブロンウインは統合軍の特務査察官じ任官 
されたのです。をして2週間の研修の後， 
彼女は局長から特載機構長官講衛のホ旨令を 
受けます。命令を遂行すべくパリへと向か 
うブロンウイン。 

しかし，パリに醫いたら着いたで，もう 
パニック，結構前途多雛なブロンウインだ 
ったりするのです。ま一，いっしよに 
化事をする S クラスエージエントの才 
ージスっていう巧がとんでもない奴。 

3度の飯より飯が好き，酒は昼間から 
かっくらう，ブロンウインを抱き力、力、 

えて地下鉄に乗り込むわ，挙げ巧の果 
てに自分のことを愛情を込めて"オー 
ジー"って呼んでくれだって （ ……わ 
しこいっ嫌い！）。本当にな務が遂斤 
できるのかなあって感じなのです。 

ジュネーブまでの特絲長官の護衛の 
途中，列寧の中でブロンウインととも 


に講衛の巧じついたオージスが話しかけて 
きます。 

「さて，問題です」 

「なによ」 

「次のヒントに当てはまる人は誰でしよ 
ラ？ 

し目は挪目で赤い瞳をしています。 

2. 髪の毛のをは青です。 

3. をの髮型はポ ニーテールです」 

「ダルジイ！?」 

「さっきホームじいたザ」 

「！」 

ダルジイがこの列車に乗っているのか？ 
WWWF は崩壊しもはや機能していない 
はずではなかったのか。ダルジイは何の目 
的でこの列車に栗っているのか？ はたし 
てダルジイの逆製はあるのか？ WWWF 
は本当に崩壊したのか？ をしてブロンウ 
インの前に立ちふさがる新たな敵とは 
……？ ブロンウインの運命は……！ 

をう，やっぱり今回のストーリーは第2 
話での登場 U 来ずっとブロンウインと戦い 
続けてきた，永遠のライノく、ル，ダルジイの 
わ話なのです。 

第4の ユニット 4 " Zer0 " ではブロンウ 
インに人格が化ホてきてひ i ： りで歩き始め 
た，というこ i ： を見せた話だったのです力 f ， 
考えてみるやっぱり，ブロンウインとい 
うキャラクタがおホ上がっていくうえで 
いちばん影嚮を受けた（わ互いに）のがこ 
のダル ジイ なんですよね。永遠のライノく、ル， 
ダル ジイ。 ブロンウインを光とすれば彼女 
は影といえるか备しれません。しかし，光 
と影は表裳一体。ブロンウインというキャ 
ラクタと同じようじ，ダル ジイ もかなりキ 
ャラクタが化ホ上がってきたんです。をの 
証拠に今圆じつはダルジイはこんな台詞を 
言うんです。 

「後悔などあるらの力，。後悔など……」 

これがクライマックスの感動へとつなが 
っていくんです。前作のエンデイングでブ 
ロンウィンが見せたあの笑顔。をして，今 



この人に仕窜を頼まれちやうのだ 
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回見られるダルジィのさまざまな表情。ブ 
ロンウィンカミ'「倏しさ」という言葉で表せ 
られる t すれば，ダルジィのをれは「強さ」 
なのですが，あの台詞が彼女のガラスのよ 
うな硬く，しかしもろい強さなのです。 

ま，^じかくストーリーは皆さん自身で 
じっくり^このゲームをやってみるのがい 
もばんでしようね。ぜひ，この感動のスト 
—リーを睐わってください。 

システムにっし、て I ■ 

あんまりストーリーの話ばっかりしても 
しかたがないので（下手すりゃ本夕ばらし 
じなってしまいかねないし，をれ/ごけは系色 
がしたくない…… ） ゲームのシステムの話 
をしましよう。 U よいっても，善ちゃんし 

「あ， PCM でサンプリングやってるね」 

「を 一 なの 一」 

「だって，これハンドクラップじやん」 

「を一なんだ一」（「あ一くしゅ」のじえ 
だか，おまえはっ！ あれも丽白かったけ 
どね） 

I ：いう間拔けなを話が成立してしまうくら 
い，音楽にもグラフィックにもセンスのな 
い私だからしてたいしたこ L はいえないん 
だけどね。 

画面写真を見るとわかるでしようけど， 
この " D - Again " は画耐レイアウト，プル 
ダウン メニ ューな どゲームのシステム自体 
は " Zew " そっくりなのです。 

別にをれ自体は間違いではないと思うん 
ですよね。だって，このシステム自体 t て 
^よく出ホてるし，このゲームを買う人の 
中のかなりの人が "Ze が"を買ってるでし 
ようからみんなが違和感なくゲームを進め 
るにはもっともいい方式だし野うんですよ 
ね。をれに演出 I り勺にも4でブロンウィンの 

と、理描写，5でダルジィの心理描写 . i 

同じようなこ^をやりたいのであれば I :て 
(> いい方法だし思うんですよね。私はこれ 
でよいと思います。 

ただ，唯一残念だったのが，あの第1話 
(第4の ユニット）か ら採用され統けてきた 



飛行機の中でたたずむブロンウイン 



なんじゃ，こいつは . ようし！ 

"デフォルメキャラ戦脚モード"（勝手に名 
付けてしまった力';， 2頭身のキャラクタが 

ちょこまか動いて戦う臘閱モードのこと） 
がなくなってしまったのでずよね。戦關モ 
—ド肖体がなくなってしまったわけではな 
くて， 2頭身キャラがちょこまか動くのが 
なくなって，化わりにメッ七ージにダメー 
ジの数^^!:が表示されるようになったんです 
けどね。 

う一む，蹄:;かにあの戦側モードは作るの 
が面倒だ t いうこ t は i : てもよくわかるん 
だけど，でもあれって t ってもかわいくて 
楽しかったのにな一（ちなみに私は第1話 
の戦 I 剑場晒 を 見て プロレス ゲームかし野っ 
たことがある。なつかしい思い出だ……)〇 
をれじ相手のダメージが数字で化ると敵の 
弱点がすく、'わかっちゃって面白くないんで 
すよね一。次回作ではどう-にかしてくださ 
いね。 データウェス ト樣。 

跳べ!アニ乂ーシヨン効 柔^^^^ 

さてさて，今回のシステムの最大の特徴。 
今回のシステムと前圆のとで決定的に違う 
のは ゲーム 中に アニメーシヨ ンが ある， と 
いうことなのです。 

" D - Again " は FM TOWNS では X 68000 
より2力ちほど先にけ',ているんですが，「第 
4の ユニッ トは今度から アニメーシ ヨンが 
ある。あのブロンウインが画雨の中で動き 
回る」という話を間いて，いてらたっても 
いられなくなり本当にブロンウインを心か 
ら愛しているのなら TOWNS を贸うしか 
ない！ でも，をんなおはないし……。ん 
力 S '， だがしかし，だがしかし。はっきりい 
ってをれはいらん心配でした。 

「よ，よくむ！ぶも殺してくれるっ！」 
化けもんがガバっと迫ってくる！ 

ばっと跳ねるブロンウインたち！ 

をしてスハ〇ッと切れる服！ 

ちゃ一んし飛びかかる，跳ねる，切れ 
るといったアクシヨン表現がバリバリにア 
ニメーシヨンしてるんです。いや一，ちゃ 
んと動くじやないです力>，はつはっはつ。 



というふうに，こいつだって教える。た•けど 


すごいですよゎ。躍動感いっぱい。をれも 
クライ マック スでのぐい ぐ、 いと引き込むよ 
うなストーリーの流れとあいまって完璧!： 
いえる满化。言葉でなんか t ても表现でき 
ません。 

これだけのネ支術をザんザ'んウリにするで 
もなく （ TOWNS 版の広告にはありま した 
が， X 68000 版ではパッケージじすら1 皆いて 
ないんですよ，ちょっと心配しちゃった） 
惜しげもなく，しかも効果的に使ってしま 
う。展開もスピーディに感じさせてくる。 
完璧，これ U 上何をボめようかという演化 
です。いやはや感動のアニメーションなの 
です。はっはっはっ。 

今回の " D - A が in " で5作肖になる第4 

の ユニット なのです 力;'，コレー クタ— ズア 
イテムといえるアドベンチ ヤー ゲームの化 
表作といってむ，杉う誰も異論を唱える人 
はいないでしょう（いてむ閒かないふりを 
するもん）。ついに デ"-タウェスト さんも 
「この データウェスト ある限りこのシリー 
ズはずっと作り続ける！」と實言してしま 
ったくらいのすごい力の入れようなのです 
(うむうも‘，よいことじ ゃ）。 ザひとも デー 
タウェスト さんにはがんばってこれから扛 
第4の ユニッ ト シリーズを作っていってほ 
しいですね。 

思い入れ 

バッケージではブロンウィンはおを結わえ 
ている（ミを：日本裝のことではない。まわて 
るっていうのかな？）のた‘けど，なぜかゲー 
ム中には曲てこない。う一ん，かあいいな一。 

かあいいな一。かあいいな一。ぜひゲームの 
木編の巧面でもあの絵ほしかったな一。あと， 

巧近遊びの部みがちょっとかなくむっちゃっ 
た巧がするんですけど……あってもいいんじ 
ゃないですか，もうかし。ま，でもいいゲー 
ムです。どんどん この 調子でいってほしいな 
(しかし， WWWF のを 巧が， シヨッカーの あと 
じはゲル シヨツカーつて パターンとはねえ 


巧価 

大巧!よくで？^ました 
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•シムシティー 



觀獅の甫， 
錫トダウン柳の業 

Ogikubo Kei 

获蓬圭 


巧ちじ待ってたシムシティーがいよいよ父 
680邮じ登場。ポピユラスでは神サマどった 
ボクたちは，今度はもうちょっと身近な巿 
長さんじ早をわり。さてさて，それではメガ 
ロポリスでも目指すとするか。 


一東京には首都高という一般道から隔離さ 
れた，くねくね曲がるわ，重なるわ，間違え 
るとどこへ連れて行かれるかわからないわ 
の芸術的な道路がある。ビルのを間やら川 
の上やら堀の中やら，トツピーなところを 
走ったりして面白いことは面白いのだが， 
実によく渋滞する。車の流れより芸術性を 
重視した設計をしたせいなのだが，だから 
といって一般道を走るしこれまた信号が 
いっぱいあって，歩巧者がたくさんいて， 
いろんな I :ころで工事をやっていて，不法 
駐車がたくさんあって，瞥察は不法駐率を 
たくさん取り締まって，車の数を減らした 
いのだがあんまりやりすぎると「経済大国 
日本」を支えている自動車産業が怒ってし 
まうので実行できないでいて，首都高の[上 
にが間がかかったりする。 

しかしである。この前，私は「を一だよ 
な，どこがどう渋滞するかなんて，ど一ろ 
作るときにはわかんないもんな J なんて， 
道路つくってるな人に同情してしまったの 
だ，不覚にも。をれもこれも，このシムシ 
ティーがいけないのである。私はシムシテ 
ィーやってるときは巿長でも，普段はなけ 
なしの収入からひいひいいいながら，所得 
税や住民税や国民健康保険料やら国民年金 
を支払っているビンボーで善良な巿民なの 
だ。官僚や政治家の無策を許してはいけな 
いのだ。をれに，シムシティーの市長はツ 
インタワーの庁舍の窩いところに広いスぺ 
—スなんて持っていないのである。せいザ 
い，猫の額の6畳間だ。 

究極の箱庭グームであること — 

シムシティーは都巿シミュ レーシヨ ンゲ 
ームである。ポピュラスや A 列幸で斤こう 
と同じくリアルタイム*シミュレーシヨン 
ゲームである。私は吉田幸一氏の呼称が気 
に入っているので「箱庭型ゲーム （ Oh ! X 5 巧 


号 P 40 参照)」と呼んでしまゎう。「箱庭療 
法」を英語でサンドプレイ （SAND PLAY ) 

^いうので，サンドプレイゲーム，ってな 
わけだ。ロールプレイングゲームだって心 
理療法の一種である役割演技（ロール•プ 
レイング）からきているのだから，サンドプ 
レイゲームがあったって， い一 じやない力，。 

さて，リアルタイムでポピュラスや A 列 
幸を思い起こすようなゲームであるからし 
て，箱庭の中でポコポコと人が増えたり生 
活したりするのを見て楽しむのである。ポ 
コポコと人を増やすには，住みよい都巿を 
作らねばならない。をのためじはマウスを 
使って何もない±地を区画整理する。 

各区画は原則として 3 X 3 のマスが1単位 
であり，居住地区，商業地区，工業地区の 
3っが基本である。さらに瞥察と消防著も 
都市には必要だ。 

都巿が発展するには遠距離の交通，交易 
のための撫点も必要で，港 L 飛斤場を置く 
こ t がで含る。飛斤場は大きいので 5 X 5 マ 
スである。ついでに嫉楽も必要だというこ 
とで，古代ローマのようにスタデアムも建 
設する（造らないと，住民が要求する）。 

をれでもって，交通網の整備も忘れては 
ならない。道路と鉄道の敷設が可能だ。駅 
を作る必要はない。 A 列車のように列单事 
故が起きることもない。 

居住地区，商業地区，工業地区の3っに 
ついては，プレイヤーは区画整理するだけ 
で，建物を建てるのは市民の仕事である。 
区画を作れば人が集まる，なんてこ t はな 
くて，治をの惡いところに人は住まないし 
職場のないところに人は住まないのだ。 

操作はすべてマウス。ウィンドウばしば 
し。 Musicstudio や Mu -1 のように 1024 X 
512の画面を使っていて，画面からはみ出る 
分じついてはすいすい スクロール する。ダ 
ンジョンマスターやポピュラスのように， 


実にアメリカンなのがポイン h だ 
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シムシティーには農地がない。なぜなら，西 
欧の「都市と紫村を区別した都巿論」の上に成 
り立っているからだ。日本では音から都巿と潰 
村なんていう区別はあまりなくて，今でも都巿 
の中じポツンと小さな農地があったりする力、’， 
アメリカでの巧業はでっかい田®地区じどばっ 
と止地を持ってやるのが基本だからだ。で，シ 
ムシティーじは農地はないのである。食い物は 
ど一してるんだろう，と思うのだが，きっと， 
工場でつくっているのだろう。 

スタデアムではアメリカンフツトボールをや 
っ ている。これもアメリカンだ。サツカーなら 
ばヨーロピアン，相巧ならばジャパニーズ，口 
—ラースケートをやっていればジャニーズピ！ 
ちなみじ，スタデアムでは 49ers (フオーテイー 


ナイナー ブ， などといううっとうしい統み方を 
する）力巧 ears じ7 — 10 で負けている。 

居を区は突如として教会に化けることがある。 
これもアメリカンだ。なぜなら，日木だったら， 
「人々が自みで寺を作るより，政府が隙手に作 
るのが近代のを本」ピからである。異論はある 
だろうけど，いいや。 

さらじ，警察からほんのちょっと離れると「治 
安が悪くなる」のもアメリカンである。さらに， 
治まが最悪のマンションでも人が住んでいたり 
するところもアメリカンである。 

それに，巧巧がエネルギーの基本，ってのも 
アメリカンかもしれない。まあ，なんじもない 
主地にボコンと都巿を作ってしまうところも， 
入植の歴史を持つアメリカンなところた•な。 


28 Oh! X 1990.9. 




















「なぜ'か狹い画面」を味わうことはないわ 
けである。の Jl , ゲームの説明終わり。 

なわ， コン ピュータが' ジェネレー トした 
±地に都市を作って楽しむモードと，が況 
設定されたシナリオの上で都巿復興や再建 
を目指*すシナリオモードがあるんだけれど， 
私の趣睐の閒題でシナリオモードはやんな 
かったので了承してね。 

额巧瞧発のち労と喜び— 

1900年。最初は何もない。空き地と森林 
と川（あるいは湖）があるだけである。プ 
レイヤーはをのマップが気に入ったら，わ 
もむろじポン，と発電所を建てる。発電所 
じは火力と原子力があって，火力発電所は 
禮の近くにってなことはない（をんなのは 
燃料を外国に頼っている日本だけ力，）。をれ 
から，原子力発電所だとメルトダウンする 
ことがあるらしい。力す，私はとりあえず「災 
害なし」モードで遊んでいるので関係ない。 
1900年に原発？ なんて野暮なことはいわ 
ないように。 

で，居住区をぺ口っと決める。食う寢る 
ところに住むところがないと話にならない。 
でもって，発電所から遂電線を引っ張る。 
続いて，職住接近でも離れててもいいがエ 
業地区やら商業地区やらを指定する。うま 
くいくとバラックが高層 マンシヨンに なっ 
たり，西友が有楽町マリオンになったりす 
る。恍惚の瞬間だ。をして，道路やら線路 
やらで結んでいけば街ができていくわけ。 

この時点で重要なのが，どんな都巿を作 
りたいのかというコンセプト。歴史が語る 
とわり水を中心に考えるシティ。ヨーロッ 
パ風に放身ホがの街（もっとも，道路は縦か 
横なので，きれいな"すべての道はローマ 
に通じる"は作れない）。平安巧や長をのよ 
うな碁盤目の都。 

ひとつ，歴あが与える教訓を記しておこ 
う。それは，ブラジルの首都‘‘ブラジリア- 
と オースト ラリ アの首都"キャンべラ’’/ご。 
この2つの，山か森か知らないけれど何ら 
ないところを切り關いて作った人工的な都。 
結局，人々は整然とした近代都市より，を 
の郊外に建てたバラックに好んで住みつい 
たという。日本でも幕張あたりがをういっ 
た ハイテク タウンの グロテスク さをかもし 
出しているようだ。親しみを感じない都巿 
って，いらないよね。 

とりあえず考えるのは，工業地区は治巧 
が悪くなりやすく，空気も悪くなりやすい 
ので，居住区との距離を考えることと力>， 
商業地区は人が集まるところに作ると力、， 
水辺に近くて環境の良いところに人は住み 



怪獣が通ったあとは火事じなる 

たがる t いうこくらいだ。 

を園も作れる力す，まとまった広さの公園 
をでん^ (七ントラルパークみたいに）作 
る力，，居住区の中に小さなのをちよこちよ 
こ作る力’（高輪3下目児童を幽みたいに） 

は女子きずきだ。 

なんて，暫くし楽みたいだけど，実は 
"災害なし"モードで成長を「うふうふ」 

としているからであって，ノ ーマノレモード 
にするとたちま七「えらいこっち や J なの 
である。シムシティーを走らせたまま，「飯 
でも食ってくる力，」しようものなら，火事 
で都市1/3 くらいが丸焼け，ヶチって消防署 
を作らなかったばかりに，燃え広がる一方， 
仕方ないから火のまわりを破壊して延焼を 
ない止める，なんて羽目に齡るのだ。 

ひと通り，でかい都市を楽しんだら，災 
害 ON でやってみようし野っているので， 
「軟弱ものめ！」と黃めないでゎくれ。 

ちなみじ，任意の災害を起こすこともで 
きる。飽きたら，火災や洪水，飛巧機事故 
から竜巻，怪獣までがきな災害を起こをう 
(これはポピュ ラス か？）。 

巧民の気持ちの巧み取!0 方—^^ 

当たり前だが，都市を大きくするにはコ 
ツがある。た！：えば，治安と力>，大気汚染 
と力、，道路とかだ。道路が多いと幸が増え， 
酸性雨が降ったりして大気は汚染される。 
治ををよくするには警察を作り建物は密 

総評 

何もいうことはあるまい。「われわれは箱庭療 
法的な表現を，実は日常生活の中でもがしてい 
たんじやなかろうか（中村雄二郎） J ということ 
かもしれないし，すぐに都市計画とか都巿論を 
ぶち上げたがる計画巧きのせいかもしれない。 
アートディンクにもチヤンスはあったのじ， A 
列車のあと， A 列車 n なんて作ってしまった。シ 
ムシティーの方向へ進めばよかったのに，と思 
う。そうすればジャパニーズな箱庭都巿ゲーム 
で遊べたのだ。ポピユラスといいシムシティー 
と いい， さすが西欧人は「モデル化 J がうまい!!！ 
というところかもしれない。 



評価表は市民の不満のバロメータ。わ一こわ 

集させないようじ。大気汚染にはを園や鉄 
道（鉄道は大気を汚染しない）を増やす。 

収入は税金なので，人が減ると困るし， 
無駄使いすると都市の維持に困る。 

M 評価"コマンドを見てみよう。住民が何 
に不満を持っているかや，今の人口がわか 
る。 

"グラフ"を見てみよう。各データの年閒 
推移がわかる。 

"マップ"を見てみよう。犯罪発生率や驚 
察管串茜区域，大気汚染などの分布図が見ら 
れる。 

をして，にたにた笑いながら，都巿は未 
ホを目指すのだ。未来都巿には2種類ある。 

「ブレードランナー」な都巿と「宇宙戦艦 
ヤマト」な都市だ。いま私がをう決めた。 
どっちを目指すら君の自由。を一うまくは 
いかないけれど。 

シムシティー もはまると病気になるので, 
をれだけは注意しよう。街を歩きながら， 
「ここは商業地区」だな，と力’「ゎ，渋滞 
はなんとかしなきや」などと気分は巧長に 
なってしまうのだ。 

夕*ンジョンマスター，ポピユラスに続く 
W 危険なソフト’’であることは保証する。 

を考义献 

1 ) トポスの知河合华雄.中が雄二郎•他 

2 ) 図説都巿の世界あレオナルド.ベネヴォ 
—口著佐巧敬彦•林を治訳相模書房 

3) ロココ町な田稚彦酱（今巧の「新刊普案内 J 
参照のこ t ) 


都巿型ゲームはまだまだいける。都巿をモデ 
ルにシューテイングしたのがグラナダであり， 
そのままシミュレーシヨンじしたのがシムシテ 
イーだ。「都巿と箱庭」。これがポイントだよ， 
をソフトハウスさん。 

5段が巧価 
箱庭ま： ★★★★★ 

都市れ画度： ★★★★★ 

1/8か画度： ★★★★ 

ァバウトな操作で OK 度： ★★★★ 

ウインドウバシバシ： ★★★★ 

民のカマを： ★★★★★ 

PCM 巧果音： ★★★★ (ただし•評価版） 
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ゎい， どうした？ 元気ないじゃん。え？ 
化满科がをかったって？なじ口 

ギャラが88(円）！ 

なんちて，ぽっくん，だはははははは（編： 
. はあ〜っ ） 。 

というわけで，電波ソフトからのアーケ 
—ド ゲーム 移楠シリーズ第何弾かおれたけ 
ど，とにかく発売されたのでご紹介しよう。 
ギャラガ’88がアーケードじ登場したのは， 
昭和88年し思った人の裘をかいて夹は1988 
年に登場した。「ギャラガ’88」は，いうまで 
らないし野う 力す 「ギャラガ」の統編だ。 ゲ 
ーム センターにいる小僧に「ボク？『ギヤ 
ラガ』って測ってる？」なんて柳けは10人 
中13人ぐらいが「知ってるサリ」と答える 
に述いない。つまり，をれぐらいメジャー 
な ゲームの がな なんだな。 

ギャラガ’88は，実をいう t アーケードで 
登場した I :きはをれほどヒットしなかった。 
というのは，1988年といえば「ギャラクン 
—フ オース」 「アサルト」とか「グラディウ 
ス I しなどの大作が次から次'へと化た年で， 
ズバリ，これらの大作の陰に腺れてイマイ 
チ注回を浴びることがなかった。なかには 



自機は左右じしかおかないってとこがミソ 


シンプルだからこそ飽さないグーム 

Nishikawa Zenji ゲームの少なかった10年前に登場したギャラクシアン。 

西川善司 そのギャラクシアンはギャラガへとパワーアップし， 

そして今またギャラガ’88となって我らが X 680() 日じ巧 
つてきた。時のたつのは早いものよのう。 


「ギヤラガ’88って PC エンジンが用のソフ 
卜かと思ってたよ」なんていう人もいるに 
違いない。 

なぜか面白し — i ^— 

しかし，今 X 68000 でプレイしてみるし 
これが面白い。どこが而ないって，をりゃ 
ゲームが面ないんですよ。恣味のない拡大 
縮小，バカでかくてやたらに堅いボスキャ 
ラ，ここ最近のアーケードゲームはプレイ 
するより見ているほうが楽しいというのが 
私の正直な見解。ところがこれは純ネ車にゲ 
_ムが面白い，遊べるゲームなんですな。 

まず，スタートするし編隊を形成すベ 
く晒晒外からリーダーを先頭に飛来してく 
る。このとき，編隊を組ませる前に全部撃 

破する快感といったら . 。をうをう，こ 

のリーダー（が色くて少し太ったやつね） 
がなかなかコシャクなやつで，人を馬鹿に 
したように刚师中央でクルクルと回って 
高速で離脱していく。こいつを仕留めたあ 
とに化てくる「700」という数字。これを見 
たいがためにジョイスティックのトリガを 
押すスピードが速くなるわけさ。編隊を組 
まれてしまってからは，ギャラガたちの卜 
リ ッキー な動きに骗されないように神経を 
ピリピリ。ちい，こんなに繫張したのは幼 
稚[割の入園式來だザ'，ベイビー，たいし 
たやつだ，わめ一ってやつはよゎ。 

ボー ナスス テー ジ^^""^""^^^ 

ギャラガを語るうえで絶対に忘れてなら 
ないのが ボーナスステージ。 通常 ステージ 
でのギャラガたちの動きもかなりトリッキ 
—だが，ボーナスステージでは をれにも增 
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ちち 弓 


踊る踊る，回る回るってか 


してトリッキーだ。しかし，相手の動きが 
恵表を突くものであればあるはど，100パー 
七ントを狙いたくなるというのが人 f 巧。こ 
こまで米るかと思えば手前で引き返してま 
っていったり，全滅させたと思いきや生き 
残りのギャラガがスーッと國而の外に,111，て 
いったり。そんなときの悔しさといったら 

. 。ちい，こんなに悔しい思いをしたの 

は高校受験 U 米だザ，ベイビー。 

ところで，この ボーナスステー ジで1発 
も擊たずにギャラガた ものダンスを ボーッ 
と見ていると， シークレットボーナス ポイ 
ントが]すえる。通常 ステ ージでのバトルで 
疲れた指と手を，ギャラガたちのダンスを 
見ながら癒すというのもいいかもしんない。 

移植のお巧は7 II III " ■ 1111 …… II 

いやぁ，义巧のない出!ホ栄え。 PC エンジ 
ンではカットされていた面スタート時の 
「わによによによによ」と叫ぶボスギャラ 
ガのアイキャッチシーンもちやんとあるし。 
をういえば，最近電波ソフトは MIDI にが応 
しなくなりましたね。どうしたんだろ。あ 
し「ギャラガぶ8」ってアーケードでは縦画 
面のゲームだったんだよね。「ドラゴンスピ 
リット」を移植したときのように縦画而モ 
ードもかけてほしかったな。 

X 目邮邮用 5"2 HD 版2が組日，2日日円(税別） 

巧 放 新曲 社 巧 日 3(445) 日111 

まとめ 

X68000 版「ギャラガ‘88」じは，例によって巧 
波アレンジモードが付いています。ボーナス 
ステージで，なんと，なつかしのナムコキャ 
ラクターたちが音楽にのって踊ってしまうの 
です。ミューキーズやニャー厶コたちが華お 
じ踊っているのを巧ち落とすなんて可愛そう 
で俺にはできないぜ。が，その巧しさが命取 
りじなるってことだけはをれるな，ベイビー。 


グラフィック 8 
音楽 8 
ゲーム性 10 
わ賈い得度 7 
何回も楽しめるぜを 7 
エンディングの感動度 9 
次回作に蒂せる期待度 10 


30 Oh! X 1990.9. 
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•クオ ース 


前代未聞のシューテインクパズル 

Nish ル awa Zenji ファミコンやゲームボーイなどでも発売されている一 

西川善司 風をわったパズルゲーム，クオースゲ XBSOOO にも登 

場。アーケード版とそっくりのデキ，友達と2人で遊 
びたい ゲーム だ。 



ま年，1989年は，まさに「テトリス」を 
はじめ t してパズルゲーム大売り出しの年 
でした。をの昔のニンジャブームのときに 
は，各ゲームメーカーが揃いも揃って忍、者 
ものを作ったようじ，ま年（正確にはま年 
から今年にかけて）は「テトリス」に追い 
つけ追い越せとばかりに，数え切れないぐ 
らいの量のノ、°ズルゲームが'発売されていま 
す。 

さて，まだ「テトリス」ブームの余 
韻が残っている現を，この「クオース」を 
見て連想するゲームをひとついいなさい， 

と道行く人に聞いたとしたら……。悲しい 
かな，10人中9人はゎをらく 「テトリス」 

I ：いうでしよう。残りの1人は，きっと僕 
みたいに受けを狙って「クレージークライ 
マー」 I か 「フアイナ ノレ ラップ」 力， いう 
ひねくれ者だろうな。まあ，きっ t パズル 
ゲームのほとんどはこういわれるのかもし 
れないけど（なんてったって普通の人が知 
つているゲームって，「ドラクェ」「スー 


パーマリオ」と「テトリス」く、、らいだ'もん 

な)。 

この「クオース」，シユーテイングゲーム 
的な要素を取り入れたのは「ゎ，頑張って 
るな」と思わせるのですが，ブロックの形 
を揃えて消す，という点がどことなく 「テ 
トリス」を思い起こさせるのかもしれませ 
ん。ま，をれはゎい！：いてさっさと紹介し 
ていきませう。 

移殖の出来は 

さて，「クオース」はノタツケージじ「アー 

ケード版本格移植!!」（最後の「!!」がポイン 
卜）と銘キ了っているようにアーケード版を 
っくりです。たしかアーケード版ら横画面 
だったのでまさに完全移植，いやあ，义句 
のつけようがないですな。ははは。多少ア 
ーケードのほうが解像度がよかったような 
気もします力 S '， まあ，をのへんは目をつむ 
りましょう。音楽は原曲を聞いたことがな 
いのでよくわかりませんが，たぶんアーケ 
ードそっくりでしょう。 

かースの)レー)レ 

ルールは简単。図のようじ迫りホるブロ 
ックに対して，自機の放つブロック弾で隙 
間を埋めて四角形をつくってやるしあら 
不思議，ブロックが'消えてなくなり，消し 
たブロックの数 X 10点が得点^なります。 
また，まとめて消す大量の得点が得られ 
ます。このようにして，ブロックを消しな 


図 I 



可 



がらどんどん先へ進んでいきます。先へ進 
めば進むほどブロックの落下速度が速くな 
つてきます（こり や， スリルだぜ）。しか 
む，はじめ，1両目ではなんの変哲もない緑 



巧って，打って，消して，ああ化しいずこりや 


色のブロックです力5'，面が進むとなんと， 
なんと，ブロックの，ブロックの…はあは 
あ…をが変わっていくのです。す，すごい 
っ。かのおはいったい何色に巧わるのだろう， 
と手じげ摇る ゲーム 展閒を繰り広げてく 
れます。途中に出てくる銀色のブロックを 
消すし画面上のブロックすべてが消えて 
くれます。で，金をのブロックがをのステ 
ージのボス（？）。これを消すと1ステージ 
クリアです。ちなみにブロックじ侵略され 
る^ ゲームオー バーです。 

3八リエーシヨンの2戸ブレイ — 

「クオース」には3穂類の 2 P プレイ （2 人 
同時プレイ）モードがあります。ひ！: つは 
ごなじ「対戦プレイ」。自かの消したブロッ 
クが相手側に移るというやつです。これを 
友達 t やると友達を失いをうだなぁ。はは 
は（らっとも「クオース」で断たれた友情 
の紳ってのも情けないけど）。2つ目は「同 
時プレイ」。ただ単に2人並んで遊ぶだけ。 
3つ目力;'「協カプレイ」で，ひとつのブロ 
ックなんかを2人で協力して消す，なんて 
ことが可能。対戦で失った友達すれば仲 
直りっ（もっとも「クオース」で復活した 
友情の紳ってのも情けないけど）。 

ゲームセンターでハマッタ人や，ノタズル 
フアンの人なんかにはオススメかも。 


X 郎邮〇用 5"2 HD 版目.邮日円(税別） 

コナミ 巧03 (2 日 2) 9110 


まとめ 

「クオース」，やり始めてみると結靖，面白 
し、。 どれくらい面白いかって？ 弱ったな。 
じゃぁ「スパイ大作戦」とか「ウォーク•ワ 
ン」くらい面白いぞ，といっても'こう。やっ 
ばし，対戦がいちばん面白いかな。そうそう， 
縁を切りたい友達がいるのなら「巧截」より 
も「協力」ブレイが巧果的だぞ。わざと相手 
の足を引っ張るのた'。「あっ，ごめ一ん」とか 
いって四ちおじなりそうなブロックじ巧して 
2，3発多く巧ってやるのだ。いいぞ 一。 ご 


っくん。 

グラフィック 6 
サウンド 5 
ゲーム性 5 
テトリスに似てるぞ度 8 


グラディウス2か3を作ってほしい度 10 
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Communication PRO- 郎 K ver2.0 



シャ-プの ii 信ソフトげ 
八-ジョンアップ 

Yoshida Kouichi 

吉田幸一 


パソコン通信フアンじはうれしいお知らせ。 
あの Communication PRO -68 K が’バージヨ 
ンアップした。ネルむ者でもないやすい才ーソ 
ドックスなツール。ぺーパーホワイト画面で通 
信ができるよ〜ん。 MNP にも対応している。 



X 邮邮〇用 5"^ HD 版19.邮0円（税別） 
シャープ 巧日3(巧 0)1161 


昨旧，メインで遊んでる草の根 BBS の 
オフラインミーティングぃとかゆ一ものに 
巧ってきた。ヘンなやつがぃっぱぃぃて面 
白かった。儲かりまんなあ， NTTo 

Communication PRO-68K verl. 0, 

および私が Communication PRO-68K を 
使ってぃるわけ 

従来の Communication P 民 0-68 K の重 
大な欠点。をれは ASK -68 K ver .2. 0に対応 
してぃなぃのか変換候補の表示がうまくな 
かったのだ。プログラムにパッチを当てる 
PDS " を入手し対応せざるをえなかった。 
また，この MNP 時代に不可欠な"ハードウ 
エア フロ ー 制御!’’も対応してぃなかった。 

しかし，をれでも私は Communication 
P 民 0-68 K を使ってぃる。白地に黒の画面 
と80 X 25行しか使わなぃ余裕のある画面構 
成力《好きだからだ。た一みのるや Muterm 3》 
では画面全部がターミナルだし，をれでは 
X 68000 が端ホ専用機になった気がするの 
だ。せっかくだから，をんなのぃやじやん。 

ver2.0 への変更点， 

および、 Communication PRO-68K の基礎と， 

清〈正しぃり?)逆スクロール 

Communication P 民 0-68 K は写真のよ 
うに立ち上がる。真ん中のホワイトボード 
みたぃのがターミナル画而。黑地に白のモ 
ードもある。このモードどと， ESC シー 
ケンスで色を出せたり する ( ANSI ターミ 
ナル モード"）。ここはパソコン通信では 
一般的な 80 X 25 斤。で， 80 X 2 日斤とぃうこ 
^は上下7巧と横16がが余る。をこをどう 
使うかが X 68000 のおぃしさをどう 出ず力、 
じつながる。 

最上斤はファンクションキー表示。最下 
斤はかな漢字変換で下から2番目は斤編集。 

右の余ったがは各種情報表示に使われる。 
まず通信が態。送信可能かどう力，，モデム 
からキヤリアはきてるかどう力、，逆スクロ 
ーノレモー ドのとき何巧逆スクロールしてぃ 
るかが出る。で，を意すべきはキャリア檢 
化。モデムのほう力す，キャリアを端末（つ 
まりパソコン）へ返すモードと常にキャリ 
ア ON の信号を出すモードを持ってぃるの 
だ。たとえば AIWA の MNP モデム 5 > だし 
デフ ォル トで CD 信号が ON になってぃて， 
キャリァがきてなくても「キャリァあり」 
表示になってしまってなんか気持ち惡ぃ。 
モデムの設定は重要であ る（そのい。 

をの下はイ云をデータ。受信バィト数やら 
受信斤数やらをうぃったものが返される。 

さらに，漢字コードのモード（シフト JIS 
が MS 漢字 i ： 表示されるのが少々気に入ら 
ないが 6 M ， カレントドライブの空きを量， 


現在時刻，接続嗦間が表示される。 

力;，ここで欠点。 X 68000 のソフトには 
珍しく，マウスに対応していない。対応し 
てもバチは当たらないと思うのだがなあ。 

さて， ファン クシ ョン キーを押して通信 
を始める。 フアン クシ ョン キーは， エディ 
夕（後述)，ブレーク斤入力，自動実斤（詳 
しくは後述)，オートタイプ（アップロー 
ドのこと），ログ開始/終了（ダウンロード 
のこと），ログスイッチ（ダウンロードの 
最中にをの ON / OFF ができる），ログ削除， 
チャイルドプロセス，終了，の10個。 

さらに SHIFT キーを押すし環境設定 
(詳しくは後述)，受信データ同時印刷，受信 
データの16進表示，画面の色（ホワイトボー 
ドか黒地に白か)，画面の行数(20/25)，プロ 
トコル送信，プロトコル受信， CP 民 01. U の 

実斤， CPR 02. U の実行，回線切断，である。 

変更点は，プロトコル送信/受信と CP 民 
01. U / CP 民 02. U の2つ。プロトコル転 
送。については，旧バージョンでは XMO 
DEM LTransits だけだったのにがし ver 
2. 0では XMODEM じ3種類， YMOD 巨 M が 
新しく 4つ追加され，従ホからあった Tra 
nslt 2 も加えて8つになった。ほかに ZMO 
DEMI ： かもある力す，この8つがあればた 
いてい間に合う。 

で， プロトコル 転送をひとまとめじした 
わかげで余った2 つの フアンクションキー 
には名前固定の自動実行ファイルが書ける 
ようになった。これは結構便利で，システ 
ムじは CPR 01 .U として， MNP モデムの M 
NP 設定用コマンド列が登録されている。 
MNP モデムじは実はデフオルトでノーマ 
ルモードじなっているものがあり，をの場 
合は自分で設定する必要がある。モデムの 
設定は重要だ（その2)。 

をうだ，逆スクロール機能を忘れてはい 
けない。立ち上げ時の設定でメモリの許す 
限り（設定した値を上限！：して）逆スクロ 
—ルバッファを持っているのだ。通信時に 
下キーを押せばあらあらし画而が逆スク 
口ールを始める。 SHIFT キーを使えば高 



.こぶ:么 

J 的•袖 


起動直後の画面 
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-環境設定 

MNP モデムに対応するために， CTS / 
民 TS 制御 8 > が加わった。これで， CTS/RTS 
というハードウ エア信号線を使っ たフロー 
制御む可能になった。で， MNP するとき 
には，モデム侧むいろいろ設定したほう力す 
いい。 Communication P 民 0-68 K で CT 
S / 民 TS を ON にしてもモデム側がフロー制 
御 OFF になっていてはなんにもならない 
からね。モデムの設定は重要だ（その3)。 
MNP については囲みを参照してほしいけ 


速 スクロール （本当に高速 ！） してくれる。 

斤単位で範圃指定して ファイルに セーブし 
たり エディタに 転送できるので，ダウン 
ロードし忘れたり見逃したメッ七ージを祕？ 
認したいときも OK 。 でも， P 民 Ot 名乗る 
からには，イ壬意の位置から文字列単位で範 
開指定と力>，マウスでやりたいとか思うぞ。 

通信に欠かせない日本語入力だ力 3 '，イン 
ライン変換モードだとうまくないので， 
もゃん k 変換巧での入力にして使うように。 

では，「詳しくは後述」シリーズ。 

• エディタ 

ターミナル画面の上8斤にエディタウィ 
ンドウが開く。力;，既存のファイルへの 
才ーバーライトができない （ファイルへの 
追加になってしまう）などの閒趨はある。 
これはつまり，ちょっとした送信用ファイ 
ルを編集したり，逆ス クロールバッファか 
ら 転送した ファイルを ちょこちょこと編集 
してセーブするのにしか使わないのだ。た 
いてい，チャイルドプロセスで ED . X なり 
なんなりを立ち上げることになる。 


れども，モデムのマニュアルは概して読み 
じくく，専門家が外にはわからないようじ 
書いてあるので，を意が必要だ。 

•自動実行プログラム，つまりはマクロ 
通信ソフトを測る！：きのひとつのバロメ 
ータが自動実巧•プログラムの機能。命令数 
は42個と一般的。 ver 2. 0では4つの追加閑 
数と，5つの拡張された閒数がある。 

自動実行ファイルはお張子に " .U " がつ 
くから，ウインドウから力ーソルキーで， 
ててて一つと選べばいい。このファイルは， 
システムについてくるのを コピー してエデ 
ィタで普き換えるのが雨倒がなくて得策。 
Communication PRO -68 K のおいしさと 
使い勝手と 
日月日への扉 

Communication PRO -68 K は初心者用 
I :しては十分速く，とつつきやすい。あと 
は才ートログオンファイル自動作成機能と 
ヘルプ機能，ホスト管理機能くらいだ。 

通信ソフトというのは，「これだ ！」 t 
いうみ定打が （ PC - 9800の世界にも）なく 


て，を社あの手この手で試行錯誤している。 
たえば登録ホストをホスト名で管理した 
り（閉じたデータべース） I か 、通信中に 
呼び化せる ID とハンドルネームのデータ 
ペース}!かだ 。をういった点ではこのソフ 
卜はひどくオーソドックスだ。だから使い 
やすいともいえて，私は使っているのだ。 

だが，ホストの電話番号や名称，プロト 
コルや ID は立派なデータベースだ。たい 
ていの通信ソフトはをの世界で閉じている。 
あまりにも前時代的だ。私の知る限り，ホ 
ストのデータら住所録も別け隔てなくひと 
つのデータベース I :してとらえていたソフ 
卜はひ t つだけ。をれは， MZ - 2500テレ 
フォンソフト（笑）。 

1) こういった集まりじは珍しくかの子が多か 
った（II人中4人！）。ラッキー。 

2) N け ty-Serve で見つけた。 

3) サンデーネットが出どころのフリーウェア。 
通信ソフトの場合， PDS のほうが概してバグが 
かない。いろんな人が使うのと，まめにバージ 
ョンアップするからだ。 

4) ANSI というのは，アメリカ国内規格協会， 
つまりアメリカでいう J にみたいなもの。そい 
つが国際機関じなるとに0じなる。 ANSI の前身 
が ASA である。ほら，フィルムの感度を ASAI00 
とかいっていたのが最近ではに01邮になったで 
しよ。あれはアメリカ国内の規格が国際的じな 
ったひとつの証だ。 

5) ちなみじ，私が使っているのは AIWA の PV2 
4-MNP5。 

6) MS 漢字の MS は MS-DOS の MS である。 

7) 無手順垂れ流しではバイナリファイルを送 
れないし，エラーチェックもできない。そこで， 
バイナリファイル転送用のプロトコルがいろい 
ろとできたのである。 

8) MNP の囲み参照 


MNP とは 

最近よく聞かれる MNP。 これはマイクロコム 
•ネットワーク•プロトコルの略だ。 

何かっていうと，エラーフリープロトコルの 
—種だ。パソコン通信というのは無手順非同期 
ま，別名無手版垂れ流し式なのである。これた’ 

と通信速度を速くできない（文字化けやら文字 
巧ちが出ちゃうのた‘）と力、，文字化けに対する 
対処ができないという欠点があった。そこで， 

アメリカの Microcom 社は考えたわけだ。モデム 
とパソコンの間は無手順垂れ流しのままで，モ 
デム間を同期ホじしてやれば，モデムを換える 
だけでエラーフリーじできるぞ，と。 

そんでもって， MNP プロトコルはできた。正 
確には MNP クラス4がそうだ。2400 bps でモデ 
ム間だけ同期通信をする。そうすると，文字化 
けがあったりしたときはモデム間で送りをしな 
どのな正ができるので，ユーザ ーから 見たら エ 
ラーフリーじなるのだ。同期通信じは今までみ 
たいなスタートビットやストップビットではな’ 
く，一定の大きさのパケットごとに行う。で， 
バケットが一杯じならないときは一定時間入力 
がないと相手に データを 送るようになっている。， 
そのためじ画面表示がときどき止まるような戚 


じじなるのだ。 

てことは，パソコンから見るとスタートビッ 
卜とストップビットをIビット加えたI文字10 
ビットなわけであるが， MNP モデム同±はパ 
ケットを使うのでスタートビットやストップビ 
ットはいらない。よってI文字当たりの平巧を 
とると，10ビットが下。そこで モデムーパソコン 
間の通信速度を2400 bps より速 < してやれば，2 
400bps よりちよっと速い通信が可能じなるのだ。 

MNP クラス5じなると，モデム間の通信でデ 
一夕圧縮をしてくれてしまうので，普通にやっ 
ているぶんじは倍の速度（見かけ上4800 bps 相 
当の速度）が得られてしまう（らしし、）のだ。 

というわけで，モデムーパソコン間の通信速 
度が4800 bps が上でないと意巧がない。モデム 
が2400 bps だからといって，律儀に2400 bps でソ 
フトを使うやつはタコなのである。 MNP モデム 
じはモデム間の巧信まをとモデムーパソコン間 
の通ほ速度が進ってても巧わないよコマンドが 
あるのだ。モデムの設をは重要である（その 
4)。ちなみじ，その！〜3は木文ね。 

バソコ ン側からはモデムー パソコン 間の速度 
しか設定できない。ではモデム間はどうしてい 
るかというと，モデムがよきにはからって，相 
手のモデムの都合にあわせて巧適の速度じして 


くれるのである。相手が MNP でなかったら， 
ノーマル モードで接続してくれるのだ。ただし， 
モデムがそういった設をになっていれば (AT¥N 
3) の話。モデムの設をは重要である（その 5)0 

そんでもって，私のようじモデムーパソコン 
間を9600 bps じするといくらなんでも速すぎる。 
そうなると，モデムのバッファが溢れたとき， 
パソコン じ「ちょっと待った J といってやらね 
ばならない。それがフロー制御であり，ソフト 
でやるのを X0N/0FF ，ハードでやるのを RTS/C 
TS 制御という。 

公衆回線を巧まじした MNP のクラスは，7,9,10 
とまた'まピ先がある。通信の世界もハードウェ 
ア（だけ）は進んでいるのだ。 

というわけで， MNP というのは，モデム同± 
でいろいろとよきじはからってくれる規格た‘と 
思えばよろしい。 

ちなみじ， MNP と XMOD 巳 M を同時に巧うの 
はよしたほうがいい。なぜなら， MNP と XMOD 
EM の两方でエラーチェックをやっているので 
無駄であり，そのぶん遅くなるからど。 

MN 戶していれば エラーフリー なので， テキス 
トファイル 0 SH ファイルを含む）だったら， 
そのまま転送すればいい。が上， MNP の解説で 
あった。ふう。真面目なことを書くとおれる。 
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AFTER REVIEW 




今月は大お’海時代，プロミストランド，ウ 
ルテイマ V , SX - WINDOW の4つを取り 
上げてみました。どれもじつくり腰を据え 
て取り組みたいものばかり。時間があるう 
ちじ試してみてはいかが？ 


►赌博のトランプが結構ハマるぜ！ 

宮城昭-和 I 甘慨一 （18) 
►これは，まるで"川;がガッチ‘リ質いまシヨ 
一"た*という話-もある。 

石川県.ミ员阳正幸 （24) 
►なかなかお实どおりで，地巧!.の勉強になる 
と思う理系浪人生のな。 

千葉偈-巧武重人 （19) 
► 基本的にこのゲームはデータとの戦いであ 
る。どこにどんな禮があって，をこじは何が 
売っていて，物伽がいくらで…… t いうのを 
を部把擢しよう！:するとかなり疲れる。 S 国 
志 II などでは別に化している本のほうにいろ 
いろ職せていた力;'，ゲーム本体じだってをく 
ないわをを化している 
んだから，参考資料と 
して何かかけてほしい 
思った。 

知瞩•勝川俊司 （21) 

なんといっても SL 
と RPG をミックス 
たよう な 感じ 力すいい。 

靜阀県•青な一高 (22) 

► Xlturbo に ひさしぶ 
り に 化た遊べる シミユ 
レーシヨンゲームなの 

で。 

栃木坂••加藤育生 （17) 


►ゲ ーム そのらのはわりと面白く，地図帳と 
ニラメ ツコ しながらやるとなかな力，遊べる 
(地理や経済の勉強にらなるし）。た t えジ 
ブラルタル海峽を渡るのに四苦八苦してら， 
がっぽり大儲けしたときの気分には代えられ 
ない。特に貯金するのが好きな人にはわすす 
め。ところで，私はまだイスタンブールに入 
れてもらえないのだ。誰かイスラムと仲よく 
する方法を教えて 一。 （滞川博之） 

光栄といえばシミュレーシヨン。しかし， 
これは いつら ともよっと違う。民 EKOEITI 
ON GAME 萊2弾だから，口ールプレイン 
グ的嬰素が盛り込まれている。だから，あの 
テの ゲーム が好きじやない人でもとっつきや 
すいんじやないかな。 

Xlturbo 用 5"2 HD 版4枚組9, 800円（税別） 
光栄 巧 044(61 )6861 

••’巧 MiJaii .;; ぃ’ : 
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発売中のソフ h 


★トンネルズ&トロー ルズ 

こニカザン帝国では，魔術師カザンじよる統治 
の衝邪悪な死の女王レロトラーが即位し，が来 
激烈な戦閱が続いていた。そして今，続発する不 
思說な出来事じ，誰もが不安を感じていた。そし 
て皆が魔術師カザンの再来を願っていた……。 

マニアに 絶大なる支持を得ている テーブルトー 
クのパソコンゲーム 化。 テーブルトークのシス テ 
ムを用いて作られた RPG で，豊當な テキストと ア 
ド ベンチヤーのよう なストーリー 展開が ウリ た‘。 
綿密な世界考証と豊富なアイテムは，本格派と呼 
ぶじふさわしい デキ だぞ。 

X68000 用 5 "2HD 版3枚組9, 800円 

スタークラフト 巧 03 (988) 2988 

★巧巧の決断 

太平洋戰争を題が じしたシ ミュレー シ ヨン。日 
木軍，連合国軍のいずれかの艦隊指令長官となり. 
太平洋の制海-制空権を握るためじ敵基地を攻略 
していく。プレイヤー自ら艦隊を率いて航行し， 
途中艦隊戦なども巧いながら，敵基地を空な，艦 
隊砲 巧， 上陸などで陥落させる。作戦の合間には 
国巧体制のを実なども図らなければならない。太 
平洋の戦局は君の腕じかかっている。 

9編に及ぶマルチシナリオ方ホを採用。 2人ま 
での同時プレイもできるので，友達と楽しむのも 


"2HD 版2枚組14,800円 
0044(61)6861 


いいかも。 

X68000 用 

光栄 
★ D-Again 

ブロンウインファン待望のシリーズ第5弾。戦 
闘シーンを配した，もはやわなじみのスタイルの 
アドベンチヤーゲームだ。今回のブロンウインの 
任務は特務機巧長官護衛。しかも観光をを装って 
任務を遂行しなければならない。これに絡む WW 
WF のアングラ.マーケットの崩壌とダルジイの 
復活。そして出現する強棲が嚷兵器 G-R。 

二れで第4のユニットシリーズ第I部 WWWF 編 
が完結するというからファンの人は見逃せない。 

X68000 用 5 "2HD 版4か組8, 800円 

データウェスト 巧06 (968) 1236 

★ェメラルド伝脱 

宇宙の果てに存在する惑星「セラ」。この星は 
ェメラルドに収められた5つの結晶体の不思谦な 
力に守られていた。突如現れた破巧神ソドムから 
セラを守るため，ひとりのかたが立ち上がる。を 
化に富んピ景ををバックに繰りにげられる RPG。 

X68000 用 5"2HD 版7, 800円 

システムハウスオー な 075 (502) 2972 


新作情報 


★雀巧2 

ビクター音産の麻雀ソフト「雀を」がパージョ 
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プロ三ス h ランド 


►今はこれしかやってないから。 

奈良属•渡ぶ智一 （20) 
►今までのポピュラスに加えていろいろな穂 
類ができてバリエーションアップしたので。 

京都府-和げ1一博 （23) 

►キャラカ S かわいい。 

溢おお-:£槪和広 （22) 
►ひさびさに面白かった。 

山形県-荒か藤憐 （30) 
►もこもこむ’くむ'く，やめられまへん。 

京都府•可児典明 （17) 
►キャラクターがとてもいい。江戸時化編が 
t くじいい。 神奈川県•泉田好介 （20) 
ポピュラスのシナリオデータ t あって人気 
も上々。なかでもオリジナルの江戸が化編が好 
評のようです。苦労した甲斐がありましたね， 

イマジニアさん。 

X 68000 用 5"2 HD 版4.800円（税別） 

イマジニア 巧 03(343)891 1 



ウルテイマ V 


►タウンガードの横をすりぬけて街へ入るあ 
のスリルがたまらない。 

埼玉県-商梳一毅 （19) 

► 口ールプレイングの帝王である。 

乂阪府•康正和 （17) 
►前からやってみたかったから。 

香川照-お幅哲也 （17) 
►一化かけてむ解けをうじないから。 

福岡解•馬場広昭 （21) 
►晒白いとしかいいようがない。 

埼玉促-な田哲巧 （17) 
IV と比べると操作性がよくなったこのゲー 
ム，英語の勉強と根気を獲うのにはもってこい。 
さすが5作も化しているだけあって，話の作 
りは天下一品。解き終わるのはきっ t まだま 
だ化だろうけど，終わったときの満足感はひ 
としおでしよう。 

X 68000 用 5"2 HD 版2枚組9,800円（税別） 
ポニーキヤニオン 巧〇 3 ( 221 ) 3 け1 



SX-WINDOW 


►これからどのようにアプリケーシヨンが発 
展するのか，楽しみ。6,800円は超激巧！ 

诛:京都•瓶子卓化 （33) 
►1 M なのですぐホ旗が立ってしまう。電源 
を切る時の絵が気!こ入っているので，をれで 
らいいのです。 兵離!け.木が健二 (25) 
►あれで6, 800円はうますぎる！ 欲をいえ 
ばもっとアプリが入っている^うれしい。自 
分でむアプリを作りたいので，今後に期待し 
ます。 絳岡お-界が一洋 （24) 

► Mac のウインドウシステムよりセンスが 
よい。 X 68000 の 基本 システム となると思う。 

福岡お-國藤お正 （38) 
発売した途端にすごい反學も皆さん気に入 
ってくれたようですね。これからの X 68000 
を祖うウィンドウシステムといえるでしよう。 


X 68000 用 5"2 HD 版 6,800円(税別） 

シャープ な 03(260) り61 



ンアップした。思考ルーチンが強化され，「強知 
能版」と鈴うっての登場。もちろん今までどおり， 
自己成長型サンプリング機能と，推論型人エミロ能 
の搭載じよって，打っていくたびじ次第に個性を 
身じつけ，さらに強くなってプレイヤーじ挑戦し 
てくる。麻雀そのものを楽しみたい硬派な人，も 
しくは友達に負けっぱなしだから，腕を磨きたい 
って人にわ薦め。 

X68000 用 5"2HD 版2枚組9, 800円 

ビクター音楽産業 巧 03(423)7901 

★ PIPYAN 

UFRAIM じ続く， M.N.M.Software のバズルゲー 
ム〇 

大規模なパイプエ場に突が噴石が落下，パイプ 
じ磁力が発生するというアクシデントじ見舞われ， 
工場は壊滅状態。残された手立てはパイプをリン 
グ状につなぎ合わせること。工場の中を走り回っ 
て，散らばっているパイプをリング状につなぎ合 
わせ工場を救え！ 制限時間もあってなかなかシ 
ビアなゲー厶。面セレクトが可能な ノーマルモー 
ドと， 自みの巧動が記録されてあとから研究でき 
るエントリーモードがある。お好きなほうからど 
ぅぞ。 

X68000 用 5"2HD 版6, 200円 

ブラザーエ業 巧 052(824)2493 

★ FSS シナり才 Vol.l ペルセウスの冒険 

FSS (フアン タジーサーガ システム）は横スク 
ロールの RPG。 ストーリーは，ギリシャ神話の 


"ペルセウスの冒険"をモチーフじしている。母 
ダナエーをポリユデイクテース王から救うため， 
ゴルゴン討伐の旅に出る ペル セウス。その前途に 
待ちをけるものは何か？‘ 

同れのアルガーナじよく似たタイプで， とっつ 
きやすく気軽に遊べる ゲーム だ。 

)(68000 用 日 "2HD 版2枚組 6, 800円 

M.N.M.Software 00423 (60) 3084 

★ Vessel 

M.N.M.Software 開発の，日本ではちょっと珍し 
い本格テキストアドベンチヤーが登場。今にも難 
破しようとしている船を舞台に，君は乗員•乗を 
をすみやかじ退避させなければならない。極限状 
態にわける人間の道徳，倫理を問うストーリーが 
君を待っている。数々の質問にキミはどう答える 
か？ 

己00ぺージを超える莫大なテキスト量で.ゲー 
ムブックの感党で楽しめるぞ。 

X68000 用 日" 2HD 版5, 000円 

ブラザーエ業 巧 052(824)2493 

★シムシティー 

去年アメリカで旋風を巻き起こしたリアルタイ 
厶 シミ ユ レーシヨ ンゲー厶が X68000 じ登場。1900 
年からスタートし，プレイヤーが巿長となって町 
の行政を祖驾するというものだ。好き勝手じ家を 
建てるだけではなく，住民の要望に合わせて鉄道 
を敷いたりスタジア厶を建てたりなどして，住み 
よい町づくりを進めていかなければならない。 


災害，公害，交通，税率などの幾多の困難を乗 
り越えて，目指すは人口25万の超巨大都巿，メガ 
ロポリスだ。 

X68000 用 5"2HD 版9, 800円 

イマジニア 巧 03(343)8911 

★アクシス 

あの，ファイナルゾーンのハワード.ボウイ大 
尉が帰ってくるぞ。このアクシスは，人型機動兵 
器を操作するアクションゲーム。 X68000 専用仕 
様で，斜め上からの視点じより，立が的な画面を 
かもし出しているのがウリだ。スクロール速度も 
可変というから，気持ちいいアクションが楽しめ 
そう。キャラクターデザインじ美樹木春彦を迎え 
ている。 

X68000 用 5"2HD 版8, 800円 

ウルフ .チーし 巧 03(5273)4795 

★ぴくせる君 

M.N.M.Software のスプライトバターン開発ツー 
ルが市販される こと じなった。 

キャラクタの大きさは最大 128X128 ドット，65 
536を中16をまで使用できる。回転，反転，パレ 
ット調整機能など必要なものはひと通りそろって 
いる。同社開発のゲームはすべてこのツールで作 
っているというから，性能のほどはうかがえるよ 
ね。スプライト定をのサンプルなどをホ付して4, 
800円という価格もうれしい。 

X68000 用 5"2HD 版4, 800円 

ブラザーエ業 巧052 (824) 2493 
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■■ i 新製品紹介 


XB 邮邮の周辺觀居ソフト憑 R レポート 


ビデオボ—ド CZ - 目 BV 1 
C compiler PRO -6 BK ver 2 •日 

ドローイング系グラフ イツ クツール 



先ごろ発売されたビデオボードや発売が待 
たれる XC の ver 2.0 などを中'むじ X 68000 
の周ぶ事请の近況をレポートしてみよう。 

• 

4年目を迎えた X 68000 シリーズは今年 
も， P 民011 / EXPE 民 TII / SUPER - HD など 
の新機種を加え着実な歩みを見せている。 
また，5巧号の新製品紹介でわ知らせした 
光磁気デイスクドライブなどの周辺機器も 
期待の的となっている。ここで，すでに発 
売になったらの，をれに間もなく発売され 
るものについての情報をまとめてわこう。 

を体に発売が遅れているものが多いようだ 
が、 まあ， X 68000 U 0で台を超えたこ^:だ 
し，ここはひとつ長い目で待ってあげよう。 

まず，本体。 PRO II と EXPE 民 T II は1頃調 
に,中,荷されている力す， SUPE 民- HD につい 
ては6巧に発売となったらのの生廬体制が 
追いつかず春ごろから予約していた人は結 
構ヤキモキしたことだろう。をの後品薄が 
態は徐々にな善されているようだから，い 
まから買わうと思う人はをれほど'じ、配する 
ことはないはず。まずはひと安と、といった 
i こわだ。 

次に周进機器閒が。ビデオボードが7巧 
10日より発売となってわり， これにつ いて 
はあとでもう少し詳しく紹介する力 ':， SCSI 
ボードと光磁気デイスクについてはとりあ 
えず秋の J 鋒と考えてわいたほうがよさをう 
だ。 

をして，ソフト。新シリーズより標準で 
ついてくる SX - WINDOW が単 f 本で発売さ 
れた。これまでの流れを備単に整理すると， 
まず PRO II /EXPERT II のシリーズ' に標 


準でついてきたもの， SUPER - HD に同棚 
されている SCSI 対応のもの，をして今回市 
贩されたもの，というように3つのバージ 
ョンカすある。市販バージョンでは SCSI 対応 
^なったほか細かい点で若干のデバッグが 
なされているようで，じけ多はこのバージョ 
ンが各製品にも同糊されている。シャープ 
では初期の製品に同側されたものについて 
は，バージ ョン アップ サービスを 巧うをう 
で，詳しいことは直接シャープのほうに問 
い合わせてほしいとのことだ。 

また，バージョンアップの声を聞いて久 
しい XC だ力す，現をマニュアルなどの殿終段 
階に入ってわり，9巧に発売できる目化が 
ついてるらしい。 

さて， SX - WIND 0 W や XC は大きな目玉 
だが，アプリケーションのほうら，通信ソ 
フトの Communication PRO -68 K が 
ver 2.0 となって発売されたはか，新しくド 
口ーイング系のグラフィックツー ルカミシャ 
ープブランドで近日発売の予定。期待した 
い。をれから ， Multi Word とかいうヮープ 
ロソフトが予定されているはずなのだが， 
をの後情報がない。どうしたんだろう。 


ビ巧 r ボ — ド CZ-6BV1 


ビデオ ボードはコン ピユ ータ 画像をビデ 
才信号に変換する周ぶ機器だ。 X 68000 には 
当初から カ ラーイ メージユニット という外 
かけの周ぶ機器があり，これを利用すれば 
ビデオ信号を取り化すことができた。しか 
し， カラーイメージユニットは， ビデオ機 
器から映像を取り这んだり（デジタイズ'機 


能)，ビデオにコンピュータ画像をを成した 
ス_パーインポーズ画面をビデオ信号にし 
たり（テロップ機能）するのが主な目的で 
伽格も69，800円 i ： 力，なり高価な機器となっ 

ている。 

ところが嚴近は，特にビデオ編集を目的 
としているわけでなくとら，大型テレビで 
アクションゲーム を楽しんだり，をれをビ 
デオに録画したり，あるいはコンピュータ 
で畏編 アニメーショ ンを作るのにビデオを 
利用したいといった要望が強くなってきた。 
をこで，登場したのが単にビデオ信号を得 
るだけの機能に絞ったビデオボードという 
わけだ。 

基本的にビデオ信号に変換できるのは， 
15 kHz の低解傑度モードの場合に限られて 
いる。ゲーム ソフトでもア フターバーナー 
など低解像度モードのらのは大丈夫だがポ 
ピュラスなど髙解像度モードのソフトはを 
のままではビデオ信号には落とせないクで 
注痛が必要だ。 

ボードを接統した状態で，試しにゲーム 
ソフトのワールドコートを立ち上げてみた 
ところ，ビデオ信号ならではのギラつきと 
多少の色の違いはあるものの，まあまあ質 
の商い画像を得ることができた。起動後デ 
ィ スプレイが 15 kHz に切り替わった i ： こ 
ろでかめてビデオ画面に表示された力 S '， こ 
れはコンピュータが高解像度の場合にはビ 
デオ化力は自動的に停止するようになって 
いるためだ。見苦しい画面を見せないため 
の配施だろう力‘。なゎ，ビデオボードの動 
作スイッチを OFF にするしビデオ化力は 
停止し本体からの出力はをのままボードを 


表1モニタ表示とビデオ出力の状が 



ビデオボード ( ON ) 

ビデオボ- 

-ド ( OFF ) 


モニタ表示 

ビデオ出力 

モニタ表示 

ビデオ出力 

コンピュータモード 

コンピュータ画像 

コンピュータ画像 

コンピュータ画像 

停止 

スーバーインポーズ 
モード 

煩用ディスプレイ 
テレヒ〇 

スーバーインポー 
ス Hi® 

(コンピュータ画 
面は流れる） 

コンピュータ画イま 

コンピュータ画像 
が出力されテレ 
ビとのスーパーイ 
ンポーズ画面 

侍止 

テレビモード 
(専用ディスプレイ 
テレの 

テレビ表示 

コンピュータ画イ象 

テレビ表示 

停止 


表2 ビデオボード （ CZ -6 BV 1 のまな仕が） 


入出力端子 

アナログ RGB / テレビコントロ—ル 
コンポジットビデオ出力/巧かま出力 

使用し SI 

CXAII 45 P (NTSC エンコーダ） 

CXAI 2 I 5 M 胸觀言号発生） 

ビデオ出力 

ビデオボー ド 動作スイツチで 禁止 可能 
苗解な度モー ド 時は出力を佑 止 

電源 

+ 5 V 

+ I 2 V (コンピュータ本体よりままを！ 

外形寸法 

1 50 mm ( W ) X 1 53 mm ( D ) X 35 mm W ) 

重《 

260 g 

細雖 

I 0~3 す C 膊存温 k -2 トィす C ) 


36 Oh ! X 1990.9. 




























素通りする。詳細は表1をご費いただきた 

し、 0 

用途が用途だけに使い方は簡単だが，ち 
よっと変わっているのはネ妄続のしかた。外 
部への各信号はボード端のコネクタから取 
るのはいうまでもない力す，ボードを拡張ス 
ロットに差し込む‘だけでなく，写真のよう 
にボード巧から比!ている 民 GB ケ ー ブル t 
テレビコン トロ ールケーブルを 本体の コネ 
クタにらつながなくてはならない。 

ここでちよっと悲しいのはケーブルやコ 
ネ クタがかさばるためにスロ ットを 2 つか 
占有してしまうことだ。ゲーム を 録画する 
だけの人にはいいかもしれない力す，グラフ 
ィックで アニメー シヨンを！：いう人なら メ 
モリの増設や数値演算ボードなどら考える 
はず。では，なぜこういうボードのかたち 
にしたかというしやはりコストを抑える 
ためだろう。外部 ユニッ トにする！:電源や 
ケースで値段が上がってしまう（実際 I/O 
からは電源 を 取っているだけのようだが）。 
こ のへん も カラーイメ ージユニット が買え 
ない人のため^:いうところだろう力、。 

このビデオボードには通常のコンポジッ 
トビデオ出力に加えて S 映像出力も備えて 
ゎり， S 端子のついたビデオ機器の場合は 
より美しい画像を楽しむ、ことができる。ま 
た，カラーイメージユニットではスーパー 
インポーズ画面をビデオ信号に変換するの 
が基本で，単にビデオに録画するだけでも 
ビデオ信号を外部から取る必要があったが， 
このビデオボードでは必要ない。21，000円 
とポめやすい価格となっているので，目的 
のはっきりしている人にはお得な買い物と 
なるだろう。 


C comoiler PRO-68K ver2.0 


C compiler PRO -68 K (通称 XC ) は， 
X 68000 の測発環境の中なをなす重要なセ 
ットである。アセンブラとして， C コンノタイ 
ラして，さらには BASIC コンパイラとし 
ても使え， X 68000 のュニークで強力なハー 
ドウエアをカバーするプログラマじとって 
必携の開発セットといえるだろう。 

今回のパ'—ジョンアップの内容は， XC の 
高速化に加えて， ソース コードデバッガを 
新たに用意，さらに， ANSI 規格への準被を 
進める， Human 68 k ver 2.0 でが;張された 
DOS コ ーノレのサポート，各種ツールも強 
化，いったものだ。 マニュアル もさらに 
増え，あまりの重さにパッケージには取っ 
手までつくこ t になったという。 

セツトの内容は， 




用の Adobe Illustrator などが有名だ 力す， ど 
うやら今回のッールはそれらを愈識したも 
のらしい。ドロー系のツー ルの 特おは，ぺ 
イント系のツールのように V 民 AM 上にデ 
.ータを書き込むことで画像とするのではな 
く，ベクトル情報からなるオブジェクトを 
組み合わせて絵を作るというものだ。 

なにがいいかというし一度揃いた絵を. 
再度編集し直したりするこが容易となる。 
また，画面上ではドット数の制約を受ける 
ものの，プリントアウトするとずっと解像 
度の高いなめらかな絵を作成できるのだ。 

まだ商品名が決まっていないので，ここ 
では仮に X - DRAW とでらしてわこう。こ 
の X - D 民 AW は， ドロー七 ル，ペイントセ 
ル，テキストセルという3つの 七 ルを持つ 
てわり， ドロー七 ルとテキスト 七 ルはをれ 
ぞれべクトル情報じよるオブジュクトを扱 
い，ペイント七ルでは ビットマップデータ 
を扱うことができる。これらを重ね合わせ 
てひとつの絵を表巧するわけだ。 

といっても，まだピンとこないかもしれ 
ないが，詳しいことは次号で紹介する予を 
なのでザひとも期待してほしい。 


X 68000 の周辺機器&ソフト近況レポート 37 


ド□-系ブラフイクツール 


オブジェクトをスケルトンモードで編集 


ドローセルをリアルモ 


-ドじして表示 


- C コンパイラ 

- BASIC - C コンパ、—夕 
-ア七ンブラ 


.リンカ 
-デバッガ 


• ア—カイパ、 

ゎよび，新たに追加された， 

• ソースコード デバッガ 
-ライブラリアン 
• プログラム保ずユ_ティリテ 

ィ （ MAKE ) 

などとなっている。 

ソースコー "ドデバッガは ，ソ 
—スレベルでのデバッグを 可能 
にするもの。フルスクリーンモ 
ード（マウス 表示晒面を利用） 

でデバッグ中に C 言語の ソース 
プログラムを巧単位で実斤させ 
るこ t ができるほ 力、， 〔言語で 
宣言された変数の参照ぉよび変更なども可 
能とのこと。 

また，ライブラリアンは複数のオブェ 
クトファイルを穗類ごとじまとめて管理す 
るツール。 X 68000 のハードをサポートする 
鹽當なルーチン （800 種!^:1上）をライブラリ 
t して高速にリンクできる！：いうらの。 

詳しいことはか号でぉ送りする予定だが， 
いちばん気になるのは旧バージョンのュー 
ザーへ•の対応だろう。基本的じは登鍊カー 
ドを返送しているューザーには案内がが送 
られるをうだ。 マニュアル も新規のもの L 
なるので赞用がどの程度になる力、はまだ未 
定だ。 


化巧の「あなたにあったグラフイツクツ 
ール」の最後で，をしくも获蓬氏が「ドロ 
ーイング系のグラフイツクツールがない」 
と指搁したばかりだが，実はこの秋，ある 
ドロ ーイングツールがシヤープさんから発 
売されることになっていたのだ。 

ドロー系ソフトといえば ， Macintosh II 




























































新連載 


大人のための X 閒邮〇 . 


■ 

■ 

■ 

■ 

■ 

■ 

■ 

■ 


X 6 B 000 10万台達脱己をお座 

谋□刚 


長い能書きでごめん 


Ogikubo Kei づ人/ニヒ 

1987年春の発売 la 来， X 68000 の滕あも化 
3年を越えた。300巧台もいわれる PC - 
9801 でさえ ゲーム ソフトは1で本売れれば 
ヒットだといわれるこの業界で，をの30分 
の1の10力•台達成マシン X 68000 では1で 
本を越えるヒット作が スぺ ハリ， ジュノ サ 
イド，ダンジョンマスター などいくつら登 
場し，傲慢な日本の善良な巿民（一応いっ 
て わく力 S '， 私が"嘗良な巿民"^いうとき 
は100%皮肉である）を驚かせた。 

PC -9801 も300で台のうち VMU 前の賀 
い換えられた可能性の高い古い機®や企業 
に大量導入した事務機器を除いたパーソナ 
ルな現場（笑）で現役している機械は100 
で台未満だし思われるが，をれでも10で台 
よりは遥かに多いはずだ。 ゲームューザー 
の X 68000 に力 > ける気合いはあなどれない。 

しかし，をの一方で X 68000 はゲームと 
グラフイックのマシンだという評判も定替 
してしまった（誰がしたのかさせたのか）。 

をうなる I ：誰が瞄る力’というし X 68000 
でいろんなことをしたい t 考えているュー 
ザー と私である。「どうもゲームだのレイ 
トレーシングだの CGA だのプログラミン 
グだの服やかな請ばかりだ，と。どれも女了- 
きでなきややれんようなもんばっかや。 ワ 
—プロや表計算しよ思たら，やっぱ98にせ 
なあかんかのわ」 t いうか和雷同ワールド 
に腰を落も着けてしまうかもしれない。実 
際，をういう人も多い。 

で，「大人のための X 68()00」 である。こ 
れは X 68000 がこれからメジャーになって 
いく過程にわいて避けて通れない問題なの 
だ。でも，"大人"っていうのが I 啡迫なんだ 
な。新しく速載やるよっていったら「アダ 
ルトソフトの コーナー でず 力，？」 なんてボ 
ケるやつは論外 t して（質のいいアダルト 
ソフトがあればやりたいけど），実務ソフ 
卜を使った事務機器としてのパソコンを思 
い浮かべる人が火勢なのではないだろう力>。 

しかし私は事務機器に成り下がったパ 
ソコンなんて大嫌いである。誰がなんとい 
っても，嫌いである。企業なり個人商店な 


りが自的を持って巧った，つまり必要経鉛 
として控除の対象になる機械ならともかく， 
せっかく個人で巧ったのならそれなりに面 
白く使わなければ意味がない，し思うのだ。 
でしよでしよ。をれでもって，いまの X 68 
000は"画白いだけのパソコン"になりか 
ねない風潮がある。をれもまたよくない。 

いちばん重要なもの 

をこで，「大人のための X 68000」 では 
何をするか，というし基本はァプリケー 
シヨンソフトを使ったデータの化理である。 
あるいはビジネスソフトで遊ぶ，ことであ 
る。データといってむグラフィックや PC 
M や MML ではなく，义字列や数値だ。 

余談だが，理解っている人は判っている 
とわり，すべての コンピュータに とってど 
んな デー タら（プログラムなんかも含めて） 
等伽であ.る。単なるビットの羅列をいろい 
ろと区別しているのは人間だ。 X 68000 は 
すべての データは 等伽だ t いうこ t を認識 
させてくれるホおなパソコンである。 

た } i I ば辞書データである力;'，をの膨大 
なファイルを " PCM ファイル"とみなせば 
"COPY X 68 K _ M.DIC PCM " でちゃん 
とノイジーな前衛音楽を披露してくれるし 
画像データだとみなせば BASIC の IMG - 
LOAD コマンドや一部の人は持っている 
GL コマンドで刚师上に葱味深な模様を揣 
き化してくれる。辞書でなくてむ ， COMM 
AND . X を鳴らしたり願像にしたりら備単 
だ。すべてのファイルは等価である。余談終 
わり。 

コンピュータを扱ううえでいちばん火切 
にしなければならないむのは何か。をれは 
ハード ウュアでらソフトウェアでらなく， 
溜め込んだデータである。実のところ/デ 
—夕さえしかるべき I :ころでしかるべき力 
を発揮してくれれば，どんなマシンでも 
( PC -9801 でも PS /55 Z でも）どんなソフ 
卜でら （Lotus 1-2-3 でら dBASE III で 

も）かまわないのだ。 


ついに1日万台を達成した X 郎邮日。だが， 
その X 閒邮日が次のーホを踏み出ずために 
はどラしても欠かせない問題がある。それ 
は「大人でち楽しめるパーソナル ユース」 

の概念だ。単にビジネスソフ h が揃ラこと 
だけでなく，ユーザーの意識ち重要だそ。 

基本コンセプトはこれである。データの 
共有。一度巧ち込んだデータは二度巧ち 
直さないぞ。ってなもんだ。 

あらゆる文字列化，数値化されたデータ 
を扱うこ t 。 火架装の-人風呂敷のドン•キ 
ホーテないい方をすれば，これが'「火人の 
ための X 68000」 の第1の テーマで ある。 

都合のいいことに MS - DOS の5インチ2 
HD デイスクと X 68000 の Human 68 k のフ 
ァイルには互換性がある。さらに都合のい 
いことに， X 68000 では CSV 形式という 
けっこう共通に使えるデータフォーマット 
がある。この形式で記述されたファイルは 
MS - DOS のいろんなソフトでも扱える。 

というわけで，今巧は第0回というこ^ 
で，いまいったファイル互換の閒題 tcs 
V 形式のデータフ ォー マットについての基 
礎知識をオマヶとして記してゎきたい。 

もっと複雑なデータ（グラフや装飾付きの 
データや計算式かきのデータなど）じつい 
てはとりあえず考えない。考え化すし現 
状の悲しさを身悚一がで表現することじな 
るだけだからだ。 

ファイルの互換性について 

世の MS - DOS マシンで使われているデ 
イスクは，現化のところ 3.5 インチと5.25イ 
ンチの 2 DD と 2 HD だと考元てよい。ここで 
問題になるのは， 2 DD にら 2 HD にも2種類 
あるこ i ： だ。日本の MS - DOS マシンでは2 
DD は 640 KB ，2 HD は 1.2 MB の容量じなる 
ようなフォーマットを採用している力 ;’，I 
BM - PC コンパチマシンは 2 DD は 720 KB ， 
2 HD は 1.44 MB のフォーマットなのだ。 2 D 
D に関してはどっちのフォーマットでも読 
み書きできるようになっているので問題は 
ないが， 2 HD に関しては（特に5インチは） 
互いに読み書きできるマシンは少ない。後者 
は 2 HC などと呼ばれることらある。 X 68000 
は当然 5. 25インチの 1.2 MB タイプである。 

つまり， X 68000 のデイスクドライブで読 
み醬きできるのは日本の MS - DOS マシンの 
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5 インチ 2 HD テ、'イスクだというこ i ： になる。 
逆も真なりで， X 68000 の Human 68 k のデ 
ィスクは5インチ 2 HD ドライブを持った 
MS - DOS 上ではディレクトリを見たり 
ファイルをエディットしたりできるわけ/ご。 

ただし MS - DOS では HUman 68 k にでき 
るのにできない2つのファイル名制限がある。 

ひとつは，英小文字のファイル名は扱え 
ないこと。 

もうひとつは，ファイル名8文字，拡張 
子3文字しか扱えないことである。 

前者は， MS - DOS で DI 民すると小文字 
のファイル名が見えるのに扱えない I ：いっ 
た，歯ぎしりぎりぎりである。私も卒論の 
下書きを X 68000 で書いて，学校の PC -9801 
で巧ち化をうとしたら，ファイル名が小义 
字で駄目だった t いう無駄な1日を過ごし 
たことがある。を一いえばさっきも Kami 
kaze で作ったファイルを Lotus 1-2-3 で読 
ませよう I :して同じ目にあった。人間，な 
かなか成長しないものである。 

後者はたいした問題ではない。 X 68000 
上で‘‘ 0 HX 8 ガツゴウ .TXT " ^いうファ 
イルを作って MS - DOS 上で読 tj * し" OHX 
8ガツコ. TXT " となるだりだからだ。 

なんとか X 68000 t PC -9801 で同じデー 
夕が扱えることがわかったわけで，めでた 
い。大人は寬大なので， PC - 9801とだっ 
て手を組んだり利用したりするのである。 

あ！：はシャ_プ かサー ドパーティがちく 
て小型な 3. 5インチ外が•け オー トイジェク 
トドライブを出してくれればもっと完璧 
(間違った日本語）である。 

CSV 形式について 

CSV 形式というのは Kamikaze や CAR 
D P 民 0-6 服 ， CYBERNOTE PRO -68 K 
などで読み書きできるデータ記述の方法 
である 。 Stationery P 民 0-68 K に至って 
は，初めから CSV 形式でデータを持って 
いる。 MS - DOS マシンでら dBASE などで 
使用可能である。ちなみに CSV は Comm 
a Separated Value (カンマで区切った 
値）の略であり，標準形式， DIF 形式など 

t もいわれている。 

具体的には，1つひ L つのて買目をカンマ 
で区切り，ひ i ： つのレコードを復帰改斤 
「 C 民 + LF 」 で区のって記述する方法。 

て頁目が义字列であれば，ダブルクオーテー 
シヨン「 " 」で削む'。数値はをのまま。 
なんていってもわかんない人にはピンとこ 
ないだろうから例を挙げてゎこう。 

なわ， Kamikaze の CSV お巧し CAR 


D PRO -68 K (ぉよび CYBERNOTE P 
RO -68 K ) の CSV 形ぶは微妙に違ってた 
りする。 「 Kamikaze は空欄（データのな 
い巧乱）についてはカンマだけで処理して 
いるカス' ( f 列： ’’ A ’，，，，’’ B’’）CYB 巨民 NOT 
巨 P 民 0-68 K では空欄も’’’’としている 
(例： ) のだ。をれでも， 
互いにファイルをやりとりする際には困ら 
なし、。 

世界で10007 J 本普なしてぃるとぃう Lot 
us 1-2-3 である力;，テキスト読み込み t い 
うおで CSV に似たファイルを読むことが 
できる。ただし，「カンマを巧目の怪切り 
i ： して認識しない」ため，ヌルの巧因ダ 
ブルク オーテーシヨンで くくる 必要が あ 
る（""のこ U 。 をんなときは CA 民 DPR 
0-68 K の方ぶが便利である。 

データの-お用を目相•した書ぶには，ほか 
にら SYLK 形ぶ （マルチ プラン用 ） ，ASC 
II 形ぶ（区明りなし）， ASCII 形式；（区切 
りあり），などがある。 X 68000 の場合 ， S 
YLK は Kamikaze で， ASCII 形式は CA 
民 D P 民 0-68 K でサポートしている。 

SYLK 形式は1つひとつの項目に対し 
て座標が入ったり数ぶなどむ入れられるた 
め多くの情報が表現できる。表計算に限れ 
ば有利だ。 

ASCII 形式の区切りなしとぃうのは， 

て貫目を区切る区切り义字（カンマなど）が 
なくて，1レコードを1斤!：して化九する 
方式。を計な义字が入らなぃので，ワープ 
口などに読み出すのには便利。をて頁目が何 
衍あるかがわかっていれば，区切り文字は 
なくてもなんとかなるものである。 

ASCII 形式の区切りありい、うのは，巧 
口ごとに復佩改斤 （ C 民 + LF ) してる形式。 

これらのデータを格納する方式はあくま 
でも「興なるソフト問でデータをやりとり 
図1さまざまなテキス h お式 


する」のが目的なのであって，たいていの 
ソフトは独自の形式でデータを管理してい 
る。と，いうことは，「コン バート」 とい 
う作業が必要になるわけである。使ってい 
るソフトのホイテイブな格納形式のデータ 
を，化用的なテキストデータにコンバート 
する，あるいはをの逆だ。をのことを忘れ 
てはならない。 

大人にも親切に 

まあ，今回はごす矣搂予備知識だからこ 
んならんかな。ホ巧からは-毎回具体的な 
テーマを 選んで話を進めよう。 パソコン 初 
心者の人も対象にするので，備単な話から 
始める。若い初心者には「苦游しただけ身 
になるのだから，自分の道は自分で明り馳 
こう。頭を使ってこを人閒だあ」なんて 
い一加減なこ^をいって’済ますこもでき 
るのだが（昔はをれを 「 Oh ! MZ はドラゴ 
ンである」などといって正当化していた）， 
大人にまでをんなことは要ポしないので， 
私はわがままな自分に鞭巧って，‘酌:れない 
こととは知りつつ扛，親切に嘗くつもりで 
ある。 

まあ，大人なんていっても，「[]本は子 
供社をだ」なんて断言する人がいるくらい 
なむんで，年齢なんて気にしないでね。乂 
人の定義なんてど一あがいても言葉遊びに 
しかなんないし。まあ，火人は「謙虚」だ， 
とでも，いってわこう力> (私がいっても説 
得力がないかもしらんカミ)。 

* 

ホ巧は第1回^：して，"一度巧ち込んだ 
データは二度と手放さないぞ"の精神によ 
る住所録談話でもしてみようかし野う（陳 
腐なネタで惡かったわね。でも，沉用性が 
高いから便利でいいのさ）。 


CSV 形まI 

" Oh ! X お化が"， "03~548 トロ峭"."がなが踏 I え i が♦さ"."ばよよ一ん"，…, "巧 I っ巧しむんだよん"， 

" Oh ! ~ お化組… …… 

CSV 形ホ2 (とじかく"で囲む） 

" Oh ! X*U 化が". "03-5488 -1309 "."ががが灌 K 南;お"."ばよよ一ん•，•■""，""，"引っおしたんだよん’’."" 
" Oh ! ~ お化が’’…… 

ASCII 形式I (区切りなし） 

Oh! X 編化が 03-5488-1309 おなが港 K なおばよよ一ん 引っ越したんだよん 

Oh ! ~ 沾化部 …… 

(巧 1フイール ド： 11 お. 第 2フイー ルド： 14か ……の i お合） 

ASCII 形式2 (区切りあり） 

Oh ! X 編化巧； 

03-5488-1309 
がが巧;舰んが給 
ばよよ一ん 


引つ越したんだよん ♦データベースソフトから巧おしたとさはた 

Oh !~ も i 化が いていを白おみも巧目の巧巧だけスぺースで 

. 巧められる。 
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新連載 

PROGRAMMING 


清水和人流 
プログラミンク道場 


ア7クラ7にな道を 


〔その 1) 


グームハイテク道場， FORTH 入門など数夕の名作を生んだ，あのち水巧 
人さんが帰つてきました。いや〜お帰んなさい。またまたユニークな記事を 
Shimizu Kazuto お願いしますぶ。てなをんで初化\者の皆さん，この講座は要チェックですよ。 


アマグラマのずずめ 

「人間は考える葦である J 

しかし載近の コン ピュータの発達じより， 
人間の考えるべきことの多くを コン ピュー 
夕が化わってくれるようになった。をのため 
人間は創造的な部分， コン ピュータじはイ壬 
せきれない精神的な部分を主に祖当すれば 
よくなってきた。すなわち，計算や繰り返 
しや，機械的な単純作業はすべて コン ピュ 
ータに任せればいいのである。をれはなに 
も何億もするような大型 コン ピュータ，ス 
—パー コン ピュータに限られたことではな 
い。我々の目の前じある パソコンで かな 
りのことを任せることができる。 

無論，をれができるには，いや自由にで 
きるじは少なく t も BASIC などの言語を 
用いてプログラムを作る能力が必要である。 
これは誰にらたやすくできることではない。 
だから，すぐに使えるソフトがあらかじめ 
揃っていることが重ネ見され，をうでないコ 
ンピュータは， 

「ソフトなければただの箱」？ 

など t 言われてしまうのである。 

だがパソコン本来の面白さは，自分でプ 
ログラムを組み，自分の代用をさせるこ L 
ではないだろう力，。自分の作ったプログラ 
ムのあの愛らしさを知れば，プログラムが 
組めてよかったときっと思える。をれほど 
プログラミングには魅力がある。特にパソ 
コンでのプログラミングにこを創造性，人 
閒らしさがあるのではないかと私は思って 
いる。またプログラムじ惯れてくると先ほ 
どの付録ソフトの使用法もグン t 応用範囲 
が広がってくるはずだ。をれは襄でソフト 
がどのような化理をしているかが理解でき 
るようじなるからである。こうでなくては 
せっかくの愛機が， 

「ソフトあってもただの箱」 

になりかねないのである。 

とはいってら，自由自をに，しから早く 


プログラムを組めるようになるには相当の 
時 I 剖がかかるだろうし，なにかとてつもな 
い怪物に戦いを挑^ J 'ような気持ちになる人 
もいるだろう。確かにプログラムは奥が深 
い。昔は売られているソフト i ： 個人のプロ 
グラムカはさほどの差がなかったものだが， 
いま売られているゲームを個人で作ろうと思 
ったら要する時間は並大抵ではないだろう。 
この実力差がいまひとつやる気になれない 
原図となっているのであろう。 

イヤア，ソレジヤツマンナイナア。プロ 
のプログラマなんてこの際無巧して，我々 
はアマチュアのプログラマ， 

「アマグラマ」 

に徹するのがよいと思、いませんか。キラク 
ニイキ マシ ョオ。いや もっと わわざ っぽに 
考えて，やれプログラミング技法と力、，プ 
ログラム作法だと力、，データ構造と力、，ア 
ルゴリズムと力，，をういう業界用語 （？） は 
ひとまず捨てて，何を作りたいか，何がし 
たいのか，そっちのほうじ重点をわいて考 
えましょうよ。さああなたも今日から， 
「プログラム窓際族」 

になろうではありませんか。 

( 発想は気まぐれに ^ 

ずいぶん大裝终じ始めてしまって内心 
「いかん！」とドキドキしている力 S ， 私も 
プログラムはアマチュアだから気にしない 
でと，さあて何をやろうかなま)……。 

「イ巧をやろうかな……」 

「何をやろうかな . 」 

「何をやろうかな …… J 

をうです。いちばん大巧なのは， 

「イ巧をやろうかな……」 

なのです。アマチュアだから，別に売るソ 
フトを作るわけじゃあないし，何をやっ 
てもいいじやん，の世界なのだ。よかった 

ね。たとえば . ， 

"コンピュータとおはなし" 


いいですねえ。「君，寂しいかい？」「大丈 
夫，でもゲームばかりやってないで本当の 
私をさがして……」 

"作曲" 

をいつあいいや。いい 曲ができれば大儲け 
できまっせ。 

"方程式を解く" 

……&%$%#!!! 

“»<なる人工知能- 
いいけどかなり 大変ですぞ。 

いろいろありますねえ。まだまだこれは 
氷山の一角の一部のチョツトでし力，ありま 
せん。人間の発想はとどまることを知らな 
いのです。でら待ってくださいよ。喜んで 
ばかりもいられませんよ。プログラムにし 
なければなりません。まあアマチュアだか 
らをんなじすごいプログラムでなくてもい 
いのです。いま出た発想をすぐにプログラ 
ムじしてみましよう。 

リスト！〜4がをれですよ。どうです， 
ひどいもんでしよ。これじゃあサギと呼ば 
れたってしようがないですよ。工夫のかけ 
らも見られません。プログラム コンクール 
があれば最下位間違いなしです。 

でもよく見ていただきたい。なんなく 
この手のプログラムのひな型のような気が 
してこないでしよう力，。リスト1のわしやべ 
りプログラムは「人間の入力に対してある 
法則をもって応答する」という点で対話プ 
ログラムの本質をついてわり，リスト2の 
作曲は乱数を用いて音楽を作っている点で 
ある穗の作曲プログラムの骨となる部分で 
ある。またリスト3の一次方程式を解くプ 
ログラムは変数を用いて計算を斤う典型的 
な例であり，リスト4じ関しては「あなた」 
じ閱する知識をコンピュータが觉えていく 
のだから確かに野くなるではない力，。 

エツ， プロの作るプログラムはもっと芸 
術的で，こんなをなプログラムはいくら 
組んでもダメだって？いやあをうじゃな 
いと思うけどなあ。どんなすごいプログラ 
ムだってをの本質のところはこのようなた 
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わいらない発想なんですね。要はをのプロ 
グラムのメインイベントを60分3本勝負で 

いく 力*,パ、 トルロイヤノレかタツグマ ツチか、 

悪役同±かべビーフェイスを登場させる力，。 
をの発想の問題なんですよ。 

をの発想は実は2段階あります。 

をいつは， 

「何をやる力，」と「どうやる力，」 

ですう。 

をして，アマグラマにとって重要なのは 
「どうやるか」ではなく 「何をやる力、」な 
のです。どのようじして実現していく力、は 
プログラムの技法に i ： らわれずただ思いつ 
くままにガムシャラにいきましよう。をう 
すればをのうちコツがわかってきて勝手に 
プログラミングの実力がついていきますよ6 

きっ t . 。 

I ぃきな0ド演歌 1 

さあをれではひ t つ自分を捨てて変なプ 
ログラムを作ってみよう。実は私は「変な」 
というところに非常に価値を感じてしまう 
ので，どうしても「なんか変なの」的なも 
のになってしまう。でもってある日突が， 
"演歌の歌詞自お発生プログラム" 
というようなものをとてつもなく，どうし 
ようもなく作りたくなってしまったのだか 
らしよう力すない。 

なぜ ' i 寅歌力、というと結構パターン化して 
いて，決まり文句が多いので備単をうだった 
からである。まあアイドル歌謡にしても， 
ロックにしてら，ニューミュージックでさ 
えもなんとなく決まり义句があり，できない 
ことはなさ•をうだけどあまりよい案が浮か 
参 IJ ス S 1 おはなし 


びをうらなかった。をの点，演歌のパター 
ン化!： いえばもう これは完璧にして筋お入 
りである。 

いや，わかってますよ。本当は，演歌だ 
って雛しいことを。ヒット曲の歌詞なんか 
黃而目に聴くと「流ち！」と哈ってしまい 
ますよ。まあをれはをれ心して認めますけ 
どね，ノ 《ロディックに 考えた演歌があって 
もいいじやない。をこはをれ， アマチュア 
というこ L で許してもらわないと。 

さて，まず作ろうと思ったからには次の 
段階「どうやる力、」を考えなければならな 
い。この場合演歌の歌詞のパターンをどの 
ようじプログラムするかである。最初だか 
らま)まりすごいことを考えずに決まった長 
さで決まった構成で，出てくる単語だけ遮 
えばいいじやない， t これまたを易な方向 
へ逃めばよい。ここで演歌の特性が生きて 
くるわけである。 

今回分析してみて本当にびっくらこいた 
のは，大部分の演歌の歌詞が七五調だった 
ことだ。著作権法の間係上実際の歌詞を載 
せるのは控えたいカミ，読者の皆様にゎかれ 
ましては，ぜひとも知ってる演歌の歌詞を 
思い浮かべて いただき たい。「オヤノチブヒ 
ク」「モッテウマレタ」 「サケ ハノメノメ」 

などの七音が圧倒的で，これに「ギキヨウ 
ダイ」「サダメナラ」 i ： か「ノムナラバ」の 
五音の言葉が補肋を している おがはとんど 
である。曲によっては，ここはわざわざ7 
文字や5文字になるように言葉を変えたな 
と感じられるようなところもあるほどであ 


うな言葉，「ナミダゴイ」「ヒトリザケ」「二 
ド トアエ ナイ」「オンナゴコ ロノ」 などなど 
イッパイ集めてつなげれば一 T 上がりとい 
うこ t になりをうですねえ。 

をんでもってつなぎ合わせの方法であるが， 
非常に備単に次のようにしよう。 

ほにやらららら力*ほにやららで 
ほにやららららもほにやららよ 
ほにやららららはほにやららね 
ほにやらららならほにやららだ 
つまり7-5， 7-5， 7 —日， 7-5 と 
いう調子である。あとはこの7 t 5のとこ 
ろにをれどれの义字数の言葉を入れていく 
だけである。をしてあっというまに化米て 
しまったのがリスト5のプログラム。 

どうです，ひどいもんでしょ。発想が発 
想ならプログラムもプログラムだね。まあ 
をれでも一応走らせてみましょう力’。 

といって走った結果が例1である。 

ウーン，確かに失敗からしれないけどこ 
りや笑える。このように素人の作るプログ 
ラムはうまく動かなくても結構酣白いので 
ある。ああよかったよかった。これでら言 
葉を厳遇すればもうもったぁましな詩が化 
ホをうな気らするし，試作版ということで 
お茶を濁すのである。やっぱり単語同-上•の 
意睐が' チヨット はつな がって ない i ： だめの 
ようですなあ。誰も言ってくれないから自 
分自身で「発想はよかったよ」と誉めてあ 
げょラ。 

ところでリスト5のプログラムはチヨイ 
卜気をつけなければいけないところがある。 
をれは配列の取り方である。 BASIC の配 
列は一般に添字0から始まるのである。た 
i えば a (5) を宣言したとすると配列 a . 


る。 

をう力，，七五調か。なら韻は簡単，7义 
字と5文字で演歌の中じいかにも化てきを 

参 リス h 3 ほ一て一しさ 


10 dim str a[ 50 ] 

20 dim str b( ii)[ 50 | =1" こん！こちは "•" さようなら "••• きみのな：ま " | 
3 け dim str c ( 2 ) 【50 ] = 1" こん：こちは " ， " さようなら " i " X 6 8 K ") 

40 a = -"" 

50 input a 

60 if a=.... then goto110 
70 for i=0 to 2 

80 if a = b( i ) then print. c( i ) 

90 next 
100 goto 40 
110 end 


10 float a,b 
20 print *'ax = b" 

30 input "input a：",a 
40 input "input b:",b 

50 if a = 0 and b=0 then print .. ふてい ..： goto 90 
60 if a = 0 and b<>0 then print " ふのう "： goto 90 
70 print .. だ .. ， b/a 
80 goto 20 
90 end 


•リス h 2 さっさよく 


争リスト 4 じんこ一ちの一 


10 str as I な GI 
20 tn_in 1 11 ) 

30 for i=I to 8 : m.ailoc(i, 4000 ) : next 
40 for i=1 to 8:m_assi 弓 n(i,iJ:next 
50 for i=1 to 100 

60 if int(rnd()♦?)=0 then aS=aS+ 

70 if int(rnd( )*7 )=1 then aS=a$ + 

80 if .int( rnd( ) ♦ 7 ) =2 then a$ = a$ + 

90 if int{rnd()♦7)=3 then aS 三 aS+ 

100 if int(rnd{ )*7)=4 then aS = aS + 

110 if int(rnd( )♦7 ) =5 then a$ = aS + 

120 it’ int ( rnd( )*7 )-6 then aS = a$-f 

130 next 
140 m_trk(1,a$ ) 

150 m_play() 

160 end 


c 

d 




b 


10 dim str a(100)(50],b(50] 

20 int i , J 
30 for i=0 to 100 
40 b=.." 

50 input " あなたのとくちようは "； b 

60 if b="" then goto 90 

70 a(i)=b 

80 next 

90 for j=0 to i—1 
100 print " あなたは ".aU > 

110 next 
120 end 
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dim str b (9)【10] = r さだめなら"•"みれんはな‘’ I " もういちど 
りを"•"まずしさを’’ •"とおりあめ"，"なみだごい‘’ r やさしさを 
ごまで" 1" このわたし"> 
dim char c 1 ( 4 ) , c 2( 4 ) 
for k =1 to 0 
for i =1 to 4 

c 1( i ) = ( rand ( ) mod 10) 
for j =1 to i -1 

if cUi )= cI ( j ) then goto 50 

next 

c 2( i )={ rand () mod 10) 
for j =1 to i -1 

if c 2( i )= c 2( j ) then goto 60 

next 

next 

for i =1 to 4 

print a ( c 1( i )), b ( c 2 (i )) 

next 

print "本本本本本本本木本み♦丰本" 

next 

end 


は a (0) から a (5) までなので，6つの箱 
が碰保されむことになる。このリストの 
ように宣言と同時に初期値を与えている 

きは（二{データ0，データし…… } 
で配列にネ刀期値を与えることができるの 
だ）1番目のデーナが〇をに入るので削違 
えないようを意が必要である。いや，かく 
言う私^最初は間違え たのであった。 

杉うひとつ気をつけるべきことは全角义 
字のネ及いである。普通の半角文字を使うと 
きはいい力す，全角を使用ずるときは文字列 
の長さ力 5' 倍になってしまうのである。した 
がって文字列の長さの宣言 STR にわいて 
も， 7文字なら14の長さを宣言してわく必 
要がある。これまた私は引っ掛かってしま 
って化ずかしい限りだが，次から気をつけ 
ればいいのである。 

反省一 A 間の偉大さ 

失敗は発明の卧，とはよく言ったもので， 
人間には反省するという素晴らしい機能が 
備わっている。これがあるから人類が，科 
学が進歩するのである。反省をする人閒こ 
をがより大きな仕事を成功させる可能性を 
持っているのである。たとえば，私は一度 
なべてまずかった立をいをばは二度とをべ 
ないように'じ、枯卜けている。1人ひとりが気 
をつけることによって，目本の立ないをば 
業界も発展しようというものである。 

この プロ グラムの元々の発想は，「ハイキ 
ングーバスの中の ゲーム 集」などと題して 
「書店の窓際族」実用書 コーナー じ並んで 
いるような本の中によく出てくる「創作义」 
の ゲームから きている。 A 君は誰が， B 君 
はいつ， C 君はどこで， D 君は何を， E 君 
はどうした，というようにバラバラに考え 
た文章をつないで面白い义孽ができるのを 
♦リスト已演歌1 


楽しむ，というあれである。 

ここでは人の代わりに亂数を用いて不规則 
性を狙って いる力 3'，この手法は創作的なプ 
ログ ラムについて 非常に応用がきく。 リス 
卜2の作曲もまさに舌し数の応用である。た 
だこのように完全に乱数にしてしまうとこ 
れは創造とは程遠いメチャクチャになって 
しまうので，をこにはやはりなんらかの規 
刖性を残してわく必要がある。これがこの 
手のプログラムの善し惡しを決定する部分 
であろう。 

をんなわけでリスト5を反省して，もう 
少し規則性を持たせる方向で考えていこう。 
をのために7文字，5义字のそれぞれがど 
こに入ってもいい i ： 考えるのはやめにして 
演歌の流れにしたがって，最初の フレーズ 
はこの単語から，次はこの単語から選ぶ， 
というように場所によって選べる単語が異 
なるようにしてみよう。 

こうする^ある程度演歌 C のストーリーを 
決•めなければならない。たとえば次のよう 
になる。 

く例題>> 

い、り） 

ホニヤラホニヤラの ホニヤララに 

ホニヤラホニヤラカ';ホニヤラララ 
(さび） 

ホニヤラホニヤラでホニヤラなの 

(くすぐり） 

ホニヤラホニヤラは ホニヤラ ララ 
(きめ） 

ア〜アホニヤラララホニヤラのホニ 

ャラ 

これを音符にする t 〜のような感 

じであろう力，。歌ってみるとなんとなく典 
型的なド演歌になってきたような気がして 
きたであろう。実際の演歌の作詞家もこう 
やって単語をあてはめていく作業を頭の中 


でやってるだけなんじ やない かとさえ思え 
てくる（阿久悠さんごめんなさい）。をして 
最後のホニヤラのホニヤラってところがを 
のままをの歌の題名になったりして。 

冗談はともかくこれをプログラムじした 
のがリスト6である。リスト5に比べてデ 
—夕がずいぶん增えたが，これは各部々ご 
とに5つずつのデータを持っているので必 
然的に增えてしまったのだ。 

またリスト5では一度まらせると5つの 
詞を出して終了してしまっていた力す，今度 
は データの 選び方によってものす ごい 数の 
パ、 リ エー シヨ ンが考えられるので，リ ター 
ン キーを押すたびじひとつ詞が出るようじ 
してわいた。もっ！：もこの へんはプロ グラ 
ムの本質!：まったく闕係ないのでどう作っ 
たっていいのである。いっそのことかたっ 
ぱしからプリンタに出力して，をの中から 
いいものを探し， コンクー ルに送ってひ t 
儲けなんてのはどうだろう（ダメか）。 

ももろんデータに使われた単語は私自身 
が考 i たものである力;'，こうやって乱数を 
使って組み合わせると自分でら予想できない 
面白い詞が化ホたりするのである。コンピ 
ュータは機械的にしか動いていないのに， 

出米上がる詞は意外性に富んでいるところ 
が'睐わい深いではないか。 

また同じようじして詩や文章，簾，俳句 
なども簡単に作れをうである。要するに乱 
数を用いた発想法のプログラムというわけ 
である。しか丄こんな考えかたは芸術を冒 
满しているようでなじかスリルを感じてし 
まう。たとえば乱数を用いて作曲された音 
楽は芸術といえるのであろう力，。 

をんな哲学的なことを考えながら走らせ 
た結果が例2である。例1に比べてだいぶ 
意眯をなして演歌らしくなってきたかなと 
[例1 ] 


黯攀 

さいてみせます 

あなたこいしい 
できるこ t なを 
ついてゆきます 

もってうミれ/こ 
本本み本木本本 

にどとあえな!^ 
どこかちで素す 

ついてゆき t す 
あなたこいしい 

おやのちを 
さいてみせ i ず 
にどとあををと 

ついてゆきます 
本みみ木本水水 


諸え I を 

ぞいごまで 
まずしさを 

lit 

このわたし 

みれんぱな 
このわたし 
さだめなら 
をういちど 

もういちど 
このわたレ 
やさしさ奏 
さいごまで 


111111 111 
もってうまれ/こさいご丢で 
本本本水本本本水水本本本み 
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1 i n t a 

5 dim int. c 1(10 ) 

10 dim str all 4)[14 I = (" おんなこころの ’‘ •" いのちをかけた"，"ここ 
ろがわりの " ， ’‘ ひとりぼっちの "•" あなたしんじた " J 

20 dim str a2 ( い [ 10 ] = {" かなしさ！こ " ， " さびしさじ " i" くるしさ！こ ’ ■ • 
" おろかさじ " ， " ふしあわせ"） ， 

30 dim str a3 ( い [ 1 り ={" きようもなきます"•••ないてのみます "，" 
くいてかなしい " I " いつもわびしい ■’•’’こころさびしい "1 

40 dim str a‘U い 110 い {" みなとまち ‘‘ ， ‘’ なみだざけ ’ ひと 0 ざけ"， 
" ひとりたび " ， " むねのうち’‘） 

50 dim str a5(4) いり = 【 " あなたこいしい " ， " あなたいとしい " i " きっ 
とまちます " ， " いとしいひとと " ， " おむろしんじて"） 

60 dim str a6 ( 4 ) 【 1 り =(" いつまでも " ， " さいこまで " ， " いつのひか"， 
" きようもまた "•" なみださそ"） 

70 dim str a7(*lU16 1=1" さびしいこころは"，"せけんしらずの •• •" 
おやのちをひく " I ’’ もってうまれち " ， " どこか！こてます "） 

80 dim str a8 ( 4 ) | 10 | = 【 " みれんばな •••" とおりあめ " ， " はぐれどり " • 
" わたりどり " ， " かれすすき"） 

90 dim str a9 (' い 【12 ] = (•’ いつまでも " ， " このこころ " ， •• おもいだす"， 
" めくもりを " ， " もういちど "} 

100 dim str al0(4)【14 1 = r はこだて "•" 甘んたい"，"！こいが た"，"つが 

ブ " " 卜 す《奇 、 "J 

110 dim str all M) [141={" はな " r ひと "•" おとこ "，" < じ " ， " やど "} 

120 for i =0 to 10 

130 c 1 (i) = (rand() mod 5) 

140 next 

150 print a1(c 1(0) ) ," ",a2(cl(1)) 

160 print a3(cU2))•a4(cU3 )) 

170 print a5(cl(4)),.. " , a6 (cl( 5 )) 

180 print a7(cl(6)),a8(cl(7)) 

190 print "ああ"； a 9 ( cl ( 8 ) ) , •• " , a 1()( 巳 1( 9 ));" の"； al 1 (c 1(10 )) 

195 print " 本本本本本：*本本本本本幸本本幸本来来ネ本本本本" 

200 input a 
210 goto 120 
220 end 


いうところである。まあをうはいっても， 
実はこのデータの組み合わせを考えるのに 
ずいぶん時間をかけたのである。嘘だと思 
うなら自分でデータを入れて走らせてみる 
t よい。かなり的はずれの歌詞が出来上が 
るものである（そっちのほうが面白かった 
りして）。まあこれは女の恨みという典型的 
な恨歌の類になった力3'，第4節のくすぐり 
のあたりにやや不自然さを感じるほかは意 
外に面白い発想があったりして，作った私 
ら結構遊んで.しまった。 

ここでプログラムを組んでいるときにや 
っぱり引っ掛かってしまった落とし穴をご紹 
かしよう。あまりこういう細かいことに気 
を取られている I ：豊かな発想を妨げるので 
触れたくないのだが，これも世のため人の 
ためである。 

ひとつは PRINT 文で表示される位麗に 
ついてである。使用した文字列の中には都 
合でほかの文字列よりチョツト長いものが 
含まれていたため，ずれが生じてしまう。 

をこである程度文字列の長さを合わせるため 
じ長いものに揃えて，短いものには空白を 
加えたりしている。また；（七ミコロン） 

を用いると余計な空白が必要になってしま 
うので，（カンマ）を用いた。こうすると T 
度よい位置に义字列の間をあけて表示され 
る。逆に連続して表示したいところには七 
ミコロンを 用いた。 

もうひ i ： つは次の詞を書かせるための空 
打ちの INPUT 义である力す，これにもなん 
らかの入力変数と型が必要である。 X - 
BASIC では特に変数の種類を宣言してい 
ないとなられるので注意が必要である。た 
>リス K 巨演歌2 


だ従ホの BASIC L 違うということを意識 
しすぎて嗅わず嫌いにならないでもらいた 
い。従来の BASIC を使っていた人がこの 
BASIC に慣れるまでに2日とかからない 
であろう t いわれる，をれほどたいした差 
はないのである。 

念を押してわく力;'，このような事柄はプ 
ログラミングの本来の姿とは関係ないので 
あって，このプログラムの本質は，「決めら 
れたデータの中から乱数で適当な組み合わ 
せを作り，作詞の模做をした」ということ 
にがきる。をしてプログラムのな法 t して 
は乱数と配列の使い方だけが重要である。 
このタイプのプログラムとしてまだまだ応 
用できるのでありんす。 

1 最終調整と応用 1 

「プログラムを 愛するものは最終調整を 
重要視ずる」偉-火な思想家-孔子ら言っ 
ているように（ウソよ）最後の段階で挫が 
してしまうのは少年マンガでも禁じ手.とさ 
れているほどである（ホント？）から，不 
満なところはをの場で直してわこう。 

リスト6の不満点は第4節の「くすく、、り」 
のところであった。まあをのついでに第3 
節にも手を加えてもう少しましにしたのが 
リスト7である。全体の単語分け！:データ 
が少し変更されている。これをワクワクし 
て走らせると例3のようになる（実際乱数 
を使っていると予測ができないからドキド 
キさせられて結構楽しい）。 

素人 t しては，いや乱数 t してはこのへ 
んが限界で，プロの詞の足元にも及ばない 

[例吕] 


(とフオローしてわこう）力す，逆にプロが 
このような ツールを 持ったらスランプを楽 
に拔りられるのではないか。 

どうです，作詞家の皆さん，わをくしと 
きまっせ。普通の皆さんはこのデータを変 
えて，自分の選んだ言葉で遊んでみてわく 
んなはれ。暗い歌や明るい歌，— 女に味方し 
た歌し巧の歌いうように，結構をの人 
の性格が化まっせ。逆にプログラムのプロ 
といわれるような人はこんなチンケなプロ 
グラムでは満足せずに傲庭的にやるからし 
れないねえ。膨大な7文字，5文字をの他 
2，3，4文字のデータべースを作り，さ 
らにをの意味から相性度のような評価値を 
入れてわき，人工知能まがいのシステムで 
本格的ならのを作る人（をんな物好きなを 
人はいないでしよう？）も化てくるかもし 
れませんね1。 

私はいまそんなことに舆味があるのではな 
く，何をどのようにプログラム化する力>， 
という基本の素振りを斤っているのである.。 
したがってできるだけ最小限の仕様にとど* 
めてわく方創•で斤きたいと思っている。あ 
とは応用次第なのである。 

実は「何を」「どのように」プログラムす 
るか，という部分が実は最も而白く，最扛 
忘れが 1 b な t ころである。だから私は， 

「暇プロ」 

をわすすめしよう。 

。暇プロ」 

とは，暇に任せてつらつら^無計幽に，し 
かも削単なプログラムを組んでは壊し，ま 
た改良したりして，新しい発想を應くので 
ある。 
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120 for 1=0 to10 
130 cl(i)=(rand(1 
140 next 


mod 5 ) 


150 pr 
160 pr 
170 pr 
180 pr 
190 pr 
195 pr 


nt al(cl(0 い ，" .. ， a2(cl(1)) 

nt a3(cl(2) ) ,a4 (cU 3)) 
nt a5{cl (-n ) ,•' '*,aB{cl(5)) 
nt a7(cl(6)),a8(cl(7)) 


ああ"； a 9 (i 
幸幸本本本 


け ） ）•" " ， al0(cl(9)) ; " の " ； alUcl( 10 M 

♦ 本 ♦ 本幸幸幸キ本幸本 ♦ 幸本本 ♦ 幸幸 t 


200 input a 
210 goto120 
220 end 


垂リス!- 7 演歌 3 [例 3] 

1 int a 

5 dim int cl(10) 

10 dim str al ( 4 )[14 ] = {"おんなごころの•••"いのちをかけた"•"ここ 
ろがわりの"，"ひとりぼっちの " r あなたしんじた‘‘） 

20 dim 3 tr a 2 ( 4 )[ 10 ] = {"かなしさじ"，"さびしさじ"，’’ < るしさじ"， 

"おろかさじ’’，"ふしあわせ"） 

30 dim 3tr a3 ( 4 ) [ 16 ] = {"きょ うもなきます"•"ないてのみます " • " 

くいてかなしい "•••いつもわびしい "•"こころさびしい ’’ ） 

40 dim str a4 ( 4 ) い 01= (•• みなとまち"，"なみだざけ"，"ひとりざけ"， 

"ひとりたぴ"•"むねのうち’’1 

50 dim str a 5( 4 )11 り： M " あなたこいしい" I "あなたいとしい"，"きっ 
とまちます"，"いとしいひとと"•"あなたしんじて"} 

60 dim str a 6( 4) [1り=("いつまでも"•••さいごまで" I " いつのひか"， 

"きょうもまた"•"なみださえ"） 

70 dim str a 7 ( い【8 ]= ("かもめ"，"たばこ"，"はつこい"，"ガラス " r 
こども"） 

80 dim str a 8 ('1) 【101= ( "この こ いよ"•"このわたし"，"このこころ"， 

"こいでした"，"おもいでを"） 

90 dim str a 9 ( 4 )[ 121= (" いつまでも"，’•このこころ"，"おもいだす"》 

"めくもりを"•"もういちど"） 

100 dim str al 0(4 )[ 14]=("はこだて"•••せんだい"•"じいがた"•"つが 
, " >1 ^ がふ ぎ -" J 

110 dim str all (4 U 141 = r はな"•"ひと"•"おとこ"，" < じ" •" やど"1 

120 for i =0 to 10 - 

130 c 1 (i ) = (rand() mod 5) 

140 next 

150 print al ( cl (0))," ", a 2( cl {1)) 

160 print a3(cl{2)),a4(cl(3)) 

170 print a5(cim)," ..ia6(cl(5)) 

180 print a7 (c 1( 6 ) ) ; •’ みたいな " ， a8(cl(7)) 

190 print " ああ " ； a9 (cU 8 ) ) i " " • al0 ( c 1( 9 ));" の " ； all(c 1(10 )1 

195 print" 幸本本本本幸本本幸キ本幸本本本ネキ本幸夺本 ♦ 本 " 

200 input 扛 
210 goto 120 
220 end 


参リス hQ 明るいお [例 4] 


これは一見なんの得る t ころもないよう 
な気がする力 3', 人が考えることを一緒にな 
って考えていては結局二番煎じになってし 
まいかねない。最初はくだらなくても自分 
で考えることが大切なのだ。ひと昔，10年 
くらい前は，現在基本ソフトといわれてい 
るソフトはほとんどなく，またグラフイ 
ツクや FM 音源などのハードもなし皆 
BAS にでプログラムを組 tj * のが当たり前 
だった。をのため，暇プロをする人が多く 
さまざまなソフトが投稿されていたらのだ 
が、 いまはゲーム全盛なので BASIC を使え 
る人の割合は相当低いのではないだろうか。 


なんとなくつまらないとは思わないだろう 
か。 

I 今月のまとめ 1 

最後にアマグラマの重要な点をま t めた 
りする。 

1) 何をやるかがいもばん重要。 

2) 次にどうやるかが重要。 

3) 最初はできるだけ備単に考えてプログ 
ラムをまず作る。 

4) 暇プロでいろいろくだらないプログラ 
ムを作り発想を磨く。 


をいでもって今回出てきた項目は， 

1) 文字列の配列 

2) 亂数じよる選が 

ってとこだろう力，。もちろん必要のないよ 
うなことはすべて省略した。これからも俯 
単なプログラムばかりで斤こうっと。 

さて本当の最後に，今回の例を見て暗い 
人だし思われる^嫌なので，「明るいバージ 
ヨン」を作ったのがリスト8で，をれを走 
らせたのが例4である。なんだか青春や N 
HK やニユーミユージックというものを感 
じさせるものとなってしまい，自分を再認 
識してしまう今日この頃であった。 
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日本語をが理する 

ためのを章 


パソコンのを要な用途として挙げられる「日本語 
ワードプロセッサ Jo パソコンの性能を測る目を 
として，どれだけ便秀なワープロがあるかという 
のを挙げる人も多い。誰もがもっとも必要とされ 
るアプリケーションだと信じている割に，通常， 

. ビジネスアプリケーションとして捉えられている， 
それが日本語ワードプロセッサだ。 

ムつうの人はそれほど文害を書かないというのは 
事実だし，多くの人は快適な入力よ‘り，美しい出 
力を求めている。では僅巧なワープロとは？ 

日本語処理が真に私たちに必要なものであるなら, 
環境のな善はなじじもまして必要なことだといえ 
る。同じ処理系を使っていても，身の不幸を嘆く 
ばかりでなにも巧力していない人と地道に環境な 
善している人では大きな違いがある。信じよう。 
パソコンとは，使い込めばそれなりじ応えて<れ 
るものだと。 

CONTENTS 


ワープロを使ラ前に 

日本語を書くための 7 つの方法 . 吉田幸一 4 日 

X 郎邮日の曰本語現巧を見る 

我慢せずに使う WP.X . 中野修一引 

雷語1号はどラなるのか？ 

ホメオスタシスへの道 . 祝一平 5 目 

ASK 即 K 用辞•乂ンテナンスツー J い前編 

辞書整備基本編 . 巧田がま如 










特集！ 



プロを使う前に 


日本語を書くための7つの方法 


Yoshid 曰 Kouichi 

吉田幸一 


巧巧しいワープロがあったとしよう。さあ，君はいったいなじ 
を書くのどろうか？ 数えきれないくらい世に出ている日本賠 
ワープロはいったいどのようじ使われているのどろうか？ こ 
こでは「文字じよる自己表現」の手法を考えたい。 


ワ ー:あるんた:'けれど，それでな 
にをしぶら I ぃ％:スぅ」 

t 案の填，部を讓輩に"詞"い、う名 
巧こ。 "ことば"と読 
-ん， 


塞病 





て'參おでがし-; 

むのだをう-塞*。う一ん，いい名前だなあ。 

達たいなあ。きっしどこかで 
主鱗がてた、りするんだろうなあ。と，今巧 
ぷ^^" " f を本語だ i ： いうのを間いて，思い 
た。 

をお若'ホスマンはモ紙を譜いたり， 

:普を:麗 I 、たり，企画*を普いたり，を 
良告普のためにワープロを使う。 
私は仕事としてワープロを使う。学生はレ 
ポートやを論のためにワープロを使う。ち 
よっとしたチラシなど A 4 用紙1枚な下の 
文書のためにワープロを使う。 

全部，案務的な道具としてのワープロで 
ある。をれ.じ I 外でワープロを使っているユ 
—ザーはどのくらいいるのだろう，という 
のはなかなか疑が1であった。ワープロって 
結構謎なのである。ワープロというものを 
見ていると"文章を書くことは誰しも自然 
に巧う巧為である"みたいな扱いをされて 
いるから。 

たとえば最近の若者は义章を醬かない， 
みたいないい方をよくされる。をれは閒違 
いである。をの証拠に，パソコン通信をち 
よっとやってみるしくだらないことを嘗 
いた义章に山ほどわ目にかかれるはずだ。 
やはり，機をがあれば誰だって义章は霉く 
ものなのだ。 

I 難のワ-プロとは 

姑初にワープロソフトを前にして，あな 
たはなにをしただろう力，。わをらく，韻に 
も薬にらならない文章を打ち込んで喜んだ 
のではなかろう力>。私は， X 68000 を巧っ 
てワープロを立ち上げたのはいいけれど， 
なにら蕾くことがなく，近くにあった巧学 
巧を巧ち込み始めたやつを知っている。 

昔，アルバイトでワープロ教室のインス 
トラクターをやっていた！：き，休憩時 I な】じ 


サザンの歌詞を一'じ、不乱にがち込んで喜ん 
でいた女子大生の受講者がいた。 

これがう少しワープロに慣れてくると， 
ギターを抱えてキーボードを前にして詩を 
普くヤツが化てきたり，小説を書くヤツが 
化てきたり，蔵睐もなく論义めいたエッセ 
イを普くやつが化てきたりする。プリンタ 
なんかなくても，発表する場がとりあえず 
なくても構わない。 

私はこう考えるわけである。文章を書く 
ことは， Z’s STAFF でなんか絵を描くこ 
力、， ギターをかき鳴らすと 力、， 漫ネを 
すると力、，プログラムを普くとか t 同じく， 
表現の一種なのだ。"人間は〜する動物で 
ある"シリーズのひとつに，"人間は表現 
する動物である"っていうのを入れたいく 
らいだ。人閒は自曰を表現しよう t する本 
能を持っている，なんて怪しげな言葉にし 

てもいし、。 

碟るのが主な表現である人もいるし，絵 
を描くのが表現な人もいるように，普くこ 
とも一種の表現に過ぎないのだ。 

をして，ワープロというのは，表現を支 
援する道具なのである。 

I 書さ残ずこと I 巧 L ずかしいことでちる 

さてさて，文章を醬くことは文明に冒さ 
れた人閒の自然な表現の一穗であるという 
ことにした。をの証拠に私の部屋を引っ搔 
き回すと，書きかけの小説やらエッセイや 
ら詩やらを残した原稿用紙や レポート 用紙 
がポコポコと 化てくるのである。 ワープロ 
はをういった表現を援助する道具でありメ 
ディアなのだ。 

なんだかんだいって，我々が曰本語で(少 
なくとら意識のうえでは）ものを考える限 
り，ふつふつ i ： 湧いた愈見やアイデアを残 
すにはまだまだ义章や詩というのはち効だ。 
少なくとら映像や音楽よりは曖昧でなく， 
新しく修得すべき技術も少ない。 

ヮープロをゎも^^>ろに立ち上げて， 適当 
なファイル名で書き留める。 


をうした文章は，何年かたって読み返す 
とたいてい読むに耐えないものだったりす. 
る力をこで消してはいけない。手を加え 
てもいい力す，消してはいけない。重嬰な 
"青春の’汚点"，"過まの汚点"なのである。 
私なんて汚点どころ力，"過去の巧面"くら 
いたくさんある（巧点一巧線一巧面一巧体 
と次元が上がる）。なんという力，，若気の 
至りという力，，若気のアンという力，，をん 
ならんである。 

I 表現に巧ずる衝動について 

表現することしなにかを創り化すこと 
は同じ。表現したいものが自分の中にしか 
なかったとき，他人の真似や引用でなく自 
分力 3' 表現できた t き，それを創造という。 

表現するという斤動にゎいて重:要なのは， 
をれが自分にどうフィードバックしてくる 
かにつきる。表現物が他人の目に触れない 
場合でも，頭の中で思っているよりよウ义 
章じするほうがフィードバックは大きい。 
さらに，他人に餅んでむらったり削いても 
らったほうがフィードバックは大きい。 

小さな子供は大人や友達に相手をしても 
らいたくて，あの手この手を使って表現す 
る。結果がフィードバックされて，うまく 
いった方法は何度も使い，うまくいかなけ 
れば新しい手を考え出して，学んでいく。 
をれはいくつになっても（ガキのように望 
んだフィードバックを得るためにすねたり 
駄々をこねたりはしなくなるけれども）同 
じことだ。自己顕示欲，なんていうといい 
意味にとられないことら 夕い力 5', 誰でもを 
ういった術動はある。人に見せられない術 
動なら，自分にだけわかるようじ表現すれ 
ばいいで はない 力、。 

頭の中でわかっているように思っている 
ことでも，頭の中では理路整然としている 
ように見えても，いざ义韋じしようとする 
とうまくいかない。実の!：ころ，人は言葉 
だけでイメージするものではないからだ。 
言葉でないものも言葉にしなければならな 
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いからだ。をれには多少の訓練は必要かも 
しれない力';，こと日本語に限っては，誰し 
も素養はあるのだから，をう大変な作業で 
はない。 

言葉を穂み重ねていくことによって脳は 
成長していくのだ。 

I ワープロだとこんなにおいしい 

をして，ワープロというのは手書き文字 
と違い，客観的なフィードバックが得られ 
る点で秀逸である。間欠的に漓いた考えを 
まとめたり，無手順垂れ流しで吹き出た単 
語の羅列に意味を持たせるよう加工するの 
に最適な道具なのだ。決して紙^ペンの代 
わりではなく，もっ！:穂極的な支援ツール 
なのである。綺麗な义專を作るためではな 
く，言葉を書き留めるための道具なのであ 
る。プリンタはなくても構わない。 

ワープロで書くこ！：のメリットをまとめ 
てみよう。 

1) 書くことによって自分の考えや言葉を 
客観的に見ることができる。 

2) い一加減な考えでも，をれなりのもの 
にまとめることができる。 

3) 自分の考えのあさはかさを知ることが 
できる。 

4) 想いを吐き出すことによってカタルシ 
スを得られる。 

5) 自分の考えていることを知るこ i がで 
きる。 

ほら，こんなにある。ワープロによって 
普かれたものを f 云達に使ゎうとすればプリ 
ンタは必要だけれど，プリンタを使わなく 
てもこんなにメリットはあるのである。手 
書きと違って，読み返ずこ t が簡単だから 
だ（をんなのは，やたら字の'巧い私だけだ 
らうか）。 


义章の書き方入門 


‘‘覆水盆にかえらず" L いう中国の有名 
な故事がある。昔，中国の越に覆水という 
大変親孝行な青年がいた。彼は每年ゎ流に 
なるし都から田舍の-母親のところへ帰っ 
ていたのだが，ある年，道中で事故があっ 
て，傭省できなくなった。突がのことで便 
りもできず，覆水が帰ってこないことをは 
かなんだを齡の巧親はシヨツクで死んでし 
まった t いう話である。教訓として，普段 
孝行なばかりにちよっ^した事故で親を嘆 


かせてしまった。適度な親不孝は必嬰であ 
る，し私に有利な結論が導き出せるので 
あった。 

らちろん，この話は嘘八百。しかし， 
"覆水盆にかえらず"という言葉しか知ら 
ない人であれば，信じたかもしれない。単 
独で絶がのな意眯を持つ言葉なんてないの 
である。をの言葉が速なって作られた文も 
またしかり。 

I 第□講「胃にずるということ J 

こういう大原則がある。 

"人は自分の知らないことは書けない" 

さらに，こう続く。 

"人は言葉として知る t は限らない’’ 

私は，マグリットの1枚の絵を見て感動 
した。をの絵を描写するこ t はできる。を 
れは映像を言葉に変換するこ t である。を 
の際に私は，をの絵を描写するに相応しい 
自分の知っている言葉に置き換える。をれ 
を解釈という。自分の知っている言葉 t *' 表 
せないと（たいていをうだが）石になる。 

なんらかの言わんとすることは，映像や 
音や動きや言葉やいろんなメディアでイメ 
ージされ，をれを映像で表現する^きはイ 
メー ジのすべてを映像に変換しようと試み， 
文章で表現しようとするときはイメージの 
すべてを文章に変換しようと試みるわけだ。 
ああ，無謀。 

映画を見て感動した t き，小説を読んで 
感動したとき，ゲームをやって感動した t 
きなどなど，人はをれを表現したいと思う。 

表現する手段が文章の t き， 

"表現するに必要な言葉の知識" 


よくいわれるのが，学校の先生でもいう程度 
のことピカ、’， 

"読む人のことを考えろ" 

である。これはたいていの場合無駄である。書 
き设れない人は"自みとよく似た感性，嗜好を 
持った人しかお定できない"から。これは文幸 
じ限らず，音楽でも，マンガでもよく似たもの 
だ。 

代表的なのが比喩の使い方だ。 Oh!X ピからこ 
そ"〜はドラゴンである"とか"〜はその筋で 
ある"なんて言い回しが通用するのであって， 
これを違う言葉で表現しようと思うと，非常に 
ま労する。含き換えじよって"〜はドラゴンで 
ある"という言葉自体の持つリズムをなくすと 
同時に，正確に表そうとすると，論文のような 
理詰めじならざるをえないからだ。比喩は便利 
である。しかし，乱用は慎むべきだ。 

というわけで，おますべき読者はが下のよう 
じ考えるのが正しい。 

"その文章を書くじいたった経緯やそのとき 



"自分がなにに感動したか見つめる心’’ 
が必要になる。脳よ，働け。 


商業誌など不特定多数の人を対象にする 
と，をれに， 

" 自々が感動した理由の分析" 

や， 

"主観!:客観のか離" 

が追加される。 

どれら非常に厄介な問趣である。今回は 
をういった厄介な閒題に取り組むわけだ。 

表現しようとするなにかを自分の中に持 
つこしをれがいちばん重要である力す，を 
のくらいは誰にだって，あるよね。なけれ 
ば，人間 t して閒題だと思う。ははは。 

表现したり感動したりするために必要な 
のは，経験だ。人は自夕の経験にまったく 
引っかからない^のに感動はしないし，経 
験なくしては表現はできない。この経験と 
いうのは生まれてからいままで見たり聞い 
たり触ったりして，をの人の感觉にがする 
入力すべてを指す。 

創造するなんていっても，なんの経験も 


のム、情など，その文章にまとわりつく記楠がな 
い状態での自み- 
である。 

これは結構簡単なようで難しい。含いている 
時点の自みにとって当たり前のことでも，記述 
しなければならないことというのは，多いもの 
なのだ。かといって，いちいち全部含いていて 
はただのなじがいいたいかわからない駄文。 

面白いことを思いついて（思いついたと思い 
込んで），とりあえずエッセンスた•けでもメモ 
じしてわこう，と香いた落含きは，たいていI 
週間もすると，なじがいいたかったのかわから 
なくなる。これは情報が足りなかったのである。 
そのときの状況や'!:、•巧が思い出せてはじめて意 
ホをなすのだ。こんな文章を含いていてはいけ 
なし、。 

リブ厶や流れを保ったまま，必要な情報を盛 
リ么む。これは一種のテクニックを必要とする。 
偉大なる先達の作品を読むのがいちばんいいだ 
ろう（結局，読むことは大事）。 


人に読ませるといラこと 
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ないところからポン心創り出すなんて不可 
能なのだ。これは本当。 

だから，経験は広く多いほうがいいのだ。 

■第1講「上手な境を書けない理由」 

誰でもいくばくかの経験はあり，言葉を 
ある程度知ってわり，本を読んでいるはず 
だ。経験はすべて無意識のうちに醫積され 
る。だから誰にでら書けるはずなのが文章 
である。 

しかしをうは問屋が卸さない。"自分 
が思ったことを論理的に記述することは不 
可能"だからだ。をれの《前の主観と客観の 
分離だって雛しいというのに。 

をこでたいていの人は論理的な記述を謙 
め，感覚に訴える，目に俊しい文章を試み 
る。文学的な表現をしようというわけだ。 
これら失敗する。理おはいろいろとある力3'， 
"まとらな文章を書くためのルールを知 
らない’’ 

"言葉を知らない’’ 

などによって，思ったように進まないのだ。 


文章には流れがあり，リズムがある。流れが 
スムーズだと，内容がわからなくてもお直に読 
めるものである。 

その究極の形態が短歌であり，俳句だ。あん 
なもんを解釈して喜ぶのはタコである。そこの 
ところを髙巧の古典の教師はわかっていない。 
あれは，古代の歌謡曲なのだ。気持ちのいい言 
葉を並べて，なおかつ，内容がまとまっていれ 
ば滕ちなのだ。 

5 . 7 • 5 • 7 • 7っていうのは，音楽でい 
うとロックやレゲエやジャズなどのリズムと同 
じであって，ときどきある字余りはシンコペー 
ションなのだ。聞く人間は詠まれた句を巧きな 
がら，予巧をはずされたり，思わめォチを閒か 
されたりして感ム、していたじ違いないのだ。句 
会なんて，セッションと同じだったのだ。 

そのことじ気づいたのが大学に入ってから 
ピった私は，中学•髙校の6年間，古典の時間 
を無駄に過ごしていたことじなる。う一ん，く 
やしい。 

散文でも同じようなものである。 

自みが*こうとする内容を，いかじちゃんと 
した流れで表現するか。文章にリズムを持たせ 
るか。それが問題だ。流れがしっかりしていれ 
ば，読者を誤魔化すこともできるし，書きなが 
ら「こんなはずじゃなかった J なんて思うこと 
もない。 

もし，どうしても頭の中で考えたような流れ 
の文章じならないのピとしたら，頭の中て•考え 
た流れが，スムーズでなかった，あるいは間違 
っていたわけで，それはそれでひとつ頭がよく 
なったと思って喜ぶべきである。きっと，書く 
行為なしでは気がつかなかったろうから。 

しかし，自みで感じたような流れを保って文 
章を香くのは難しい。たいてい，子がた‘じしな 
い方向へ葦は進み，あらめ結論を出そうとして 


これはプログラムを書くときに， 

"アル ゴリズムが記述できる" 

"をの言語を知っている" 

という条件が揃わないと駄目なのと同じで 
ある。テキトーな言葉を連ねて，わざとわ 
かりにくい文章にしてごまかす I :いう手も 
ある力す，をんなのは"エセ哲学屋"に任せ 
てわけばいい。 

I 第吕講 「読みやすい文章とは J 

ここで期待している人をがっかりさせよ 
う。たいていの人は"読みやすい文章はす 
なわち，いい文章"だと誤解しているから 
だ。 

正しくは， 

"読みやすい文章！：は，すなわも，パタ 
ーン化された表現が多用され，読者の持つ 
侧値観や経験（疑似体験を含む）から逸脱 
しない文章" 

なのである。 

ホ川次郎の义章は読みやすい。しかし， 
名文ではない。読者が手をおいても読める 


しまう。特に含く行為は.人の考えを極端じし 
ていく。書くことじよるフイードバックじよっ 
て，それまでじ書いた内容が巧幅されて次の文 
じ反映されるからた‘。 

これは書くより考えるほうが数倍速いことも 
理ものひとつだろう。人は言語た‘けで考えてい 
るわけではないから，文車じするときは言葉に 
なっていないところや飛躍した考えを補完しな 
がら書く必要があるからである。 

やばい，と,思ったとき，よく使う手が"さ 
て"などという話題転換の術や."う一ん"と 
いう擬音で誤巧化す術である。なるべくならそ 
んな術は使わないじこしたことがない。 

思考や感党を流れのまま文章じできたら.そ 
れで第I段階は終了である。言葉の使い方がわ 
かしかろう力<，文法的じをなところがあろう力、‘, 
美しい文章になっていようがなかろう力、‘，流れ 
がしっかりしていれば，読む者は誤巧化されて 
しまう。なかには祝一平氏のようじ誤魔化され 
ない人間もいるが，そういった読者はとりあえ 
ず考えなくてもいい。そんなのは次の次の段階 
だ。 

人は流れで文章を読むものである。一言一句 
論理的に追いかける人は（私みたいじ怪しいこ 
とを奋くライターの文章をチ：！：ックする不運の 
編集者はさておき）あまりいない。"哲学♦が 
(良質のものであっても）読みじくいのは，事 
前に知識を要ホすることだけでなく，普段我々 
が読んでいる文章のとは異寅の流れ*リズムの 
上に成り立っているから"である。翻訳文が読 
みにくいのも同様だ（最近では翻訳文もひとつ 
の文体として巿民権を得ているので一概じそう 
とはいえないが)。 

とはいえ，就者じかしでも理解してもらわう 
と思ったら"流れが論理的に追えるもの"であ 
ることじこしたことは なし、。 


ような書きホで，をの程度の内容しか書い 
てないからだ。読みやすいのは当たり前で 
ある。 

たとえば中世の古城を表現するとき， 
"中世に建てられたような旧びた古城が 
あった" 

^:する。たいていの日本人は自分なりの石 
でできた古城をイメージする。いまの時代， 
中世の古城といってなにも思い浮かべられ 
ないやつはいない。しかし，をれがどんな 
城であれ，をれで終わりである。「作者の 
イメージする 城」 はどこにもない。 

昔，平井和正 i ： いう SF 作家が，星新一 
に义章がすらずら読めるようになった， i ： 
いわれて嘆いていた（曖昧な記憶だけど）。 
平井和正は比喩や修飾の多い，一見複雑な 
文章を書いていた。をれがすらすら読める 
とはどういうこと力、。表現のパターンが読 
者に読まれてしまい，一言一句追わなくて 
も，をの内容がわかってしまうようになっ 
たからである。つまり，平ザ節（といわれ 
る文体）じ読者が慣れてしまったのだ。 

というわけで，読みやすい文章がすなわ 
ち名文とは限らないのである。をこを勘違 
いするし他人の作り上げたパターンの表 
現を積み重ねただけの文章しか書けなくな 
ってしまう。人気のあるネホ上春樹の义体だ 
って，よく読めば，アメリカのハードボイ 
ルドの文体をパクって日本風にしただけ， 

にしか思えない。 

他人の文体をパクるこ t はカツコいい义 
章には欠かせないカミ，パクっている自分を 
意識することが必要だ。 

意味もなく複雑で読みじくい文章は論外 
だが，読みやすい文章を目指すあまりじ， 
必要な情報まで捨ててしまってはいけない。 
読みやすい义章を目指すのは次の段階であ 
る。 

I 第3講「悪文で育つと悪文しか書けない」 

作文は，生まれながらにして持っている 
本能ではない。後天的に表現手段の一種と 
して身につけたものである。よって，悪い 
環境で育つといい义章は普けない。という 
わけで，惡い义章を紹介しよう。我々がい 
かにひどい文章に囲まれているか知ってぞ 
っとするがよい。 

1) ……栗本は野上と出かける約柬をして 
いた力す，時間になっても待ち合わせ場所に 
ホないので，電話をしたが，出なかった。 
をしてマンションまで斤き，声を掛けたが 
返事がないので中に入るし風呂場から水 
の音がするのでまた声を掛けた。…… 


文章に重要な流れ 
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(Misty 4より。 Oh ! X 8 巧号30ページ左下 
の写真参照） 

これは会話义なので悪文の例としてはち 
よっと不適当だが，こうして活字の文章に 
置き換えるとなにが惡いか読者諸氏にもす 
く、'にわかるだろう。 

まず，8つの行為が2つの文章に詰め込 
まれてゎり，リズムがない。事象の羅列で， 
をの事象が句点によって4つもつながって 
いて，"〜力ぐ’と‘‘〜ので"が乱発されて 
いて見苦しい。 

実際，我々の日常を話はというしゎを 
らくもっ！：もっとひどい日本語をしゃべっ 
ているに違いない。だが，仮にら第:£者で 
ある読み手にイメージを再現させることを 
前提としたメディア（小説でもテキストア 
ドベンチャーでも）では，ある程度を整然 
とした义章（たとえ非現実的でら）を巧い 
るようじしたい。 

2) 近くの森をぶらついているき，君は 
不思議なジプシーのウワサを誰かがしてい 
たのを思い化していた。 

(ウルティマ V より。 Oh ! X 7 巧号30ぺージ 
の画面写真参照） 

1) ほどひどくはない力5'，変な文章である。 
"〜とき，〜思い出していた’’というつな 
がりが変なのだ。"〜しながら，〜思い出 
していた"力，，"〜とき，〜思い出した’’ 
でなければゎかしい。翻訳のためかと思わ 
れる力す，もう少し綺麗な日本語にならなか 
ったろう力、。 

書き換えの例を検討してみよう。前後の 
文章によってどれがいいかは巽なる力 S '， 同 
じ内容の文を異なった文にしてみるのらい 
い勉強になる。 

A ) "君は近くの森をぶらついているし 
誰かがしていた不思謙なジプシーの嚼を思 
い出した’’ 

B ) "君が，誰かがしていた不思議なジプ 
シーの嗯を思い出したのは，近くの森をぶ 
らついている！：きだった’’ 

元の文の語順では，近くの森をぶらつく 
ことしジプシーのウワサとの関係が気に 
なる。 B ) だ!：ウワサを思い出すこがメ 
インとなり，森はただをの思い化した巧為 
を補足するだけになって，文としてのゎか 
しさはなくなる。 

3) 久しぶりに体を動かしたくなった俺は 
後先を考えずに巧どらと乱關になった。 
(アルビオンより。 Oh!X 2巧号27ページ 
の画面写真参照） 

主語は"俺は〜"で単数だから"乱脚を 
始めた’’ くらいでないとゎかしい力《，"〜 
になった"とはだいぶニュアンスが変わつ 


てしまう。実は"俺は-男どもと乱關になっ 
た’’だけならそれほどゎかしくは感じない 
だろう。意味的には複数の主語として読め 
るからだ’。ところ力 S '、 欲ばってつけた‘‘後 
化を考えずに"がまずかった。これは"俺" 
個人のが'况を説明するものでありながら， 
文法的には權数の巧為者を主語に持つはず 
の"乱闘になった’’という述部を修飾 i して 
いるのである。より詳しく状況を説明しよ 
うとしたために陥る眞いえるだろう。 

なゎ，"〜なった"を生かすための備単 
な解決法がある。試しに，"考えずに"を 
"考えず，"に替えて読んでほしい。 

4) スー 「きゃあああああ あっ！」 

ピクト「うわ ああっ！」 

スー「ま，まぶしい . 。」 

( アークス II より。 Oh ! X 4 巧号89ぺージ 
右上の写真参照） 

べつに 义章が惡い例ではないカミ，この台 
詞の上のグラフィックはキャラクターが拔 
いた剣がまぶしく光っている様を揣いてい 
る。つまり，まぶしいのは絵を見れば一目 
瞭然のこんこんちきなのである。ウルフ. 
チー ムゎ 得意の ビジュアル シーンがこの台 
詞のゎかげで台無しになっている。せめて， 
"こ，この光は…… " というように絵では 
表せない部分を想像させるような工夫がほ 
しいところである。 

し身近なゲームから例を挙げさせても 
らった。とりあえず，画両写真から認識で 
きるものから探しただけでこんなにあった。 
ゲーム画面，ソフトの マニュアル， チラシ 
広告，どこも「ゎ粗末」な文章であふれて 
いる。こんな文を読んで育ったら惡义しか 
嘗けなくなるのは目に見えているぞ。 

さて，一般的な問題に入ろう。 

化しやすいのは，文の構成がスパゲティ 
プログラムのようにグチヤグチヤになるこ 
とである。ひ^つの文章が長くなりすぎる 
と， FO 民に対応する NEXT がありません， 
てなことになる。 


"焼けたアスファルトを歩き疲れた僕は， 
開け放たれた窓の向こうで仰向けになって 
転がってぃる猫が笑ぃ，長ぃ前裝に隠れた 
が:し回がちな顔の彼女がこの世の全てを許 
した力’のような表情でをれとじゃれあって 
ぃた- 

い、 う， ぃま 思ぃつきで 普ぃた 文章で ある。 
ぃやあ，中学生で^書かなぃようなひどぃ 
义章だが，まあ，許してくれ。この文章の 
構造を見てみよう。主語は"僕"である。 
しかしをれに対する述語がなぃ。文が長 
くなる内に（書き手が忘れてしまって）述 
語がどっかへ巧ってしまったのである。 

これ力': FO 民に対応する NEXT がなぃい、 

うヤツ。この場合， W 僕 M の行為の中に"猫"と W 化 
女"の行為がある入れ子なわけで，"僕" 

の行為だけが完結してぃなぃ。思ぃつきで 
書ぃてぃるとよくやりがもなボケだ。 

こうぃった文章はらっ！:短く，ぃくつか 
の文に分けるべきである。をうならなぃの 
は，頭に思ぃ浮かんだ順番に書ぃてぃるの 
で，書きながら思ぃつぃたり思ぃ化したり 
したことををのまま义にかけ加えるからで， 
推敲が必要だ。 

語顺を少し変えるだけで見遮えるほど 
すっきりした文章になることは多ぃ。 

続ぃてよくある例が，閱係詞のな構造を 
入れたばかりに义が複雑になるケースであ 
る。元米闡係詞的な义（〜するところの〜， 
ってぃうやつ）とぃうのは現代語にはなか 
ったものだ。英义の翻訳が一般的になって 

ホのことで，便利屋的に使うと見苦しく 
なる。 

次もよくある諷で，倒愚法の乱用である。 
•‘〜であった，〜だった力';。"ってぃうや 
つである。 

上の3つはどれも根っこは同じだ。 

"思ぃつぃたら のを整理せず， 思ぃつぃ 
た顺ホでをのまま書ぃてしまうので，义を 
体の帳化をあわせようとして，後雑で不自 
がな文になってしまう’’のである。 
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思いつくままに書くこし感觉の流れ 
ををのまま文章にすることとは違うのだ。 

I 第4講「悪文を書かないためじ」 

最かからをんなことを気にしていては文 
章なんて書けないわけで，書いてから直す 
のが基本である。をのためにはまず， 

"口蒂間をわいて読み返すクセをつけるこ 
と’， 

が大前提であり，さらに， 

"自分で書いた义章が惡义かどうかを知 
ること- 

が重要である。 特に自みで書いた义章は 
"をの义を書いた t きのが'况や心境を踏ま 
えて読んでしまう’’から，言葉のあいだに 
隙れたニュアンスを読み取ったり，書き間 
違いに気づかなかったり しがもだ。 

瑕低限，惡义かどう力，，この文はわかし 
い気がするなあと思えるようになると次の 
段階である。気がついても，なかなか直せ 
るものではない。をのためのコツというも 
のは赚かに存在する。 

1) 文体の統一をチェックする。 

ですます調とである調を混化させない。 

2) 同じ文末を統けて使わない。 

义の終わりがすべて"〜だ"だったり， 
"〜である"だったりすると，きれいでな 
い。力、の王島山紀夫だって，文末が"だっ 
た’’ばかりになるのを防ぐために，恵識し 
て現を形をまじえたりしていたという。私 
でさえ，同じパターンを繰り返さないよう， 
ときどき体言止めや倒置，疑閒形などをま 
じえるようにしている。こういったことは 
推敲しない i ： 気がつかない。 

3) 代名詞の使い方をチュックする。 

"あきらは’’という主語がいくつら続く 

とくどいので，"化は"にしたり，主語を 
'尚略したりしてみる。 

4) 40宇じ[上の义は2つに分けられない力， 
考えてみる。 

ひとつの文にたくさんの主張を持たせて 
はいけない。私はよくわざと長い义を書い 
たりするけれど。 

5) 同じ表現を何度も使わない。 

6) 語顺を変えてみる。 

語顺というのはリズムのために! J ，簡潔 
な义を嘗くためにも重要である。 

7) 接続詞を全部取ってみる。 

接統詞がなくてもわかる义章を書ければ 
一人前だ（これは大変だぞ）。 

をんなこんなで，文章というものはプロ 
グラムと一緒で，デバッグを重ねるとこな 
れてよいものになっていくのだ。 


I 第己講「カツコし、い文章」 

いい文章と惡い义窜いうのは*かにあ 
って，前述の兰:島由紀夫なんかが名文とし 
てよく挙げられるけど，無理やりをう思う 
必要はない。义章というものは畔代に応じ 
て変化していくらのであり，少なくとら我 
な は兰なの時化！：は輿なった文化にいるか 
らだ。私が現をいちばん綺麗な文葦を書く 
と思う作家は简か康隆だ。 

私より若い世代だしをれが吉本ばなな 
になっているかもしれない。 

話し言葉が変わる限り，書き言葉もをれ 
を無视してはいられないのである。 

いまは急激に変わってきた請し言葉と書 
き言葉のギャップが-人きくなったために， 
をのあいだを埋めようとする，菊 ' r しい言义 
一致逃動の時代だをうだ（科学朝 II 8巧号， 
「ネオ本語」）。 

というわけで， カッコいい 文章というの 
は，書き手の脊った义化に大きく依なする。 
いまさら:£轉化紀夫の义章を勉強せよとは 
いわない。しかし，文章を書く目的を表現 
のな達考えれば，なるべく簡潔で十分に 
必要な情報を盛り込んでいるらのがいい义 
章といえよう。 

■ 第6講「言葉は記号である」 

いまさも記号論でもないけれど，言葉と 
いうのは，共同幻想の上に成り立つ記号で 
しかない。 

だから，書き手 i ： 読み手とのあいだでを 
の幻怨が成り立っていれば，どんな言葉を 
使わうが知ったことではない。逆に，幻想 
が成り立たない言葉でいくら語られてら知 
ったことではない。をういうものである。 

古くからある，すでに意味や用法の確立 
された言葉があれば，をの用法を逸脱して 
はならない，ということだ。言葉を崩ずの 
が流行っているが（例：本章の冒頭)，元 


の患味を知らずにそれをやっても見苦しい 
だけだ。 

ネネ 木 

てにをは，と力’，接続詞の使い方とか， 
をういった実软的なテクニックを求める人 
にはかなり拍す抜けしたことと思う力す，言 
葉が流動的で，誰もが普段から使っている 
ものである限り，小手先の法則に意味はな 
いのだ。 

普段，乏しい語窠で，をの乏しさを表情 
や身振り手振り，互いのあいだでのみ通用 
する隱語や造語や流行語でカバーしている 
人たちがひとたび文章でなにかを表現しよ 
うと思うし途端に，言葉だけで自分の惠 
見を表現することがいかに雛しいかを知る 
だろう。 

我々は普段，言葉によるコミュニケーシ 
ヨンをしていると勘違いしがちだが，実の 
ところ，言葉 U 外のちょっとした表情やら 
言い回しやら，声のトーンや，つっかえ方 
により多くの意味をボめているのだ。 

備かに，学校の先をの気に入る感想文の 
書き方や，論现的な（に見える）レポート 
の嘗き方や，上司に受ける報告書のコツな 
んてらのは存在する。人を感動させる义法 
もが在する。しかしをんな対症療法にた 
いした意味はない。どんなに型を知ったと 
ころで語叢の不足はどうに扛ならないし， 
んなものはすく、'ばれる。人を悠動させるテ 
クニックを駆;使したところで，"一杯のか 
けをば"のように下品な話がまた増えるだ 
けだ。 

をれならば，自分たちの新しい日本語を 
作っていけばいいではない力’，と。つまり， 
精神論を踏まえ，技術は生まれてから10数 
年，20数年のあいだに培ってきたらのを流 
用しようと，をういうわけなのである。 

ここまで舊いて読み返してみると，自分 
の文章に惡义が多いことに気づく。だから， 
文章を書くときの最大のポイントを褐げて 
終わりにしよう。 

"自みのことは棚に上げろ’’ 


自分の考えを持つとは 


どんなに文章がうまくても，内容がなくては 
週刊誌の埋め草じしかならない。 

内容というのは，書いた人の視点や考え方が 
どれピけ読者にとって面白いかである。新鮮で 
あったり，捻ってあったり，予巧外の展開をし 
たり，といったことだ。 

いまの時代，ひとつのことピけを極めようっ 
たって（ひとつの手ではあるが)，そうはいか 
ない。上には上がいる。じゃあ，どうするかと 
いうと，自みの得意なみ野の視点でほかのもの 
を見てみる，と力、，自みの得意なみ野とほかの 


み野を合体させて新しいものが見えてこないか 
探ってみるのがいちばんてっとりばやい。 

人は自みのえ日らないことは書けない，の法則 
じよって，そうそう独創的な考えなんて出てき 
はしない。それでも人の経験，人の知識はそれ 
ぞれがユニーク（唯一）なものであるからじは, 
自みの考えを持つことは可能である。あらゆる 
ままを自みで解がしようと思っていれば，おの 
ずから自みの考えというものがどういうものか 
はわかってくる。隠れた意志を知れ，というこ 
とど。 


50 Oh! X 1990.9. 






特集 1 


曰本語を処理ずるための巧章 

SOTBDB 989 


X 68000 の 日本語 環境を見る 



我慢せずに使う WP.X 


Nak 曰 no Shuichi 

中野修一 


X 68000 じ標準で付属する WP . X 。 マウス オペ レー シヨンを重視 
しすぎたためか，バランスを崩してしまったようじ見えるとこ 
ろもある。ここでは日本語フロントプロセッサ ASK 68 K ととも 
じ賢い使い方を摸索してみよう。 


て久しい X 680()0 のワープ 
口て''重梦^齋力、%ちよつと変な t ころがあ 
以•矣す.。.、ぶれは月^変換フロントプロ七 
辦ながこ'趙因ずるらの，ヮープロお 
f 本の仕様に起因するものなどさまざまです。 

寡儀雖 68 K を見てみましよう。わか 
もが去ぶまで無现矢理を檢しようとする 
が’^""^'辕後に手動操作が多く必要になる 
遞激 T 爲讓纔縱最農一致法 I ：いうアルゴリズ 
換を巧うに M 划わらず，辞哉 
り方力讀 k 語変換的なむのでしかないと 

賴麵りけ。 

私たちが使う【:1本語には淡字の部分と力 
タカナ，ひらがなの部分があります。おが， 
ひらがなで蕾くべき単語 t いうものむある 
わけです力;，600 K バイト U 上にもわよぶ膨 
大な辞書の中身ははとんどが漢字を使った 
単語なのです。基本的に漢字にする必要が 
ある部分でのみ使用し，變換の必要がない 
部分は手作業という方針のようです。 


漢字を換システムとすればこれでらいい 
ような気扛します力':，口本語化理システム 
L すれば問題があります。なにしろ，ひら 
がなやカタカナで裘したい単語がすべてを 
な当て字で出力されるのですから。これは， 
ひ心がなの単語は端から登録していくこ 
である禪度解決されます。もっと杉利 U な 
のは必要な部分しかを換しないというこ^ 
でしよう。 

また，义法解析がけく，当が椎测できる 
単語がを換できなかったりもします。いく 
ら文節を叨り宵しても必要な単語が化てこ 
ない場な^あります。たとえば，単に， 

芙しさ 
とするし 

總ツクシさ 

と変換されてしまいます。形容詞の語幹に 
「さ」をつけるとお詞扱いされる！：いうこ 
とが做胺されていないようで，义章小でら 
たまにわかしくなります。形容詞の語幹に 


「げ」をつけた形容動詞形の場なはほぼを 
滅です。わざわざ「明るさ」のように名詞 
で別登録されている場合もあります。 

をのほか，動詞の連用形は名詞として使 
えるというのら利 W されていないようです。 
結果として辞醬が肥大化するわりには取り 
こぼしが多くなっています。 

一方，標準ワープロでは，マウスの使用 
を強制されることや コント ロ ールキ ー が' ほ 
とんどサポートされていないこし禁刖の 
際の力ーソル移®がわかしい，変換キーを 
ネし統けて次攸脯が途中で止まってしま 
うなどの問題点があります。紳 I かいことを 
舉げればきりがありませんので適当なとこ 
ろでやめてわきましよう。 

では， X 68000 の II 本語環境はどうしよう 
もないのでしようか？ 

幾多の問題点にらかかわらず， Oh ! X の誌 
师のはとんどは X 68000 の標準ワープロで 
作られているというのも事英です。なぜ'で 


編集者御用達「無変換学習なし」 


遅いといわれた ASK 68 K も ver .2.0 じなってか 
らはかなり离速になった。特にフロッピーディ 
スクやハードディスク上での使用速度はお段に 
向上している。 X 68000の標準ワープロではスク 
口ールの高速さとあいまって速度だけは快適な 
環境が得られている。が，ワープロはそのまま 
ではちよっと使いじくし、。 

たとえば入力時じがが開くと位置揃えや修正 
の際に邪魔じなる。不便ピ。 

ASK 68 K のき串書はなじがなんでも漢字じした 
がる傾向がある。しかしながら，普通の文章に 
は漢字も多いが，ひらがなどって多いものだ。 
そこで無変換モード。漢字が必要な部みでだけ 
漢字変換を斤い，漢字が'必要ないときにはひら 
がなのまま確をしてしまうわけだ。これなら最 
小限度の変換作業ですむ。 

お，なんとなく普通のワーブロっぽくなった 
ぞ。おわ，しかも，ひらがな部みの確定じは， 
いじしえの即戦力と同じ TAB キーが使える（夕 
ブを設定してないときは）。 

•学習なんかいらない 

無変換モードは巧害の先読みをしない。その 
み，入力が軽くなり，変換が重くなる。しかし， 
漢字の現れる部みでしか変換しないのだから. 
変換操作のいらないひらがなのみピけ変換は軽 


くなっているとも考えられるわけだ。これで速 
くなった……，いや，変換終了時に余計に時間 
がかかるデ。 

さて，思い切ってここで辞書のプルダウンメ 
ニューを開き，辞書学習なしじ設定する。途端 
じ輕くなったはずだ。学習なしで大丈夫なのか 
という'。配もあるた•ろう。実はこの学習あり/な 
しというのは ASK 68 K のディスク学習，メモリ学 
習に対応している。 

さて，ここでワーブロを立ち上げ，無変換学 
習なしのモードじする。そして，適当に文章を 
変換してみる。変換モードを逐次などじ変えて 
みる。なにも起きない。辞含を学習ありに設を 
する。なにも起きない。変換モードを無変換に 
戾す。するとメモリ上の学習内容がディスクへ 
転送されるのがわかる。ゆえに，文害変換時に 
学習モードじする'必要はない。 

もっとも，ディスクじ学習しなくとも，しば 
らく学習つきで銀えたあとなら学習なしでも十 
みに使える辞香になっているはずた'が。 

♦無を換のま意 

これでかなり高速なワープロとしてイまうこと 
ができるようになったわけどが，無変換には煮 
外な罵がある。メモリ学習が重くなってくると 
「変換ウインドウを開いたまま，次の文字の入 


力をもって確定に変える」場合にローマ字かな 
変換を失敗することがあるのだ。たとえば，「こ 
こで」と入力したいのじ 「 K も'こで」のように 
なることがある。いったんこうなると，同じ症 
状が多発するようじなる。 

これは ASK 68 K をセットアップする際に ， DEF 
CONT = I じ設ますることである程度抑えられる 
ようど。それでも症状が出たときは変換モード 
を一度ほかのモードに切り替えるとよい。当が 
のことながら変換時に確定していく癖をつける 
のがいちばん確実な巧処方まど。なお，普通の 
キー設定なら，リターンキ ー ， XF 2, XF 5, CTRL-M 
のいずれかで確定される。 

本本 本 

さて，たくさんのマシンがイまえ，隣近所の編 
集部に声をかければ，たいていのワープロソフ 
卜は試用できる，そういった環境でも日々 WP.X 
は使われているわけた'。それは，いまや MS-DOS 
より Human 68 k のほうが快適だということ，そし 
て，ひたすら入力していく作業はともかく，す 
でじある义害を編集していく場合には WP . X は 
非常にキ及いやすいということじよる。 

あとは新感覚のワンバウンドスクロールバー 
ほか，数十個の不都合さえなければいいワープ 
□じなるのじねえ。 （ U ) 
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BEGIN=CTRL+XFl 

END=CTRL+XF1 

XFER=XF3 

ENTER=XF5 

TYPE=F10 

DE し =DE し 

RIGHTrRIGHT 

LEFT=LEFT 

HOME=HOME 

C し R=C し R 

C0DE=F7 

LEARN=F9 

DIC=F8 

HIRAKATA=XF4 

ZENHAN=SHIFT+XF4 

NEXTK0UH01=RIGHT 

NEXTK0UH02=XF3 

NEXTK0UH03=SP 

BACKK0UH01=LEFT 

BACKK0UH02=SHIFT+XF3 

BACKK0UH03=NU しし 

NEXTBLOCK=DOWN 

BACKB し OCK=UP 

SH0RTER=SHIFT+XF1 

し 0NGER=SHIFT+XF2 

NEXTBUN=XF2 

BACKBUN=XF1 

ECH0=F6 

DEFECHO=0 

DEFR0ME=1 

DEFZENrl 

DEFHIRA=1 

DEFINS=0 

DEFA しし =1 

DEFMEM=1 

DEFCONT=0 


しょう？をれは，つまりここで挙げた問 
題点はもょっとした工夫や辞書の鍛え方で 
かなりな善されるというこ t です。 

せっかくの日本語環境，少しでも上手に 
使うことを考えてみましょう。 

I ASKB 日 K のカスタアイズ 

最初じすべきことは ASK 68 K のバージ 
ョン確認です。必ず2.01を使用してくださ 
い。ネ刀期バージョンは時巧，人生をはかな 
んで遠い旅に出るという典雅な趣味を侍っ 
ていました力':，最近のものはをう世間知ら 
ずでもありません。 

さて， ASK 68 K のバージョン 2.00 ia 降で 
は環境ファイルを設定することにより漢ぞ 
変換時のキー操作をユーザーがカスタマイ 
ズすることができます。表1がもっとも標 
準的な ENV 1. ASK でず。これの•外にらい 
くつかの定義例が'見られます。 

まず，この ASK 68 K の標準設定を見てみ 
ましょう。 X 68000 のキーボード自体が日本 
語入力を意識して設計されたものであり， 
ASK 68 K もこれにあわせて作られたため 
力、，相性はかなりよいようです。特に义節 
の移動や切り直し（要するに XF 1，2 の使い 
方）はずば拔けて俊れているように思えま 
す。このあたりはわざわざキーボードに馴 
染まない方すじ変える必要はないでしよ 
ラ。 

表1 


もっとも重要なのは，腺終行の DEF 
CONT を1にすること，です。これはかな 
漢字変換時の1斤ウィンドウが未確定でも 
かの文字列を入力できる機能です。これを設 
定せずに Hyperword を使う I ：もよっとう 
っとうしいことになります。標準ワープロ 
でもこれをしてわかない I :無変換モードで 
の変換中に口ーマ字変換を失敗することが 
多いので必ず設定するようにしてください。 
をのほかエディタなどを使う場合らこの変 
更が有効です。 

あと， XF 5 キーというのは人間に押せる 
キーではありませんから， ENTE 民（確定） 
の機能は再定義する力 >，リターンキーで化 
用しまず。をのほかは好みで DEFECHO を 
設定すると力’，をの程度しかいじる必要は 
ないと思います。 

このファイルをいじれば，ファンクシヨ 
ンキ ー ，コントロー ノレキー，変換キー，力 
—ソル関係キーなど，ほぼ思いどおりの変 
換キー設定ができます。ただ， TAB キーに 
ついては機能割り当てができないようです 
いが？）。 

さあ，これで最低限の設定は終わりです。 

I 辞書はどこにありまずか？ 

ハードディスクをわ持ちですか？ 辞蕾 
はどこにありますか？ 

Human 68 k ver .2.0 i ASK 68 Kver .2.0^ U . 


ENV し ASK の設をが！ 巧能説明 （ 0/1 じが応） 


降は変換速度が大幅に向上してぃますので， 
民 AM ディスクは必ずしい必要ではありま 
せん。辞書の先読みをしなぃ無変換モード 
でさえ，ハードディスクなら民 AM と比べ 
て遜色なぃ速度で変換を斤ってくれます。 

ディスクドライブの構造とディスク管理 
の都合から，高速アク七スしたぃらのは連 
続領域に置くのが基本。ハードディスクに 
辞書を置く場合は，專用の辞書ドラィブを 
設定することをわすすめします。フォーマ 
ッ トの際に2 M バイトもパー テーシ ヨンを 
切ってわけば十分でしょう。 

ASK 68 K のメイン辞書は内部にフリー 
エリアを確保してぃますから再編成するま 
で大きさは変わりません。しかし，サブ辞 
書はどんどん大きくなりますから，途中に 
ほかのフアイルが割り込まなぃようじ[福離 
してわくわけです。確実に連続領域に配置 
するには，真新しぃディスクに辞書フアイ 
ルだけを置ぃてわくようじするのがもっと 
も効果的なのです。 

フロッ ピーべースで使巧して ぃる 場合な 
ら， B ドライブまたは民 AM ディスクに辞 
書を霞くことになります。当が，フロッピ 
一に比べ，民 AM ディスクは非常に高速で 
す。 ASK 68 Kver .2. i ) じ I 降ならフロッピーで 
も十分使えます。 

ただ，もはや 2 M バイトで辞書を民 AM デ 
ィスクに薦くのはわすすめできません 
(民 AM がもったぃなぃ）。標準ワープロ專 
用で起動する場合ならぃざ知らず ， RAM 
ディスクに割り当てられるメモリがあるな 
ら，作業用ドライブとして使うほうがなに 
か^便利ではなぃかし野われます（使用法 
にもよりますが)。 

■ 辞動鍛ぇ方 

変換されなかった単語は片っ端から登録 
する，これが基本です。同様に勝手に変換 
されたくなぃ単語も登録します。変換直後 
は学習効果のため登録なしでもうまく変換 
してくれますが，をれ iU 後も変換してくれ 
る保証はありません。 

WP . X の単語登録は範囲す旨定して登録キ 
一を押すだけですので非常に簡単です（キ 
—ボードだけで操作できる数少なぃ機能の 
ひとつ）。 WP . X 上では名詞闕係の登録しか 
できませんので，動詞や副詞などはとりあ 
えずメモしてわき，あとでまとめて登録し 
ましょラ 0 

ASK 68 K の辞書ディスクじ収録されて 
ぃる単語は表2のとわりです。数字関係の 
部分をダンプしてみれば数詞の0個とぃう 
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表吕辞書ディスク ver .2 .日の内容 


♦ MicroEmacs の日本語処理 


このようじ強力な MicroEmacs だが，難点もな 
いではない。そのをたるものは日本語入力時に 
字詰めをミ夫められないという点であった。バー 
ジョン 3. 9じは指定された文字数よりはみ出す 
単語は入力と同時に次の行へ送られる WRAP モ 
—ド（英文の自動字詰め機能）が備わっていたが， 
これは日本語では動作しない代物だった。 

バージョン 3. 10 (「さんてんじゅう」と読む） 
で改善が加えられ， X 68000 用の MicroEmacs では 
この WRAP モードが日本語でも使えるようじな 
ったのである。単に文字数を揃えるだけでなく 
禁則処理まで行ってくれる。編集を指向したプ 
ログラムが字詰めという入力指向の機能を手に 
入れたのである。ただををなことじ巧揃えされ 
たを行の最後には改行が入ってしまうので，テ 
キストファイルじする場合にはこれを取り除か 
なければならない。 

なぜワープロで文書を作らないのかと疑問を 
お持ちじなる方もいるピろう。私にとって， 
ものを書くときに大切なのは思考をとぎれさせ 
ないことである。入力した文字は読み直され， 

吟ホされ，修正され，そして义牽となる。推敲 
のたびにマウスに手を伸ばさなければならなか 
ったり，力ーソルキーまで手を伸ばさなければ 
ならなかったり， ファン クシ ョン キーから メニ 
ューを選ばなければならなかったりするのは推 
敲のリズムを乱す似外のなじものでもない。万 
年華で小説を含くときに，削除する部みを修正 
液で消すた’ろう力、。カバーする大きさの原稿用 
紙を切りおいて貼り付けるピろうか。 

もしあなた力、‘華顧な装飾を施した，見る人を 
な惑するようなものを作りたいと思うのならワ 
-プロを使うのがいい。もしあなたが爵線を駆 
使した体裁のよい表を作りたいと思うのならワ 
—プロを使うのがいい。しかし，もしあなたが 
本当に文章を「書きたい」と思うのなら ， Mi 
croEmacs を使うべきである。 


のは実に納得できます。 

一説によるし名詞をおを動詞複合名詞 
にするとヒツト率が上がるといいます。 
試しに固有名詞を除くすべての名詞を形容 
動詞複合名詞に変更してみま しすこ。 若干， 
肋詞の判定がよくなったかもしれません力す， 
前の辞書がすでに助詞対策されていたので 
(「と」，「の」，「力 S '」 などの肋詞を名詞とし 
て登録してわく ） ，あまり固立った違いは見 
られませんでした。とりあえず新しく登録 
する単語だけ形容動詞複合名詞にしてわけ 
ばいいでしよう。 

こうして，漢字変換ら使いをんでいくう 
もにかなりヒツト率が上がっていきます。 
なわ，新しく登録された単語は辞書内部の 
フリーエリアに 格納されます。 フリーエリ 
ァがなくなるし変換時に異様に時間が力， 
かってきます。辞書はまめに再編成しまし 
X 5 〇 

あ！：は無賊に思える単語は削ります。あ 
なたは辞書の中身を見たことはあります 


世の中じはアンチワープロがといわれる人々 
が存在する。彼らは日本語の文書を含くのじミ夫 
してワープロを使わない（が況に応じて否応な 
くワープロを強制されることはあっても，ま縛 
から解がされるやいなや彼らの魂はその故郷へ 
と婿っていく ） 。作家が使い古した万年筆を執筆 
の友とするようじ，手に驯染んだエディタの元 
へと回佩していくのである。 

エディタはプログラムを入力.編集する道具 
として進化してきた。作成される FORTRAN のプ 
ログラムはときには数万行に及び， LISP のプロ 
グラ厶はゾッとするほどの括弧とインデントを 
従えている。これら強者と対等におりあうだけ 
の能力を人々はボめ，エディタはそれに応えて 
見事強敵を打破してきた。 

そのなかで「これはエディタというよりむし 
ろ巧境と呼んでいい」と离く評価されているも 
のがある。 UNIX の世界であまねく知られた 
Emacs である。富機能さ柔软さじ加え，特異なキ 
一割りせけが，いったん染まってしまった者を 
ほかのエディタから遠ざけ続ける。 

これほどまでに人々を魅了する秘密のひとつ 
は， Emacs が備えるすべての機能がユーザーじ 
開がされていることどろう。キー割り付けの巧 
要はもとより，自みに必要な機能をプログラム 
しチれを好みのキーじ割り振るなどが簡単じで 
きる。マクロではない 。 Emacs Lisp である。 

Emacs が巧境だという巧辞は，専用のエディ 
夕を巧築できるという魅力だけにとどまらない。 
編集中のテキストはバッファと呼ばれる領域に 
読み込まれディスプレイに表示されている力《， 
なんと，このバッファの中でシてルが動くので 
ある。キーボードからの入力は普通のテキスト 
と同じようにバッファじ入力され，リターンキ 
一を押すと同時にコマンドとして実行。その実 


か？ DK ： M . X を起動し単語一覚を選択 
してください。たとえば，開始位置を"あ 
さひ"，終了位超ではリターンを入力してみ 
ます。なじか疑閱を感じませんか？ 次に 
I 调始位置を"さんきろめ一 L る"，終了位置 
では単にリターンを押してください。……0 
さあ，削れるものはみな削りましょう。 
村田氏のューティリティが便利です。 

I もっと速く 

スクロ ール速度を上げる手っ取り早い方 
'おとして，キー入力のウェイトを調整する 
手があります。方法は簡単， SWITCH . X を 
起動してメモリスイツチの FirstKey と 
NextKey を変更します。 Oh ! X では First 
Key を1， NextKey を0 くらいにする のが 
流巧っています（キーウェイトを變更する 
と，ちょっと/ごけ Yet Another Column が 
有利になるからしれません）。 

ただし，この変更を斤うしキーを長時 


Izumi D 曰 isuke 

泉大か 


行結果も同株にバッファ内に巧る。必要なら 
Emacs の高度な編集機能を駆使してそれらを加 
エし，もう一度シてルへのコマンドとして実行 
できるのである。 I 行入力しかできなかったプ 
ログラミング言語が.たちまちフルスクリーン 
エディタつきの言語へと変身する。 


•MicroEmacs 


この強力なエディタ Emacs は，そのサブセッ 
卜がパーソナルコンピュータじら移植されてい 
る。電脳俱楽部でも配布された MicroEmacs であ 
る。シングルタスクの Human 上で動くため，バッ 
ファ内でシェルを起動することはできない力 S 
ユーザーじほとんどの機能を開放するという姿 
勢は堅持されている。 Lisp ではないがマクロ言 
語をサポートしており，足りない機能をプログ 
ラ厶じよって補うことが可能なのである。 

たとえば GNU Emacs じは dired というコマンド 
がある。これはディレクトリエディタを略した 
もので，任意のディレクトリを表示しながら， 
編集するファイルをカーソルで選択するコマン 
ドである。サブディレクトリのアップダウンは 
もちろん，ファイルの削除までサポートしてい 
る。標準の MicroEmacs じこの機能はない力、’，私 
の MicroEmacs では dired が動いている。そう。マ 
クロを使って定義したのだ。その他， Human の 
コマンドをバッファ内から直接超動するなんて 
マクロもある。こうしてすでに MicroEmacs は私 
じとってなくてはならなし、巧境に成長した。 

手塩にかけて成長させた高機能なエディタは 
がの一 部といってもいい。'必要に応じて作成し 
たマクロは，自みの使いやすいキーじ割り振っ 
てある。既存のワープロを使うことは，これら 
すべてを被棄することなのである。 


エディタ含日本語ワープロ 

あるいは MicroEmacs 賛歌 
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図 4 登録語/品詞コード 

品詞 コード 


動詞（力行5お） 

01 

// (ガ 

// 

) 

02 

//け 

// 

) 

03 

// (夕 

// 

) 

04 

//け 

// 

) 

05 

// (バ 

// 

) 

06 

// (マ 

// 

) 

07 

// (ラ 

// 

) 

08 

// (つ 

// 

) 

09 

// (サ行変格） 

0 A 

// (力行を格） 

0 B 

// (上下 


段） 

0 C 

形容詞 



0 D 

形容動詞 



0 E 

お容動詞複合名詞 

OF 


み込み，対応ずるグループを探して候補群 
L しています。どれか単語が選択されると 
をの単語をサブ辞書に登録して「学習 J を 
します。 

プログラマー ズ マニュアルでは 日本語 F 
P のフアンクシヨンコールが'を閒されてい 
ます。ユーザーにも日本語化理プログラム 
を作れる可能性は十分あるわけです。 

ネ 本本 

屏線閱係，記号入力や外字作成などは完 
璧といっていいでしよう。字詰めの変更が 
これほど简単なワープロはほかにまずない 
でしよう。加えてマウスに割り当てられた 
機能の使いやすさは国産ソフト中でら屈指 
のらのがあります（をの分，キーボードの 
使い方が下手なのが夕戈念です）。 

ASK 68 K は使い込んでいくことでどん 
どん確実な変換をするようになります。鍛 
えられた辞書はューザーの財産 t なります。 
皆さんも，自分なりに ASK 68 K と WP.X を 
うまく使いこなしてください。 


クロールが 続くようになってしまいます 
(要するにバッファがたまる）。どうしよう 
もないときはシフト+ブレイクで止めてく 
ださい。 

ASK 目日 K の辞書構造 

1988年2巧号で X 68000 に Xlturbo 用の 
辞書 ， WORD P 0 WE 民を移植するという記 
事が掲載されました。同時に投稿者の長が 
氏が解析した X 68000 の辞證構造が発表さ 
れています。 

辞書の構造について，ざっと解説してわ 
きましよう。辞書はインデックス部分と本 
体に分かれ，辞書本体には登録語が入って 
います（当たり前)。これは読みがな順に並 
ベられており，頭から1024バイトごとにブ 
ロックかけされています。 

辞書の先頭にはインデックスがあり，ダ 
ンプしてみると各ブロックの最初の見化し 

表3 


，これは ASK 68 K 
の内部コードで記述されていますので，読 
むためにはコードを変換しなければなりま 
せん（図3)。 

辞書の先頭の200 Oh バイト目から辞書本 
体が始まります。この部分は，ある読みに 
がする熟語のグループが集まったものです。 

最初の2バイトがをの読みのグループ全 
体の大きさを表し，次に見化し語の大きさ 
( 1バイト），巧部コード化された見让'，し語 
本体が続’きます。をして登録語です。1バ 
イトの品詞情報の後ろにシフト JIS ( + 
ASCII ) コードの登録語が並んでいます。同 
じ読みにがして權数の語が対応するときは， 
後ろに品詞コード!:単語が続いていきます。 
品詞 コードは IEh り T ドの通常コント ロー ル 
コードとして使われる部分に配置されてい 
ますので，登録語の分削は備単です。 

単語の読みからインデックスを検索すれ 
ば，辞書のどのブロックに目的の語が入っ 
ているかがわかります。をのブロックを読 


ァ アイイゥウ ェエォ オカガキギク 
グケゲコゴサザシジスズセゼソゾタ 
ダチデッツソテデトドナニヌネノハ 
ハ•ハ •ヒビピフブプへべぺホボポマミ 
ムメモヤヤュユヨヨラリルレロヮワ 
斗でヲンヴカケ 


図3見出し語コード 
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図 1 X 68 K M . DIC の構成 


000000 H ~00 l FFFh インデックス領域 

( lEOO 从降にフラグ領域？） 

002000 H~ 辞まの本体 

たた'し， I ブロック=1024バイト 

図2 X 郎 K _ M . DIC の辞害ブロック巧部構造 

I -1024バイト- 


半角 

し。バイ 


全/半角 


全がの長さ Lo 

(2 バイト） 

見出し語の長さ 
し （1 バイト） 

見出し語 

登録語 

品詞1バイト、 
\を前に置く ノ 


全体の長さ 

(2 バイト） 


r 丄1バイト. 



全体の長さし〇は下位•上位の傾で記録されている。また1024バイトじ満たない部 
みは " OOh " で埋められる 


間押し続けた場合に画面のスクロールがキ 
一に追いつかずキーを離してもしばらくス 


語（の8义字分）が整が 
わかるでしよう。ただし 





詞 

名 

字姆馆名名 語詞詞詞 
巧詞漢名/名体の詞字尾勤続詞体 
サを単人/地団物数数接お接副連 


は 

(名 名名 
詞ちが詞ちがが 
名人团名化団団 
\////// 


ヒ 

日日田 サ 
朝朝朝化旭化ア 


ヒ 

サ 

ア 


I 巧， 3^ ho, な巧 

tts mm ミ？ミ *3 

名名名名名名 
/////\ 


レ ん 


メ メ 
M m 口 M m 口 
Rk キ Kk キ 
1111111 一一3 3 3 


レ 


メ 

n 

キ 

ン 

サ 


9 A B C D E F 
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それでも私は Hyperword を使う 




私，获建まは， Hyperword で原稿を香く。人は 
それを見て驚く。つまり，"遅いソフトはそれだ 
けで存在価値がない"といった神話が生きてい 
るからである。 

Hyperword は確かに遅い。•スクロールや，変換 
時の反応が遅い。しかし，「狭いお面そんなに 
急いでなじを巧つ J である。おっと，反論がき 
た。「迫る締め切り。そんなにのんびりしてられな 
いん困ったなあ。でも，そうまでして速いもの 
がほしいですか？ 

I Hy 日 erword のカスタマイズ 

Hyperword は非常にわがままなワープロ。使用 
する巧境が悪いととても使うじ耐えないし，濁 
巧を整えとけば.それなりの力を発揮する。機 
能の巧弱さを速度で補うのも手だが，その逆も 
また有かなのど。 

Hyperword をイ吏うじは 2 つのポイントがある。 
ひとつはどれどけ Hyperword のために資•原を割 
けるか，であり.もうひとつが，カスタマイズ 
である。 

前者だが， Hyperword は実【こ頻繁(こ中間ワーク 
ファイルを作成する。こればかりはいかんとも 
しがた し、。 よって. RAM ディスクをイ妾用する。私 
は 256K バイトほどそのためじ RAM を使っている。 
RAM ディスクが I ドライブだとすると，立ち上げ 
時ォプシヨンじ"一 wl" をつければいい。さらに 
Hyperword はプログラムサイズが迷惑なほど大 
きいので，ハードディスクじ入れると起動時の 
イライラがかなくてすむ。 

続いてを者だが， Hyperword は環境ファイルを 
持っている。私の使っているものが図 I である。 
こいつがポイントだ。 

右半みじ コメン トの ついている ヤツが シス テ 
ムじついてくるキー バインドである。ただ数字 
を* いて あるのが私の追加したみだ。数字は機 
能コードであり， Hyperword 独自のものである。 
96 が巧末， 95 が行頭へのカーソル移動， 106 は力 
ーソル位置から行末まで削除， 18 と 19 は I 斤口 
—ル アップ/ダウン である。 Hyperword があらか 

図1 


口 gikubo Kei を ± 

じめ用意している機能だけだが，こうしてカス 
タマイズ可能だ。 

ユーザー カスタマイズした キーは XFI キーフ 
アンクションとなり，あらかじめ Hyperword がシ 
ョートカットキーとして用をしたものは CTRL 
ファンクションとなっている。エディタを使い 
なれている我々じとってこれは非常に不便であ 
る。 

ここで登場するのが"一 X" オプションた'。二の 
オプションをつけて起動すると，ユーザーカス 
タマイズした機能が CTRL ファンクションじな 
り， Hyperword のショートカットキーが XFI (こな 
る。便利である。 

を低このくらいの巧境が必要ピ。標準ワー 
ブロカで TRL ファンクションをほとんどサポー 
卜していない ことを 考えれば，これた•けでもう 
れ しし、。 

I 私はこラ使ラ 

さて，この環境で Hyperword を立ち上げよう。 
すると，横19文字で(半角た‘と38字）"新規文書 
1" ウィンドウが開く。 Oh!X の原稿は横19字がを 
本なので，標準香まとして登録してあるのだ。 

が規义害Iじタイトルを書き，おもむろじ. 
「本文」と「メモ」の2つの目次を作る。本文 
の下に思いついたものを片端から含きなぐり， 
XFI+0 で本文シートを開いて，メモをらとじ本 
文を書く。 

まだ Hyperword じ懐疑的な向きはをい。確か 
じ，印刷系が弱いとか（撥書き印刷ができな 
い），ファイル操作系が弱いと力、（ディレクトリ 
名までは自みで巧たなければならない）いう义 
点はあるが，文を作成支援道具と思えば，それ 
ほどなじはならない。 

Hyperword はマウスを使 った オペ レーション 
がウリだと思われているが，そうではない。マ 
ウスは気が向いたときやウィンドウ操作にしか 
イまわないのが常ど。 

たとえば範囲指をは XFI +力ーソルキーをイま 
う。削除したいときは DEL キー，クリップボード 


へカットしたいときは XFI+X, コピーは XFI + 
C, ペーストは XFI+V だ。これは Macintosh と一 
緒。口ードは XFI+ し終了は XFI+Q ピ。範囲お 
ずして別の文字を入力すると（多かもたつくけ 
ど)，新しい文字に置き換わるのだ。おえてい’な 
い機能やキーバインドされていない機能はファ 
ンクシヨンキーでプルダウン メニ ユーが開くの 
だ。ファンクシヨンキーが遠くていやなら，ど 
っかのキーに バインドしてわけばいい。 

文書の管理も，アイデアプロセッサの機能を 
使えば，複数のものをひとまとめじ管理できる 
ので，たとえばパソコン通信でもらったメール 
の营理なんかも簡単。 

マルチウィンドウも便利。いろんな文章を横 
目で見ながら香けるから，上下2み割程度とは 
雲泥の差だ。 

しかも，どこで悪いことをしているの力、，全 
角キーを OFF じすれば，自動的に英数字入カモ 
—ドになるので，遠くの口ーマ字キーまで指を 
伸ばさなくて済む。 

というわけで，私は Hyperword を使っている。 
変換時のキー反応を速くしろ！とか，削除/挿 
入が遅すぎるぞ！という文句はとてもあるの 
た•が，とりあえず，イ寸属ワープロよりはイ吏いで 
があるのだ。私としては印字機能を别プログラ 
ムじして，縦をきと力、2お組みをサポートしたち 
ゃんとしたやつじして（本体にはテスト印字程 
度の簡単なものしか与えない），プログラムを小 
さくしてもらいたい。 

速度も，もっと速くできるながする。さらに， 
テキストファイルの読み書きをもっと速くして， 
力ーソルの現在位置がわかるようじして，つい 
でに ヘルプ 機能もつけてほしい。シートごとに 
含まもをえたい。奋式設を画面も使いじくい。 

しかし，私は Hyperword を巧う。 PC-980 1 で書く 
ときは（たとえばシ厶シティーの原橘を書くと 
きは X68000 が街作りでたしかったので PC-980I 
を使った）， VZ エディタを使う。だから速い巧境 
も知っているのた’。それでも，速さがすべてで 
はなし、。 私の目に Hyperword のマルチウインドウ 
は巧しい。 


本 - 








本 

HPW.KEY - 

--Definition file for 

power key. This 

file define some of 

本 

本 

WordStar 

compatible operations. 

See "3. 

9.2 Power 

key operation" of 

本 

♦ 

HyperWord 

manual for the definition of 

power key , and see "appendix 4 

本 

t 

± • 

List 

of operation" for the code 

of each 

operation. 

本 

(EditKey 


本 

definition for editting key 



e = 

1 


本 

[XFIJ+e: 

move cursor up 



X = 

2 


本 

IXFl]+x: 

move cursor down 



s = 

3 


本 

IXFl]+s: 

move cursor left 



d = 

4 


本 

IXFl1+d: 

move cursor right 



r = 

14 


♦ 

[XFIj+r: 

roll up 



c = 

15 


♦ 

IXFl 】 +c: 

roll down 



h = 

24 


本 

[XFIJ+h: 

back space (BS) 



g = 

25 


本 

lXFl]+g: 

delete character (DEL) 


V = 

26 


本 

[XFIJ+v: 

change store mode 






本 


of character (INS) 



i = 

27 


本 

1XFI]+i : 

tabulation (TAB) 



m = 

29 


本 

[XFIj+m: 

carriage return (CR) 



P = 

96 







q = 

95 







k = 

106 







w = 

18 







2 = 

1 

19 






本 

1 

XFI キ 

—と 

なっているが、 -X オブシ 

ヨンは起 

かを するため、 


本 

CTRL と統み替えてください。 
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師語を処理ずるための贈離1号はどうなるのか？ 



ホ XtT スタシスへの道 


Iw 曰 I Ippei 

祝一平 


XlturboZ で谭脳俱楽部の原稿を書く祝一平氏も，なんとかなら 
ないものかと思い始めた今日この頃。求むべきは，サクサクと， 
ただひたすら頭の中じ浮かんだ文章を入力できるバランス状態 
である。かくして雷語1号はなが一い発進を備に入った。 


コン 

報化攀が 


わ仕事が「計算」から「情 
のなかで日本語ワープ 



琴^要奋賤終 i だ等； r ， はや四半世紀で 

を'る（かど f かはよく知らないカミ'，まあを 
んなもんだをう）。を一ゆ一わけであるか 
mm 唆;卿國なが発売開始になったときに，を 
袋游がも看讓 ， Iturbo で即戦力を愛用していた私 
800( p に使えをうなワープロが出た 
誠を齡達も乗り換えるつもりでいた 


をれなのに幾星霜。ふと気づ 


上もたつ^ゆ一のに，あいもかわらず义章 
を書くときには，よっこらせと XlturboZ 
で即戦力を立ち上げている私でわぬわいく 
わっ！ 

まあ，誤解のないように言ってわくカミ， 
X 68000 用のワープロが全部ダメ I ：いうわ 
けではなく，私にとって即戦力よりも使い 
易いと実感できるものがないということで 
ある。こないだまでは Hyperword に若千の 
期待があったわけである力す，残念ながら速 
度の点で見送りである。速ければよいとい 
うわけではないが，思考のリズムが狂わな 
い程度に速くなくては困るのだ。 

てな L こで，思うに，ほかになん力、化る 
としても，あとで述べる諸々の事情により， 
私の要ホを満たすものが出てきをうな気配 
は今のところはないようなのである。う一 
ん，困った。 

□ 

をこで，あの頃に帰ってみようかと思う。 
「ないのなら，自分で作ればいいのさ」し 
なんの疑問も持たずに信じていたあの頃に 
である。 

日本に パソコンが 出現して10年ぐらいた 
ったようだけど，をの間には普及台数の飛 
離的な伸びもあったし，をれにとらなって 
ソフトウェアのな術レベルもどんどん上が 
っていって，をしていつし力，「自分で作る」 
^いうこ L カミ，ものすごく，マニアックな 
ことになってしまった。 

でら，今だって「ないのなら作ってしま 


えばいいのさ」という事実に，変わりはな 
いはずだろう（をりゃを一だ)。 

で，考えようによっちゃ， X 68000 のソフ 
卜を作るための撰境はものすごく整ってい 
る。 DOS はす票準でが•いてくるうえに，バー 
ジョンアップなんかで別売のものを臟入す 
るにしても10,000円を切る値段で出てくる 
し（これって冷静に考えてみりゃ，トンで 
もないことなんだザ)，辞書は標準で付いて 
いるからをれを使うようにすればいいし 
(をういえば，昔，辞書をほかのソフトか 
らノタクッて大騒ぎになったワープロがあっ 
たっけ）， XC の ver .2.0 もをろをろリリース 
されるであろうし。 

I そしてホメオスタシス 

実をいうと，私は密かに「帝国主義の最 
終形態はソ連型共産主義であり，独占資本 
の最終形態はソ連型共産党である」という 
理論を持っていたのであった。もしらこの 
理論を一昨年ぐらいに発表してゎけば，今 
頃はおニャン子政治学者の钟添先生といっ 
しよに マスコ ミで ウハウハして たかもしん 
ない。ゎしいことをしたなあ（後知恵度： 
60%)。 

まあ，とにかく，やっぱり独戳とか独占 
とかゆ一ことは，あんまりよくないことな 
のである。を一ゆ一意味からら，をろをろ 
X 68000 になかなかのワープロが出てきて 
ほしい頃ではない力，。やっぱ，ものごとつ 
一もんは，多様にこを真の安定^発展が 
あるのだのだ。 

をこで，「謎の日本語ワープロ」の暫定化 
様を発表するわけである力す，ただし，あく 
までさわりだけである。なぜ'かというと， 
もしも全貌をを表してしまったのならば， 
ゾャヌト某とかいうを社の社長が反復横跳 
びをしてしまうほどすごいからである。ま 
あ，をれぐらい画期的なワープロじなる予 
定なのである（ハッタリ度：測定不能)。 
© 

まずはソフト名である力5'，前々からホラ 


ってわいたようじ「雷語（サンダーワード） 

1号」である。どどどどど。 

このソフトの基本は，あくまでも「質実 
剛健」にある。偉快さを失わず，か t いっ 
て必要な機能は決しておろを力、にしないの 
である。多機能ではなく高機能なのである。 
プロテクトはかかってないし，増設メモリ 
なしでら動く予定だど。どうだまいった力，。 
5ゥラゥ。 

さっそく起動方法である力 S '， 当がながら， 
最初じ Human が'立ち上が' るな。んで， 
AUTOEXEC . BAT が環境変数なんかを設 
をしたあとで，自動的にワープロじ入って 
もいいの だが， べつにを一 ゆ 一 ふうな起動 
には限ってないから，なんかほかのことを 
やったあとで，あたかも ED . X を起動する 
ょぅじ， 

TW 1 ファイル名 [ C 民] 

でよいのである。 

さて，肝心の諸機能であるが，まずこの 
際ハッキリしてわきたいの力す， 

マルチウィンドウ機能なんかね一ぞ 

ということである。 

実に嘆かわしいことである力す，最近は発 
売日の何力巧も前からドカドカと広告を巧 
つというこ^が常留となっている。をの結 
果して，多くのソフトはカタログスぺッ 
クの充実ばかりじ走っているのではないだ 
ろうか？をの結果マルチウィンドウ！：力、 
の飛び道具にをる傾向が絶えない。困った 
ものである。ソフトウェアの真実はハッタ 
リにあらず，便利にあり。質実剛健こを永 
遠の王道なのである。をこで改めて閒い直 
したい。 

エディタでオーバーラップするウィンド 
ウがが山あったとして，いったい何が面白 
いんど？ 

ァイデァプロセッサなんていったって， 
結局は書き手の脱ミソのレベルな上の文章 
力、'できるわけ力、'ないじやないか。 

をりやあ，でかいハードディスクを稍ん 
だバキバキの32ビットのワークステーシヨ 
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調達されて，をの行で[変 
換]，[次候補]，[次候 
補]，[確定]とかをやる 
わけ/ごな。 

で，一見当然に思える 
このやり方カミ，わっ t ろ 
しく古い基本設計のマシ 
ンに t らわれた，ジヤッ 
プな方式であることにわ 
気づきであろう力，。をう， 

このような形式の FEP 
は，アメックスのダイレ 
クトメールの中に入って 
いる切手 t ボールペンの 
ように七セコマしいのだ。あんな! J のは， 
結局はキャラクタ用の画面を1而しか持っ 
てなかった時代の育腸なのである。 

をの点 X 68000 は立派なビットマップ画 
面を持っている（しか^ 4プレーン）。をこ 
でだな， FEP はをのうちの2プレーンを使 
用するのだ。はっきり言ってしまえば，マ 
ウスの右ボタンを押す化てくる例の「仮 
想キーボード」 L 同じノリで「変換作業場」 
が出現するのである。で，実はをの FEP は 
常じ WARM なが態で待機しているから， 
[ CTRL ] - [ XF 1] が押されたならば，電 
光石火で呼ばれて飛び出てジャジャジャジ 
ャーンなのである。当然，設定によって変 
換斤は何斤でもいいわけだな。よって最大 
の32斤モードにして，ノ《レットを不可視に 
して（この場合マウスカーソルら見えなく 
なるけど）わけば，たちまち， 


数えなければいけないのと同じくらいが隹か 
なのだ。なん使用者友好的であるこよ< 
どだ？どだ？ 

当然ながら，雷語の嚴初のものは X 68000 
で発表されるわけである力 S '， 特に温情を垂 
れて，雷語ダッシュとかゆ一やつを他機種 
に移植してやってもよいと思っている力《， 
挨搂に来る際には山吹色のモナカを忘れぬ 
よ一に。 

なゎ，雷語1号はあくまで巨大な地殼変 
動の前兆にすぎないのである。すなわち， 
やがては雷語2号が化現し，さらには3号 
(女性用で「アマゾン」）と発展していき， 

4号，5号，青の6号（ふ，古い）， . ， 

28号で音声認識によるコントロールとなる 
予定である。文句ある力，。 

■ 入手方恐：;っぃて 


ンで， 0 S に仮想記憶とかがあるならば， 
をれぐらいのものがあってもいいけどさ。 

とにかく，オーバーラップ化理はかなり 
重ぃ化理なのだ。をこで，質実剛健な雷語 
1号としては，変に重ぃミエ機能は排除し 
1 ウあえず水平闺面分割だけをサポートす 
るのである。これはまあ，簡単に表現すれ 
ば，画面を上下に2分割し，2つのファイ 
ル（らしくは1つのファイルの別々の部か） 
を同時に表示し編集するとぃうものにず 
ぎない。ただし2分割だけではちょっ t 不 
便なので，をうだな，最高で8分割く、'らぃ 
まではできるようにしてわこう。1ファイ 
ル4斤だな（行数の増減可)。本当は32分割 
や，1/4角文字を使っての64分割ぐ' らぃまで 
やってみてもよいのだが，やっぱり何かと 
不便だろうからこれでいいのだ。うむうむ。 

をれからである力す，現在は多くのワープ 
口に普通に備わっている機能のようである 
が，印刷イメージの画面表示も欠かせなぃ 
な。巧刷する間待たされたうえ，紙の無駄 
までできるというのは，果てしなくプンス 
力だからな。 

をいで，やっぱりコマンド体系は Mi び0 
巨 macs 系だな。基本的には[: CT 民 L ]- [〜] 
し [ ESC ] + [〜]で勝負するのである。 
で，まかり間違ってもキーボードにテンプ 
レートをかぶせたくなるようなウニなコマ 
ンド体系にだけはしたくないと思うのであ 
る。 

だぃたぃ今の日本のワ_プロ/エディタ 
はなんなんだ。 Emacs の設計思想を多少な 
りとも理解しているのならば，あんなわけ 
のわからないコマンド体系ができるわけが 
なぃし君、うのだが。責任者出てこぃ。前に 
も書いたことがあるカミ「ファンクシヨンキ 
一は押しづらぃ」とぃう当たり前のことを， 
いったいいつになったら理解してくれるの 
だろう力、。 

ほかにもいくらでもボヤくネタはあるカミ， 
とじかくキレの違うコマンド体系で勝負し 
たいと思ってぃるのである。をう，雷語1 
号は，パンチの効ぃたナウぃ日本語ワープ 
口なのである。 

I FEP も-版1ぅぞ 

FEP で あるが ，やっぱり ASK 68 K ををの 
まま使うというのも芸がなぃ。をこで雷語 
1号の FEP は「雷太」である（香港製で 
「ドラゴン」なんて名前のマシンがあった 
らぜ'ひ移植してみたぃな）。 

菩通の FEP の基本動作い、えば，変換モ 
ードに入る t 画面の一番下の巧が変換用に 


スクリーンエディタが出現する 

ではないかっ！ 

タネを明かせば，所誰闽面切り替えにす 
ぎないのである力 S '， 使用感はマルチジョブ 
である。もちろん機能などに多少の制限が 
がく予定であるが（メモリの占有量とかが 
あるからね），基礎的な部か，た t えば編集 
機能のほ t んど，ロード，セーブ，結合， 
印刷などはスパスパとできてしまうのであ 
る（らちろん，リッチに数メガを増設すれ 
ば，しっかりと雷語が100%動作する予定で 
ある）。これで，ちょっとした文章ならヒョ 
ヒヨヒヨ イのンパンパとできてしまうのだ 
(おっと，書いててア ルゴ エディタを思い 
化したザ)。こんなこ t も， CONFIG . SYS 
で， 

DEVICE 二 3 DERBOY . SYS # L 32 
と登録してわくだけでできてしまうのだっ。 
う〜ん，なんて便利なんだろう。 X 68000 で 
あれば，これぐらいのものができてしまう 
いうことは，踏み台昇降の後では脈拍を 


さて，この雷語1号の配布方法である力 S '， 
「フリーウェアにして，サポートは気が向 
いたらね」というのと，「ホントに売っちゃ 
う。ちゃん i ： サポートやパ'—ジョンアップ 
もす一るする」という2つの手があるわけ 
だが，どっちにするかは，まあ，出ホ具合 
を見てから決めよう。本当のことを言うし 
どこかのソフトハウスがちゃんとしたやつ 
をさっさと作ってくれる（移植でらいいん 
だけど）のが一番ありがたいんだけどねぇ。 
をれなりのレベルのらのができれば，かな 
り売れるはずなんだけど。ぶつぶつ。 

照なに念のため言ってゎく。こんなこ t 
を普いたからといって「まだできとらんの 
か！さっさと出せ！」などと言ってせか 
さないよ一に。を一ゆ一奴には NHK の集 
金人を差し向けてやるからな。間くところ 
による t ， あれはホ合制だをうだから，う 
かうかしてるとお小玉を抜かれるザ。 

ちなみに，雷語1号の開発の合言’葉は 
「 BT 民 ON に続け！」である（笑）。 
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特集 1 


日本語を処理ずるための膊 ASK 68 K 用辞書メンテナンスツール《前編》 



辞書整備基本編 


Murata Toshiyuki 

ホす田敏幸 


日本語入力の効率を上げるじはおちを鍛えることがいちばんで 
す。今月と来月にわたって ASK 68 K の辞書を整理するためのッ 
ールをお届けします。日本語環境の整備も自みの手で巧うこと 
ができるのです。 


i 8 K の辞菩を整理するツー 
夕か ある。とにかくある。辞 
•を単^!^二#をすキストフ アイルに 落 
:口‘ タザぶ て: 始まり，単語の一監ファ 
イ ルから 孝璃兜に辞書を作成するらの，辞書 
魏想が I 達とめて削るもの，辞書に単語 

-玄ぶぶミ追加するもの，ほかのけ語フ 
が wg 3 S ぞ殘たと案ドプロセッサ用の辞書を ASK 
巧卜する手助けをするもの，辞 

g ^^をいないかどうか検査してある程 
す讀もの，これらに加えて大小の補 
巧本か……。 ASK の辞書に閒し 
ては必要に I 上のことができるといってら過 
言ではないほどの充実したラインアップだ 
(うんうん）。 

特集にかこつけて，今巧とホ巧の2回で 
これらのツール（全部は無理だが）を読者 
にわ踞かけしようと思う。つまらないもの 
ですが，よろしければどうぞ，ってならん 
だ。 

でも変なんだよな。どうしてこんなツー 
ルを作ったんだろう？ しかも，こんなに 
充実させるほどムキになって。自分で作っ 
てわきながら，作成した動機がどうもはっ 
きりしない。 

作ったのはもうかなり前で，タイムスタ 
ンプを見ると去年の9巧に最終的な修整を 
加えたことになっている。ますます変だ。 
当時の僕がこんなプログラムを必要とする 
はずがない。 

をりやあ， ASK の辞普はデカい。郵便を 
号辞書やら不要な固有名詞やらを削って， 
すっきりさせたいと思ってもなんの不思言義 
扛ない。 • 

をりやあ， ASK の辞書はデカいわりには 
登録語が貧弱で JIS 第2水準の熟語なんか 
全滅に近い。よをの日本語フロントエンド 
プロセツサの辞書から単語を吸い Jr . げてパ 
ワーアップできたらな 一 t 夢見たとしても 
バチはあむるまい。 

をりやあ， DK ： M . X は使いにくい。誤変 
換じよって f 奠もり赖もったサブ辞誉中のゴ 
ミ（単漢字など）を削ろうし思い立ったと 


しよう力，。 DICM を立ち上げ，メニューから 
単語削除を選び，問われるままに辞書ファ 
イル名を入九する。と，ここで金縛りにあ 
ってしまう。読みを入力しなければ単語が 
削れない！あらかじめ，削りたい単語を 
紙に書き化すか，プリンタに巧もけ•，してわ 
くかしなければ，どの単語を削ったらよい 
かがわからないとは。仮に削りたい単語を 
リストアップできたとしても，メモを見な 
がら読みを巧ち込んでリターン，力ーソル 
キーで単語を選んでリターン，よろしいで 
すかの閒いかけに Y と答え，終わりますか 
の問いに N と答え，読み入力，単語選が， 

Y ， N ， 読み入力，単語選択， Y ， N …… 
あっというまに嫌になる。をもをら，単語 
1個削るたびに"終わりますか？"って閒 
いてくるのはなんのつ^りだ？ 

どれ衫立派な動機だと思ったかもしれな 
い。も隹かに ASK を频繁に使う人にとっては 
をうだろう。ところ力す，僕は2年前から恥 
ずかしながら新松の人でね（ある[:1を境に 
突が WP . X に耐えられなくなり，某圃民機 
を買いに秋葉原へ走った）。ちょうど，ま年 
の秋なんていったら WP . X はわろか ASK 
を使う機をもほとんどなかったはずなのだ。 
なのにどうして，これだけの数のプログラ 
ムを作ったんだろう。謎だ。 

ま，最近は X 68000 上で原稿 U 外のちょっ 
とした文書（作ったプログラムの仕様菩^ 
いうか覚え普きみたいなのと力，，いろいろ。 
あとで役に立つことは滅多にないが）なん 
かに ASK 68 K を使うことも多くなってき 
たから （ WP . X だけはどうしても獻:囚。絶 
対に,駄目），いまごろになって，辞書を整理 
するプログラムを作ってわいてよかった一 
と思っていたりする。備えあれば邀いなし 
とはよくいったものだ。 

I プ□クラムの内容 

今月は基本セットを提供する。辞普内容 
をテキストフアイルに落とす 「DUMP 
Die . Xj , 逆に単語の一覚ファイルから辞 


書ファイルを作成する 「 GENDIC . X 」，単語 
一覚フアイルををわせるとをのファイル中 
の単語を辞普からごっをり削除する 
「 DELWO 民 D . X 」 の3本だ。 

あらかじめ断ってゎくカミ，これらのツー 
ルは扱いにく く樽体のしれないバイナリフ 
ァイルである辞普を扱いやすいテキストフ 
アイ ルに変換し，このテキストフ アイ ルの 
レベルで手を加えたうえで一巧して辞普に 
戻す，という基本方針で作られている。い 
ったんテキストに落としてしまえば，エデ 
ィタで編集することもできれば，フィルタ 
にかけることもできるわけだ。 

各プログラムはいわゆる DOS コマンド 
つ ぽい体裁であり， COMMAND . X 上で使 
うことを想定している。使用にあたっては， 
コマンドモードでの操作に習熟し，リダイ 
レクトやパイプの利用方法を理解している 
ことが望ましい。 

また， ASK の辞書を自分なりに解析した 
結果と勘に基づいて作成したプログラムで 
あり（内心ではある程度の自信を持ってい 
る！：はいえ），残念ながら100%の動作保証 
をする勇気はない。ぺーパーメディアで提 
供するの1上，プログラム入力時に打ち这み 
間違いが生じることら考えられるし，でが 
一に備え，プログラムを走らせる前には辞 
書のバックアップを取ってゎくこ t をすす 
める。 

あし巧ち込んだプログラムは読名•のも 
のだ。改造しよう力 S '， ほかのプログラムに 
組み込らう力 S ， 友達にあげよう力':，好きに 
してかまわない。この程度のプログラムで 
コピーライトを強硬に主張するほど酔狂で 
はない。ただし， ASK の辞書， X 68 K _ M . 
Die , X 68 K _ S . D には開発元のアクセス/シ 
ャープの著作物であり， ツールを 使って加 
エしたとしてらをの事実に変わりはない。 
十分な配處をもって取り扱ってほしい。 

ではをプログラムを紹介しよう。 

•□UMPDIC.X 

使用法 ： DUMPDIC [スイッチ]辞嘗フ 
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ァイル名["開始位置"["終 — f 位置"]][/〇 
出カファイル名] 

本ツール群の前提 L なるプログラムであ 
り，なじはとらあれ，まず必要。このプロ 
グラムがなければ G 巨 NDIC . X や DELWO 民 
D . X も葱味をなさない。ただし，多少の制 
約つきで DK ： M . X に DUMPDIC . X の代わり 
を務めさせるこ心ができる。具体的な手順 
はコラムにま t めてわいた。 

DUMPDIC のもっとも単純な使い方は， 
DUMPDIC X 68 K _ S . DIC 
のように，辞書ファイル名だけを指定した 
形式だけ皮張子の ". DIC " はつけてもつけ 
なくてもよい）。この場合には，辞書のを巧 
容が画面（標準化力）に書き出される。こ 
れを， 

DUMPDIC X 68 K_S Mile 

のようにリダイレクトする力、， 

DUMPDIC X 68 K_S /Ofile 
と，/〇スイッチに続けて化カファイル名を 
指定すれば単語の一載をファイルに落!:す 
ことができる。 U 下，こうやって作成した 
ファイルのこ I ：を単語ファイルと呼ぶこ！： 
にする。 

サブ辞書は t もかく，メイン辞書の内容 
を書き出すと 1 M バイトを傑'じ越える単語 
ファイルが'作成される。をこで，非ハード 
ディスク ユーザーの場合は，"読み"の範閣 
を区切って2度のに分割して出力する必 


要が生じる。読みの範囲は，たとえば次の 
ように指をする。 

DUMPDIC X 68 K_S "あ’，"こんんん" 

この例では読みが"あ"〜"こ"で始まる 
単語が filel に出力される。なわ，ここでは 
全角ひらがなで読みを指定している力 S '， 
DUMPDIC は全角カタカナ，半角カタカナ 
での指定も受け付ける。また， 

DUMPDIC X 68 K_S "さ" > file 2 
のように，終了位置は省略してもよい。を 
の場合は辞書の最後までとみなされる。哪 
始位置を省略し，終了位置だけを指をする 
ことはできないが，開始位嵩に空文字列を 
キ旨定して， 

DUMPDIC X 68 K_S "こんんん" 

やれば同じ効果が得られる。 

スイッチで指定するこで特定の品詞だ 
けを抽出するこ t もできる。 

/A 形容詞と形容動詞 
/D 副詞 

/N 固有名詞の《外の名詞 

/P 固有名詞 

/T 単漢字 

/V 動詞 

当が，スイッチは複数指定してらよく， 
DUMPDIC /N /P X 68 K_S 
なら，辞書中のすべての名詞が出力される。 
また， 


DUMPDIC /E /N /P X 68 K_S 
のように / E スイッチ U 井-用するし"指定 
の品詞外"が対象になる。この例では名 
詞む外の全単語を化力している。 

さらに，/ M スイッチを指定するとメニュ 
—から品詞を選ぶモードに入る。この方法 
を使えば"か斤5段活用動詞のみ"といっ 
た細かな指をもできるようになる。メニュ 
一の操作は， 

スぺース：遮が.非選がの切り替え 
リターン：確定，実行 
ESC :中断 

じよって巧•う。 DICM . X のようにリダイレ 
クトしたからといってメニューが表示され 
なくなるような削の抜けたことはない。 

あと，わまけ的なスイッチがいくつかあ 
る。 / C スイッチをつける単語を一覽表示 
する代わりに該当単語の個数のみを表示す 
るようじなる。/ H ，/ G ，/ K の各スイッチを 
指定すると"読み"をそれぞれ， 


/H 

半角カタカナ 

/G 

全角ひらがな 

/K 

全角カタカナ 


で化九するようになる。/ H ，/ G ，/ K のいず 
れも指定されない場合は / K とみなされ 
る。 / H を指をすれば，作成される単語ファ 
イルの大きさを若干小さくすることができ 
る力す，をの代わりエディタなどでの編集は 
面倒になることが'予想される。 


□ ICM . X を DUMPDIC . X の代わりに使う方法 


リストを入力する手間を惜しむ読者のためじ， 
D に M.X で単語ファイルを作成する方法を2つ 
紹介してわく。それぞれ一長一短があるから， 
うまく使いみけるとよいかもしれない。 

そのI :リダイレクトを利用する 
安直なみ，"メニューもリダイレクト先にいっ 
てしまうので画面になにも表示されなくなる" 
という大きな欠点がある （DICM が悪い)。具体的 
な手順はが下のとおり。 

1) まず，ふつうに D に M をおかし単語の一お表 
示をして D に M をが了するまでの一連のキー操 
作をおえて（メモして）わく。 

例）下向き カーソルキーを 2回巧して，リタ 
—ン キーを I回巧して，それから〜。 

2) いったん D に M を終•了し， 

A>DICM >B:WORD 鬥 LE 

のようじ，標単出力を適当なファイルじリダイ 
レクトして再起おする。画面にはなにも表示さ 
れないが巧じしない。 

3) I ) で觉えたとわりに，"単語 一K メニューを 
进び一おを開始するまで"のキー操作を正確に 
再現する。途中で問違えたら，"インタラプトス 
イッチをキ甲す"，••プリンタをオフライン状態に 
して COPY キーを押す"などの方まで D に M を強 
制お了しを初からやり直すのが手っ取り早い。 

4) ディスクが止まるのを待って，"単語一おメ 
ニューを巧け. D に M を終了するまで"のキー操 
作を再現する。 


5) 無事， COMMAND. Xのプロンプトが出たら 
出カファイル（上の例では WORDFIL 口をエディ 
夕で読み込み，ホ巧と最後じついたゴミを削っ 
てセーブし直せば完成。 

その2 :空の辞書との辞書差みを利用する 
あまリイまわなし、機能なので気づかなかったの 
だが， D に M の辞書差みメニユーでは出力先にフ 
ァイルを指定することができる。 "X —0 = X" 
だから，空の辞書との差みをとることで単語の 
一おファイルが得られる。出力範囲を指定する 
ことができないのが難。 

1) 単語がなにも登録されていない空の辞書を 
用あする。購入したときのままの X68K_S.D にがま 
さじそれ。運悪くシステムディスクが見当たら 
ないような場合じは，次の X_BAS にプログラム 
でをの辞含を作ることもできる（要は8192バイ 
卜 t 义上の OOh だけからなるファイルがあればよ 
い)。 

10 dim char dmy(8l9l) 

20 int fp 

30 fp = fopen( "null, die", V ) 

40 fwrite ( dmy, 8192, fp ) 

50 fcloseC fp ) 

2) D に M.X を起動する。 

3) メニユーから辞書差みを選び，辞書ファイ 
ルとしてI)で用意した空の巧書，参照ファイル 
として一ち表示したい辞含ファイルを，出カフ 
アイルとして適当なファイル名を指をする。 


4) よろしいですかの問いかけじ Y と答えれば 
処理が始まる。 

さて， D に M.X を使って得られる単語ファイル 
は DUMPDIC. X の化力形ホとは異なる。が， 
GEND にXや DELW0RD. Xはどちらの形まもをけ 
がけるからその点では安'。してもらってよし、。 

ただ， DUMPD に.Xはを行に必ず"読み"をつ 
けるのじ対して， D に M.X の場合は同一の読みが 
続く場合は読みが省略される。これは，単語フ 
ァイルの部みを FIND. Xなどを使って抽出する 
際などじ問題じなるかもしれない。たとえば， 
ァ： 阿 /単漢字 

イ： 行 /力五動詞 

位 /単■漢字 

という単語ファイルから，鬥 ND.X をイまって単漢 
字だけを選び出すとすると， 

ア： 阿 /お漢字 

位 /単漢字 

となってしまう。 GENDIC. Xなどでは，読みがつ 
いていない行は直前の行と同じ読みとみなすか 
ら，これは， 

ア： 阿 /単漢字 

ア： 位 /単漢字 

と解がされるので，うまくないことがわかると 
思う。 
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• GEN □に .X 

使用法： GENDIC 〔/ F をき容量][単語 
ファイル][/〇]出力辞書ファイル 
DUMPDIC などで作成した単語ファイ 
ルから新規に辞當ファイルを生成ずる。 

GENDIC WORDFILE USER . DIC 
もしくは， 

GENDIC WORDFILE / OUSE 民. 
DIC 

のようにして使うのが基本だ。上の例では 
単語ファイル WO 民 DFILE から辞當ファイ 
ル USE に D にを作成している。/0スイッチ 
は単にほかのプログラムとの対称性を保つ 
ために用意されているだけで，通常は省略 
できる。また，例によってが:張子". DIC " 
はつけなくて! J よい。 

あまりやらないことだろう力す，バイプで 
つなぐような則途も怨をして，単語7ァイ 
ルの指定が省略された場合は標準入力から 
入力するようにしてある。この場合は/〇ス 
イッチをつけて，ハ0ラ メータが 単語 フ ァイ 
ルではなく辞書ファイル名であることを明 
7 でする必要がある。 

DUMPDIC /N X 68 I し S I GEN 
D に / OUSE 民 

特に指定されない場合， GENDIC は単語 
を可能な限り詰め込んで隙間のない辞書を 
作成する。あとから単語登録ができるよう 
にゆとりを設けたい場合は，スイッチ/ドに 
より空き容量の削を （ D に M で辞普再編成 
をする場合と同様，単位は％)を決める。 
GENDIC / F 20 WORDFILE USER 
空き容疆は0から最大50%まで許すよう 
にしてある。 

G 区 NDIC に与える単語ファイルのフォー 
マットは DUMPDIC の化乃形式と同じで， 

1斤に1単語か， 

読み登録語品詞名 
の顺がで並んだものだ。みフィールドは半 
角スペースまたはタブで怪:切る。読みはを 
角.半角のいずれでも憐わない 力す， 必ず巧 
頭から（空なを入れずに）書き始めなけれ 
ばならない。巧•頭が空なの場合は nr 前の巧 
の読みを引き継ぐ。要ずるに， 


7 

阿 

単漢字 


亚 

単漢字 


啞 

単漢字 

は， 



ァ 

阿 

単漢字 

ァ 

亚 

単漢字 

ア 

啞 

単漢字 


とみなされる。 

また，一応， 

ア： 阿 /単漢字 
のような DICM . X の単語一驚の化力形式 
も受け付けるように作ってある。 

ときに GENDIC は単語ファイルの行番 
号とともにの TF のような嘗告メッセージを 
化す場合がある。 

-無効巧-がありました 
単語ファイルの形式が正しくない。3つ 
のフイールドが揃っていないし野われる。 

-無効な品詞名 [XX] がありました 
言葉どおり。 DUMPDK ： でサブ辞書のを 
内容を出力し， GENDIC に与えたきにら 
この警告が化る場合がある。これは DUMP ¬ 
DIC と GENDK ： の仕槪であって，害はないか 
ら無视して構わない。 ASK は一部の動詞を 
内部で特別扱いしてゎり，辞書学潛により 
これがサブ辞書ににじみ化てくることがあ 
る。この部分は標準の辞書フォーマットか 
ら若干はずれた形式になってゎり， GEN ¬ 
DIC はこれ に対応して いない (必要らな 
い）。をこで， DUMPDIC はこれら特殊な举 
語の品詞にをつけて化力することに 
よって，故意に GEND にの化理からはずす 
ようにしてあるのだ。 

•読み [XX] に対応する単語が 1 ぺージ 
に J 仅まりませんでした 
ASK の辞書は1024バイトのぺージに分割 
されていて，同一の読みの単語が複数ペー 
ジにまた力することを許^していない 。 GENDIC 
は1ページに収まる縱關のみを化力し，残 
りは切り捨てる。 

•読み [XX] にが応する単語力'; 100 個を越 
えました 

理け!はわからないし，をもをも理曲なん 
てないのだろう力;， ASK には"ひとつの読 
みにがする登録語は100個まで"という変な 
制約があり，をれを越える単語は辞書中に 
存がしてもかな漢字変換時に参照されない。 
GENDIC は ASK の将来的なバージョンア 
ップに期待して，一応100個を越える単語ら 
辞書に登録する。 I :ころで， X 68 K _ M . D に 
中，読み「こう」には103語が登録されてい 
る。困ったものだ。 

-二重登録がありました 
言葉どおり。 GENDK ： は単にこれを無視 
する。 

. 単語の並び順が正しくありません 
これは GENDIC の自慢できない仕様だ。 
GENDIC に食わせる単語ファイルはあら 
かじめ " ASK の辞書中にゎける読みの巧部 
コード順にソートされてなければならな 
い’’ということになっている 。 DUMPmC 


の化力ををのまま使うかには閒題は生じな 
いカミ，単語ファイルをエディタなどでゼロ 
から作成する場合には注意が必要だ。ホち， 
尊用のソートプログラムを提供する予定で 
いる力す，瞥定的なが化方法を示してわこう。 
単語の並び順の乱れを検出したとき， 
GENDIC は警告メッセージと同時に標準 
出力じ登録できなかった単語ファイルの該 
当行を出力する（警告メッ七ージは標準ェ 
ラー化力に書き出している）。ここで， 

GENDIC WORDFILE USER > 
ERR 

のようにリダイレクトし•てわくし‘‘登録し 
をこねた単語だけからなる単語ファイル" 

が得られることになるから，この単語ファ 
イノレを使って， 

GENDIC ERR USE 民1 
のようにして別の辞書ファイルを作り， 
DICM で併合すればよい。 


参 DELWORD.X 

使用法 ： DELWORD [スイッチ][単語 
ファイル名][/〇]辞書ファイル名 
単語ファイルで指定した単語を辞書ファ 
イルからまとめて削除する。単語ファイル 
名が省略された場合は標準入力から入力す 
るあたりは GENDIC と同様だ。/； E， /V 2つ 
のスイッチがある。 / E が指定されるし単 
語ファイル中の無効斤をエラーファイル 
DELWO 民 D . E 民民に書き出す。また，/ V が 
指定される！:実行経過を表示する。このと 
き，無効巧は黄色で，元々辞書中じな力’っ 
た単語は青で標準ェラー出力に書き出し， 
削除できた単語は"標準出力"に出力する。 
DELWORD /V WORDFILE 
USER >UNDO 

のようにリダイレクトしてわけば，"削除し 
た単語だけからなる単語ファイル"が得ら 
れる。 


• SPLIT.X 

使用法 ： SPLIT [スイッチ][入カファイ 
ル名][[/〇]出カディレクトリ] 

ォマヶ。辞書を整理する逊程では結構大 
きなファイルを扱うことになり，場合によ 
ってはエディタで読み込めなかったり，ハ 
—ドデイ スク から フロ ッ ピー デイ ス クに較 
送できなかったりすることが考えられる。 
SPLIT はテキストフアイルを いくつかの 
小さなファイルに分割する小 ツールだ。 

化カファイルは入カファイル名の拡張子 
を".000"， W .001"， ……というように数字 
で置き換えたファイル名で，特に指定さ 
れない限りカレントデイレクトリ上に作 
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られる。分割する大きさは， / B 力’. / L スイツ 
チで指定する。それぞれ後ろに数字をが 
い， / B スイツチの場合はバイト単位， / L ス 
イツチの場合は巧単位で分割する。どちら 
のスイツチも指定されない場合は/ L 1000 
とみなされる。 


■ 応用巧 y 


•メイン辞書から郵便番号辞書を削る 

1) DUMPDIC で郵便番号辞書をおきけ'， 
す。 

DUMPDIC /M X 68 K_M "000""9 
99" >YUBIN 

のようにして DUMPDIC を起重力し，メニュ 
—から品詞は"地名"を選択する。 

2) 抜き出した単語ファイル YUBIN を 
DELWO 民 D に力、ける。 

DELWORD YUBIN X 68 K_M 

3) このままでは辞書ファイルの大きさは 
変わらないので， D に M で辞書を再編成す 
る。 

•独立した郵便番号辞書を作る 

1) 上の 1) t 同様の方法で郵便番号辞書の 
単語ファイルを作成する。 

2) これを GENDK ： じかける。 

GENDIC YUBIN YUBIN 

♦多くの単語をまとめてメイン辞書に追加 
登録する 

1) 登録したい単語だけからなる単語 ファ 
イルを エディタ などで作成する。この ファ 
イルを仮に WO 民 DFILE とする。 

2) WORDFILE を GENDIC に力，ける。 
GENDIC WORDFILE TEMP 

3) 2) で作成した辞書を D に M でメイン辞 
書と併合する。 

I 入力 • コンパィル方法 

プログラムはごくわずかな部分を除き， 

C で記述してある。各プログラムに共通で 
使える閱数が多くあることから，ソースは 
複数に分割されてぉり，リンク時に結合す 
るようになっている。各プログラムご^に 
必要なファイルを表1にまとめてわくから， 
それぞれエディタで入力し，指定された^ 
わりのファイル名でセーブしてわいてもら 
いたし、0 

リスト中，左端の行•番号は入力する必要 
がない。また，全角义字と半角义字の違い 
は重要な意味を持つから，注意を私ってほ 
しし、。 

入力が済んだらコンパイルにとりかかる。 
一気に全部ま！：めてコンパイルし，実行フ 


ァイルを作成するこ L もできる力;'，1力所 
エラーが化て修正するたびにをファイルを 
コンパイルし直すのは合理的ではないので， 
個別にコンパイルし，をののちリンクする 
という段階を踏むのがよいだろう 。 MAKE 
を利用できる環境にあればベストなのだが， 
純正品の MAKE は XC Ver .2. 0を待たな 
ければならない。 

リストは拋張子によって，3種類にか類 
され，それぞれ対応が違う。 

.拡張子が ". H " のもの 
これはヘッダフアイルで，コンバイル時 
に自動的に参照されるから，単にカレント 
ディレクトリに置いてわけばよい。 

.お張子が ". S " のらの 
VFPRINTF . S だけがこれに該当する。 
アセンブリ ソース だから， 

AS VFPRINT 

によって アセンブル する。なわ，このソー 
ス中では vfprintf という ANSI C で定義さ 
れた脚数のコンパチ品が定義されている。 
XC Ver . 2.0 には同関数が用恵されるのは 
間違いないから， Ver . 2.0 が手に入れば 
すぐに不要になるはずのらのだ。また， 
VFP 民 INTF . S 中にはどういうわけか 
printf と fprintf ら再定義されている 。 XC 
Ver . 1の printf はエラーを返さない t いう 
古い仕様なので，エラーを返す版を用意し 
た。これも XC Ver . 2. 0が出るまでの暫定 
的な化證だ。 

-キ应張子が ". C " のもの 
ほとんどカミこれ。 XC を使ってコンパイル 
する t きには，次のようにする。 

CC /L DUMPDIC . C 


避けるためには，付録ディスクに収録され 
ている KNJ 20 CT . X を使って ソース 中の 
全角义字を8進エスケープシーケンスに変 
換してやる必要がある。 ソース 1本ごとに， 
KNJ 20 CT DUMPDIC . C _ DUMPD 
IC.C 

とやって，生成された _ DUMPDIC . C を 
GCC でコンパイルする。 GCC の場合，リン 
ク直前で止めるには， 

GCC -C — DUMPDIC . C 
のように - C スイッチ （ C は小文半）を使う。 
好みによっては嚴適化オプシヨンをつけて， 
G し C - C - 0 - fstrength - reduce - 
fomit - frame - pointer — nnline - functions 
_ DUMPDIC . C 

とでもやればよい。リスト 1 のようなバッ 
チファイルを作れば楽だろう。 

上の作業によって，カレントデイレク 
トリには ソー スフ アイ ルの拡張子が". 0" 

に置き換えられたファイルがたくさんでき 
ているはずだ。これらをリンクすれば実斤 
ファイルが得られる。 XC , GCC のどちらで 
コンハ〇イルした場合もリンクには CC . X を 
使うのが楽だろう。 DUMPDIC . X を作成す 
るのなら次'のようになる。 

CC /Y DUMPDIC . 0 PAGENO . 0 
WCLASS .0 SELCLASS . 0 STRFUNC . 
0 IVnSC.O VFP 民 INTF.O 
どのプログラムも DOSLIB . A，IOCS 
LIB . A を使用しているので，忘れずに / Y ス 
イッチをつける （ Y は大文字）。おっと， 
GCC でコンパイルした場合には KNJ 2 
OCT を通したときにフアイル名を変えて 
しまっているから次のようにリンクする。 


ここで L は大文字でなければならない。 CC /Y / ZDUMPDIC . X _ DUMPD 

CC . X はコンノタイル 過程でできた 
ア七ンブリ ソースを 消去してくれ 
ないので，作業ディスクの容捕が 
不足気咪であれば， コンパイル 後 
に， 

DEL DUMPDIC . S 
によって手作業で消をう。 

GCC を利用するときには多少 
問題がある。移植の版にらよるの 
だが，少なくとも本誌6巧号のか 
録ディスクに収録された GCC VI . 

36. 01はり本語に対応していない 
ので，ふつうに コンパイル したの 
ではプログラム中のメッセージの 
一部が化けてしまうのだ。これを 



iJXhT KGC . BAT 


knJ2oct .X %1.c .c 

goo —o —0 一 fstrength—reduce -fomit-frame-pointer —finline—functions _%1.c 
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IC.O —PAG 巨 NO.O 
最後に;ったが，掲載したリストの分割 
の仕方は大雑化であり，使っていない関数 
も突斤ファイルに含まれてしまっている。 
関数1個ごとに別ファイルにしてわけばよ 
かったのだが，さすがに20〜30個のオブジ 
エクトをリンクしてください，とはいいに 
くかった。どうしても無駄なコードを削り 
たいという人は，各自が応してららいたい。 


ネ 木本 

というあたりでホちへと続く。来巧は辞 
書の単語フ アイルレべルでの コンバータと， 
ワンキーでメイン辞書を切り替える常駐プ 
ログラム，本誌に la 前褐載されたものより 
も若干情報强の增えた ASK の辞書構造解 
析結果などが予定されている。 

辞書のコンパ’ータに関しては， PC -9801 
用のメジャーどころからのコンバートをひ 


ととゎりサポートするべく現在お張作業を 
進めている。 コンノター タとはいっても，あ 
くまで単語ファイルのフォーマット変換を 
するフィルタであり，過度な期待は遠慮願 
う。また， PC -9801 用でもっとも広まってい 
る某ヮープロ用の日本語入カフロントエン 
ドプロセッサからの コン バートはサポート 
するつらりがない。理由は，嫌いだから， 
だ。あらかじめご了承願う。 
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DUMPDIC.X 
ASK68K の辞 I 


イル巧容を表示する 


dumpdic.c pageno.c selciass.c 
wcLass.c strfunc.c raise.c 
vfprintf.s 

mydef.h misc.h strfunc.h myerror.h dictools . h 
doslib.a ioeslib.a 

本/ 

#include "mydef.h" 

#include <atdio.h> 

♦include <atdlib.h> 

#include <ctype.h> 

#include 《 string.h> 

#include 《 limits.h> 

♦include "dictools.h" 

finclude "misc.h" 

#include "strfunc.h" 

tinclude "myerror.h" 

PACKEDSTR progname = "DUMPDIC"; 

PACKEDSTR uaagemes = 

"a が； ASK68K の巧書ファイル内容をま示します ¥n¥ 

巧用法：な [ スィッチ！巧書ファイル [.Die】 ¥ 

け " 曲お位置 ¥" け " お了位置¥"]】[/〇出カファイルけが 
¥t/V パ動巧をがをじする ¥n¥ 

れ /A¥t お容聞 / お容動詞を巧象じする化 ¥ 

Vt/D¥t 刖时を対をじする ¥n¥ 

¥t/N¥t ち閒（固有名詞をおく）をが象じする ¥n¥ 

¥t/P¥t 固ちを巧を巧象にする ¥n¥ 

¥t/T¥t 単濟ネを対象じするれ ¥ 

¥n¥ 

¥t/E¥t スイッチで指ました品的がかを対象じする ¥n¥ 

¥t/M¥t メニューじよって対象品巧を選がする ¥n¥ 

¥n¥ 

¥t/C¥t 巧当単巧技のみをま巧するれ y 
¥t/H¥t 見出し活を半々カタカナで出力する ¥n¥ 

¥t/G¥t 巧出し結を全ちひらがなで出力する¥が 

¥t/K¥t 見出しおを全々カタカナで出力する（デフオルト》むヴ 

¥n¥ 

れザ象 品巧が巧をされない 巧 合は全品巧を巧 巧 【こする化"； 


リス h 这 DUMPDIC.C 


setindex(index0 , 

ASKtoSJIS( index, index© ), hankaku, hiragana )； 


for (: q < buff ； ) { 

claascode = *q++ ； 
for ( spec = FALSE 


本 q 


#define 
♦define 


DONE 

MORE 


static boolean countonly ； 
static boolean hankaku ； 
static boolean hiragana; 
static unsigned int flags; 
static int maxpage, pageno ； 
static int wordetr = 0; 

static void warn() 

I 

fprintf( atderr, 

"g 告：巧 書の Xd ぺージ目に其巧が見られますれ"， pageno +1 


static int dumprec{ fp, buff, 
FILE け p ； 

STRPTR buff, at, ed ； 


St, ed 


extern STRPTR classtbl(1 ； 

STRPTR p, q, buffe ； 

STR indexO, index, word ； 
unsigned int claascode; 
int len ； 

boolean spec, wflg = FALSE; 

for ( buffe = buff + PAGELEN; ( q 
len = 本 q 十 +; 

len += ( ( int ) *q++ ) << 8; 
if (len == 0 ) 

return ( MORE ); 
buff +=len ； 
len = »q ++； 


if 


buff > 
warn(); 
break; 


buffe II len 


memepy( indexO, q, 
t ( indexO + len ) 
q +=len ； 


len ) 

='¥0， 


(strcmp( index©, 
return ( DONE )； 
(strcmp( indexO, 
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99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 


for 

♦ p = 


P = 
tp+ + 
»¥ 0 | 


0xlf; q++, spec 

word ； q < buff && »q >= 0x20;) 
♦q++; 


f ( claascode == 0 I I classcode >= 0x1f ) | 
if ( !wflg ) 
warn ()； 
wflg = TRUE ； 

else if ( flags t (1 << classcode ) ) { 

if ( !8trcmp( " 8 " , word )) 
strepy( word, index ); 

8ettab( word, 8*3 )； 

if ( !countonly 

左 & fprintf( fp, "X8%s%sXa¥n", 
indexO, word, classtbl(class 已 ode し 
(spec EOF ) 

diakfulK fp ); 
wordctr++; 


return ( MORE )； 


void main( argo, argv ) 
int arge; 

STRPTR ♦argv; 

( 

PAGEBUFF pagebuff; 

STR at, ed ； 

STRPTR diefile = NULL ； 

STRPTR deatfile = NULL ； 
boolean except = FALSE; 
boolean menumode = FALSE ； 

FILE 本 aourfp, 本 deatfp; 

int KEYSNS( void ); 

unsigned int selclass( unsigned int )； 
HEADBUFF ♦readheader( FILE ♦)； 
int getpageno( HEADBUFF *, STRPTR )； 
int getmaxpageno( HEADBUFF * ) : 
void seekpage( FILE ♦, int )； 

for ( 拿 at = 拿 ed = ,¥0,, flags = 0; arge: 
if ( け ++argv != ' ¥0' 

&& atrchr( SWITCH_DELIMITER, »»argv ) ! 
unsigned int ac; 
sc = *++»argv; 
switch ( tolower( sc ))( 
case ： 

flags 1= ( 3 << 13 
break; 
case : 

flags 1=(1 << 29 
break ； 
case : 

flags 1=(1 << 18 
break ； 
case In *: 

flags 1= ( 7 << 15 
break ； 
case 'pi: 

flags 1= ( 31 << 19 )； 
break; 
case * V *： 

flags 1= 0xlffe ； 
break; 
case * e■: 

aetflag( &except ); 
break ； 
case Im•: 

setflag( Amenumode ); 
break; 
case ■c•: 

setflag( Icountonly )； 
break; 
case Ih ■: 

8etflag( &hankaku ) : 
break ； 
case Ig•; 

setflag( &hiragana )； 
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flags 


-flags; 


destfp = setstdout( destfile ); 
reset8tdin(); 
breakset( NULL )； 


if ( !menu 田 ode || 

HEADBUFF *hp ； 


flags = selclaas( flags 


hp = readheader( aourfp ); 
pageno = getpageno( hp, at ); 
maxpage = getroaxpageno( hp )； 
aeekpage( aourfp, pageno ); 
free( hp ); 


0; pageno < maxpage; pageno++ 


for ( wordctr 
KEYSNS ()； 

if ( fread( pagebuff,1,slzeof( pagebuff )• aourfp 


!= sizeof( pagebuff )) 
fatal_error( RERRORMES ); 
else if ( dumprec( destfp, pagebuff, at, ed 


break ； 

} 

if ( countonly )( 

if ( fprintf< destfp, 


’ 巧当単巧巧： X6d¥n" , wordctr 


diskfull(destfp ); 
else if ( wordctr )( 

fprintf ( atderr, "Xd 化の単巧がありました ¥n" • wordct 
else { 

fputs ( "該当するが巧はありませんでした ¥n" , stderr ); 


fcloae( aourfp ); 
fclose( destfp )； 


exit( EXIT_SUCCESS )； 
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204 
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break; 
case •k•; 

if ( hiragana I hankaku ) 
usage() : 
break ； 
case 'o': 

8etptr( tdestfile, ++*argv ); 
break; 
default: 

usage ()； 
break ； 

) 

else if ( dicfile == NULL ) { 

dicfile = chkexK ♦argv, ".DIC") : 
else if ( *st == '¥0')( 

SJIStoASK( at, 8trzenkata( st, *argv )) : 
else if ( ted == •¥0 ， ) { 

SJIStoASK( ed, strzenkata( ed, »argv )); 
else ( 

U8age ()； 


if ( dicfile == NULL ) 
usage(); 

if ( ( aourfp = fchkopen( dicfile, "rb" ) ) == NULL 
fata し error( 

" 巧 « 7 アイルけ B 】 がみつかりません "， dicfile ); 

if ( *ed == •¥0 ， ） 

•ed = UCHAR_MAX; 
if ( atrcmp( at, ed ) > 0 ) { 

STR temp ； 

Btrcpy( temp, st )； 
strcpy ( at, ed ); 
atrcpy ( ed, temp ); 


) 

if ( flags == 0 kk !menumode 
flags = UINT_MAX ； 
else if ( except ) 


U ス h3 GENDIC.C 


/、 


OENDIC.X 
単»フ T < 


ルから新なにが書ファイルホ作ぶする 


gendic.o parseline.c wclaaa.o 
Btrfunc.c 田 iac.c vfprintf.a 
田 ydef.h 田 iac,h atrfunc.h 田 yerror.h 
doallb.a iocslib.a 


»/ 


70 

if 

(fseeM destfp, 0, SEEK_SET 



71 

II 

fwrite( &hea 过 er,1,sizeof(1 

♦include 

"mydef.h" 

72 


! = 1 

♦include 

<atdlo.h> 

73 


diskfull(deatfp ); 

♦Include 

<Btdllb.h> 

74 

) 


♦include 

<otype.h> 

76 



♦include 

<atrlng.h> 

76 

static 

void putpage() 

♦include 

"diotoola.h" 

77 

( 


♦Include 

"BiBC.h" 

78 

int 

i ； 

♦include 

"atrfunc.h" 

79 

STRPTR p ； 

参 Include 

•'■yerror • h" 

80 





81 

if 

(indexctr < MAXINDEX ) { 


typedef enum ( 

OK, INVLIN, ILLCLASS, BUFFFLOW, 

TOOMANY, DUPW, ILLORD. 

} 3TAT ； 

PACKBD8TR progna 田 e = "GKNDIC "； 

PACKEDSTR usage 田 ea = 

"機 « : ASK68K の # 書ファイル东新规け巧しおす ¥n¥ 
使用な ： MAKBDIC [ スイッチ 11 单 » ファイル ][/ 〇 1»| 
C]¥n¥ 

¥t/Fn れさ 6 巧量のおを (n i 50% ) ¥n" ; 


fprintf( stderr, "X6d:¥t 【警吿 】 "，lin ); 
fprintf( stderr, warn 田 ea【wno 】， atr ) : 
if { wno == ILLORD ) 

fputs( atr, atdout )； 


static void putheader() 


if ( fwrite( pagebuff, 


PAOELEN, destfp ) 


フ r イル [.DI 


NWORD 


(PAOELEN / 2 


static STR linbuf ； 
static STRPTR wordfile = NULL ； 
static STRPTR dicfile = NULL ； 
static int llnotr = 0; 

Btatlo Int indexctr = 0: 

atatlo HEADBUFF header ： 

static STR wordbuf[ NWORD ]; 

atatlo unalgned ohar olaeabuf[ NWORD ]； 

Btatlo int size = 0; 

Btatlo PAQBBUFF reobuff, pagebuff : 
static PILE taourfp, 韋 destfp; 
atatlo Int freeslze = 0 ； 


statio void warn( wno• 
STAT wno ； 
int lin ： 

STRPTR Btr ； 


lin, Btr 


statio ohar twarnmesf]=( 

NULL, 

" 無な巧がありましたれな"， 

" 無 « なせ謂名けがたりした化"， 

" 蘭み [ わ】に対応するが 1 ぺージにな表り * せんでしたれ 


)； 


"K みけ a] に W 巧するが 100 俩 ホ )# 丈*した ¥n" 
"二 ■壹録 け B] がわり * したお"， 

"♦» の並ぴ顺が正し < ありません化"， 
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106 
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113 
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115 
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putheader() ; 
di8kfull( destfp )； 

) 

p = pagebuff + 2; 

i = 拿 P++; 

if ( i > 8 ) 
i = 8 ； 

田 e 田 cpy( header.index[ indexctr++ ]• p, i ); 
me 田 aet( pagebuff, '¥0 ，， PAGELEN )； 
size = 0; 
else ( 

putheader(); 

fata し errori " # 書ファイルの大ささが巧界を越丈ました" 


static STAT putrec( index, otr, f 
STRPTR index ； 
int ctr, f; 


STRPTR t) = recbuff + 2: 

Int len, alen, tlen : 
int i; 

STAT itat = OK ： 

■len = atrlen( index ) : 
header.flag[ 拿 index ] = TRUE ： 
len = 2 + 1♦ Blen ； 

韋 = ulen: 

8 trop 7 ( p, index ); 
p ♦= ■len; 

for (1= 0; i < ctr ； i++ )( 

tlen = Btrlen( wordbuf[1]); 
if (len ♦ tlen > PAOELEN )( 
Btat = BUFFFLOW ； 

)elae t 

韋 p + 夺 =claasbuf[1] : 
Btrcpy( p, wordbuf[ i ]); 
len += tlen ♦1: 


456789012345678901 


234567890 
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143 
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p += tlen: 


p = reobuff ； 

拿 p+'f =len & 0xff; 

*p++ =(len >>8)4 0xff ； 
if ( size ♦len > PAGELEN - freeslze ) 
putpage ()； 

田 e 田 cpy( pagebuff + size, recbuff, len ) ； 
size +=len ： 

if ( f ) 

putpage(); 

return ( atat )； 


static void gendic( index, word, class ) 

STRPTR Index, word, class ； 

static STR IndexO ； 
static int ctr = 0 , toplin ； 

STRPTR word0 = word ； 

Int olasB—oode; 

Int getcla88Code( STRPTR ) : 

if ( index == NULL )( 

if ( otr kk putrec( IndexO, otr, TRUE )) 
warn( BUFFPLOW, toplin, Index ) : 

)else ( 

if ( !8trcmp( index, wor 过 0 )) 
word0 = ( STRPTR ) "8 "； 

if ( !( claas—code = getclasacode( olass )))( 

warn( ILLCLASS, linctr, claaa ); 

)else if ( *index0 == ）t 

toplin =linctr; 

SJIStoASK( lndex0, index ) : 
atrcpy< wordbuf[ ctr = 0 ]• word© )； 
classbuf[ ctr++ ] = claas—code; 

} else { 

STR temp ； 

int c 田 pstat, i ； 

SJIStoASK( temp, Index ) : 

if ( !( c 田 patat 乙 atrcmp( te 田 p,IndexO )))( 
if ( ctr < NWORD ) { 
if ( otr == 100 ) 

warn( TOOMANY, toplin, index ) : 
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for ( i = 0; i < otr ； i++ ) { 

if ( classbuf[ i ] == olasa—oode 
&& !atrcmp( wordbuf[1 し word0 ) 
warn( DUPW, linctr, word ) : 
break ； 


if ( i == ctr )( 

atrcpy( wordbuf[ ctr し word® )； 
claaabuf 【 ctr++ ] = class—code; 


} else if ( c 田 patat > 0 ) { 

if ( putreo( IndexO, otr, FALSE )) 
warn( BUFFFLOW, toplin, index )； 
toplin =linctr + 1 ； 
atrcpy( index0, temp )； 

8trcpy( wordbuf[ ctr = 0 ], word0 )； 
classbuf( ctr++ 】 = olaaa_code ； 

)else ( 

warn( ILLORD, linctr, linbuf ) : 


void maln( argc, argv ) 
int argo ； 

STRPTR *argv ； 
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222 

223 
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227 
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229 
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231 

232 

233 

234 

235 
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237 

238 
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241 
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247 
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267 
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STR index, word, olass; 
boolean dflt = TRUE ； 
int KBYSNS( void )； 

while ( argo ) { 

if < 8trohr( SWITCH_DBLIMITBR, け ♦+argv ) != NULL ) { 
unsigned int so : 

8C = 韋 ++ 拿 argvj 
awitoh ( tolower( so ))( 
oaae *¥0 *； 

setptr( &wordflie, stdln ); /»dummy»/ 
break ； 
oaae 'f* : 

aetvalue( Stfreesize, + ♦ れ rgv, 0, 50 ) : 
break; 
oaae *o* : 

setptr( Adlofile, ♦+*argv )； 
break ； 
default ： 

usage() : 
break; 

) 

} else if ( wordfile == NULL ) { 
dflt = FALSE ； 
wordfile = *argv ； 

)else if ( dioflle == NULL ) { 
dloflle = *ar£v; 

)else ( 

usage ()； 


if ( dicfile == NULL ) 
usage() : 

else 

dicfile = ohkext( dicfile, ".DIC"); 

re8etBtdin() : 
if ( dflt )( 

aourfp = Btdin; 
wordfile = "【樣 > 乂力】"； 

) else if ( ( Bourfp = fohkopen( wordfile, "r" ))= 乙 NUL 

I 

fata し error{ ROPBNBRRMES, wordfile ) : 

) — 


if ( ( destfp = fchkopen( dicfile, "wb" ) ) == NULL ) 
fata し error( 

" 脖書 7 アイルけ *! 】が作成で 6 サん " ， diofi い）； 
breaksetf NULL ) : 
fprintf( atderr, 

" 登錄单語フ7イル ：な化登織材象 > 害フ： r イル：なれ 

wordfile » dicfile ) ； 

if (fwrite( ^header,1,aizeof( header )• destfp ) != sis 
eof(header)) 

dlBkfull( destfp )； 

freeaize 乙 (freesize == 0 ) ? 2 : freesize 拿 10 ; 

for { SIndex = *¥0*,linctr =1 ； 

fgetB( linbuf, NCHAR, aourfp ) != NULL ： linotr++ ) { 
KBYSNS() : 

if ( parseline(linbuf, index, word, class )) 
gendlo( index, word, olass ); 
else If ( 拿 ： Linbuf != »¥0» ) 

warn( INVLIN, linotr, linbuf )； 

) 

gendlo( NULL )； 

putheader ()； 

fclose( aourfp ) : 
foloBe( destfp )； 


リス K4 D 巨し WORD.C 


1： /* 

2 ： DELWORD.X 

3： 巧書ファイルから巧巧をまとめて削除する 

4 : 

5: delword.C pageno . 〇 paraeline.c wclaas.o 

6 : atrfunc.c misc.c vfprintf.s 

7 : mydef.h miac.h atrfunc.h myerror.h dictoola.h 

8: doslib.a iocslib.a 

9: 寒/ 


10: 

11: 

♦include 

"mydef.h" 


12 ： 

#include 

<stdio.h> 


13 ： 

finclude 

<8tdlib.h> 


14 ： 

#include 

<ctype.h> 


15 ： 

#include 

<string.h> 


16: 

#include 

"dictoola.h" 


17 ： 

finclude 

"miac.h" 


18: 

finclude 

"atrfunc.h" 


19: 

#include 

"myerror.h" 


20 ： 

21 ： 

♦define 

NORMCOLOR 

33 

22 ： 

#define 

SKIPCOLOR 

31 

23 ： 

#define 

ERRCOLOR 

32 

24 ： 





25: PACKEDSTR progname = "DELWORD"; 

26 ： PACKEDSTR usagemea = 

27:"概化：単なファイルで巧定された単巧を ¥ 

28: ASK68K のお 書 ファイルからまとめて M 巧しますも! ¥ 

29：化用巧 ： Xa [スイッチ】【単巧ファイル】 t /01 巧香ファイル 【 .Die け n 

30： ¥ t / E¥t 0!) おできなかった単なを DE—LWORD • ERR じ書き出します ¥nV 
31: ¥ t / V れ実行な*を«告します ¥ n "; 

33 ： static HEADBUFF ♦hp; 

34 ； static PAGEBUFF pagebuff ： 

35: static STR linbuf ； 

36 ： static STRPTR wordfile, dicfile ； 

37: static FILE 拿 aourfp, ♦diefp, »errfp ； 

38: static boolean report = FALSE ； 

39: Btatio boolean verbose = FALSE ； 

40: static int Invalidline = 0; 

41:static int validline = 0; 

42: static int linctr = 0 ； 

43: static int maxpageno; 

44: static int curpageno =-1; 

45: static PACKEDSTR errorfile = "DELWORD.ERR"; 

46: 

47; #define verboaeprintf if ( verbose ) fprintf 
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81 
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96 
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100 
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103 

104 
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106 

107 

108 
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110 

111 
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113 

114 
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120 
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123 

124 

125 

126 

127 

128 
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131 
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typedef enum { 

DONE, NOTFOUND, ERR 
} STAT ； 


static STRPTR 8earchrec( hp, buff, index 
HEADBUFF *hp ； 

STRPTR buff, index ； 


int ompstat; 

STR indexO : 
int pageno, len; 

STRPTR p, q, r; 

void seekpage( FILE *, int )； 


) 


for ( pageno = getpagenof hp, index ); 
pageno < maxpageno : pageno++ ) { 
if ( curpageno != pageno ) { 

8eekpage( dicfp, curpageno = pageno )； 
if ( fread{ buff,1,PAGELEN, dicfp ) != PAGELEN ) 
fata し error( RERRORMES )； 

) ' 

for ( p = buff; ; p +=len ) { 

len = p[0] I ( ( ( int ) p[1]) <<8 )； 
if (len == 0 ) 
break ； 

memcpy( index0, p + 3, p[2]); 

»( index0 + p[21)= ， ¥0 ，； 

if ( ( cmpstat = strcnp( indexO, index ) ) == 0 ) 
return ( p ); 
else if { cmpstat > 0 ) 
return ( NULL )； 


return ( NULL )； 


static STRPTR Bearchword( rec, index, word, clasacode, reclen 

) _ 

STRPTR rec, index , word ； 
unsigned int classcode; 
int reclen ； 

{ 

STR temp; 

STRPTR p, q, reced ； 
boolean atf; 

atf = !strcmp( index, word ); 
reced = rec + reclen ； 
rec + = 2 + rec[2] + 1; 

for ( p = rec; rec < reced ； rec = p ) { 

if ( »++p >= 0x20 ) { 
for ( q = temp ； 

p < reced &&. *p >= 0x20; 拿 q++ = *p++ )； 
if ( »rec != classcode ) 
continue ； 

拿 q = »¥0 *； 

if ( !atr 巳 mp{ temp, word ) 

II atf 44 !atrcmp( temp, "0")) 
return ( rec ); 

} else { 

for ( ; p < reced &&. *++p >= 0x20 ;)； 


return ( NULL )； 


static int delwordl(rec, dword, len, lien ) 
STRPTR rec, dword; 
int len, ilen ； 
t 

STRPTR p ； 
int i, j ； 

for ( i =1,p = dword + 1; 

p < rec + len 左 & ♦p++ >= 0x20; i++ ); 
if (len _ 2 - ilen _ i -1==0 ) { 

i =len ； 
dword = rec; 
len = 0; 

»rec =len; 

)else ( 

len —= i; 

rec[0]=len ； 

rec[l]=(len >> 8 )； 

) 

j = ( pagebuff + PAGELEN ) - ( dword + i ); 
me 田 cpy( dword, dword + i, j ); 
memset( dword + j, •¥0 ，， i ); 


return (len ); 


static STAT delwordO( index0, word, classcode ) 

STRPTR index©, word ； 
unsigned int classcode; 

{ 

STR index ； 

STAT retcode = ERR; 

STRPTR rec, dword; 
int len, ilen; 

void seekpage ( FILE :*, int ); 

SJIStoASK( index, index0 ); 

if { ( rec = aearchrec( hp, pagebuff, index ) ) == NULL ) 

return ( NOTFOUND )； 
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180: 

181 ： 

182 ： 

183 ： 

184 ： 

185 ： 

186 ： 


187 ： 
188 ： 
189 ： 
190 ： 
191 ： 
192 ： 
193 ： 
194 ： 
195 ： 
196: 
197 ； 
198 ： 
199 ： 
200： 
201： 
202： 
203 ： 
204 ： 
205 ： 
206 ： 
207 ； 
208 ： 
209: 
210: 
211： 
212： 
213 ： 
214: 
215 ： 
216 ： 
217 ： 
218 ： 
219 ： 
220： 
221: 
222： 
223 ： 
224 ： 
225 ： 
226 ： 
227 ： 
228 ： 
229 ： 
230 ： 
231 ： 
232 ： 
233 ： 
234: 
235 ： 
236 ： 
237 ： 
238 ： 
239 ： 
240 ： 
241: 
242 ： 
243 ： 
244 ： 
245 ； 
246 ： 
247 ： 
248: 
249 ： 
250 ： 
251 ： 
252 ： 
253 ： 
254 ： 
255: 

256 ： 


len = rec[0] I ( ( ( int ) rec[l]) << 8 ) ； 

ilen = ( int ) red2 ]； 

if ( ( dword = 8earchword( rec, index0, word, 

classcode, len ) ) == NULL ) 
return ( NOTFOUND )； 

if ((len = delwordl(rec, dword, len, ilen ) ) != 0 
&&. ( dword = aearchword( rec, indexO, word, 
classcode, len ) ) != NULL ) 
delwordl(rec, dword, len, ilen )； 

seekpage( dicfp, curpageno )； 

if ( fwrite{ pagebuff,1,PAGELEN, dicfp ) != PAGELEN ) 
diskfull(dicfp )； 

return ( DONE ); 


static STAT delword( index, word, class ) 

STRPTR index, word, class ； 

{ 

unsigned int classcode; 

STAT retcode ； 

int getclaB8code( STRPTR ) : 

if ( ( classcode = getclasscode( class ) ) == 0 ) { 

verboB^printf { atderr, "¥33 [Xd 田 Xa¥33[m", ERRCO し OR, li 

nbuf ); 

retcode = ERR ； 

)else if ( delword0( index, word, classcode ) == DONE ) 

{ 

verboseprintf( stdout, "Xs",linbuf ) : 
validline ++； 
retcode = DONE; 

I else { 

verboseprintf( atderr, "¥33[XdmXa¥33[m", SKIPCOLOR,1 

inbuf ); 

retcode = NOTFOUND ； 

) 

return ( retcode ); 


static void windup() 

( 

fputs( "¥33 【 m", stderr ); 
if ( invalidline ) 
fprintf( stderr, 

"Xd 巧の無巧巧がありました ¥n", invalidline ); 
if I validline ) 

fprintf( stderr, 

"が化のが路を削おしました ¥n", validline )； 

else 

fprintf ( stderr, " 目！）おは巧われませんでしたむ"）； 


void main( argc, argv ) 
int argc ； 

STRPTR ♦argv; 

{ 

STR index, word, class ； 
boolean dfIt = TRUE; 

int KEYSNS{ void )； 

HEADBUFF 本 readheader( FILE 拿 ）； 
int getmaxpageno( HEADBUFF * )； 

for ( ; —argc ； ) { 

if ( atrchr( SWITCH_DELIMITER, »»++argv ) != NULL ) { 
unsigned int sc; 
sc = *++*argv; 
switch ( tolower( sc ) ) { 
case ■¥0 *: 

aetptr( Awordfile, stdin ) : / 本 dummy*/ 
break; 
case Ie *: 

setflag( ireport )； 
break ； 
case * o *： 

aetptr( &dicfile, ++*argv ); 
break ； 
case I V•: 

8etflag( ^verbose )； 
break ； 
default ： 

usage(); 
break; 

) 

)else if ( wordfile == NULL ) { 
wordfile = *argv ； 
dflt = FALSE; 

} else if ( dicfile == NULL ) { 
dicfile = »argv; 

)else ( 

usage(); 


if ( dicfile == NULL ) 
usage ()； 

else 

dicfile = chkext( dicfile, ".DIC"); 

if ( ( dicfp = fchkopen( dicfile, "rb" ) ) == NULL ) 
fata し error( 

" 巧害ファイルけ 8 】がみつかりません "， dicfile )； 
if ( ( dicfp = freopen( dicfile, "r 牛 b", dicfp ) ) == NULL 
fatal error( 


►ぶおの絵を写が裝じでらしたら'ぶれるのではないですか？お、はなんとな < 神化が]なと 
ころががきです。 飛が和大 （19) おが巧; 
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ス h 已 SPLIT. 


SP し IT.X 

テキストを巧なファ 


ルに々刺するフイルタ 


split.C misc.C 
vfprintf.s 

mydef.h misc.h rayerror.h 
doalib.a 


本/ 


finclude 

"mydef.h" 

#i 打 elude 

<stdio ， h> 

#i 打 elude 

<st 过 lib. 

h> 

#include 

<string ， 

h> 

#include 

《 limits• 

h> 

#include 

<doslib ， 

h> 

#i 打 elude 

"misc•h" 


#include 

**myerror 

• h" 

#define 

NLINE 


#define 

TEMPNAME 



1000 

"SPLTEMP... 

PACKEDSTR progname = "SPLIT"; 

PACKEDSTR usagemes = 

"« 巧：テキストをな巧のファイルじみがします ¥ n ¥ 

使用法：な[スイッチ】【乂カファイル][[/〇]化カホディレクトリけ n¥ 
¥ t / Bn れそれぞれが n バイトが下になるようじみ机するれ¥ 

れれ（ただし，るファイルじかなくとも1巧は出力する）¥が 
れ / Ln¥t n 巧ごとに々抑する ¥ n ¥ 

¥ t / Wn ¥ t 1巧の*大文ずおを n 文字じする ¥ n ¥ n ¥ 

¥ t / B も / L も省贿された巧合は/ L 1000 とみなす ¥ n "; 

FILE »nextfile( destfile, no ) 

STRPTR deatfile; ' 

int no; 

{ 

STR temp ； 

FILE ♦fp ； 

if ( no > 0xfff ) 

fata し error( " 巧大々がなを越えました"）； 
sprintf ( temp, '.お％. 3X.,, destfile, no )； 
if ( ( fp = fopen( temp, "w" ) ) == NULL ) 
fata し error( WOPENERRMES, temp )； 
return ( fp ); 


80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
.109 

110 

111 

112 

113 

114 

115 

116 


aetvalue( &no, ++*argv, 0, 0xfff ); 
break ； 


I 8etptr( &destfile, ++*argv ); 

break ； 
case •w* : 

aetvalue( 左 Iwidth, ++»argv, NCHAR, INT_MAX 

break ； 
default : 

U8age ()； 
break ； 

) 

else if ( aourfile == NULL )( 
sourfile = ♦argv; 
dflt = FALSE ； 

else if ( destfile == NULL ) { 

deatfile = ♦argv; 
else { 
usage(); 


紙 


NULL 


void main( argc, argv ) 
int argc; 

STRPTR »argv; 

{ 

STRPTR linbuf ； 

boolean blflg = FALSE, dflt = TRUE; 
long divbyt 二 0, bytctr, linlen ； 
long divlin = 0,linctr ； 
int no = 0,Iwidth = 0; 

FILE 本 fpl, »fp2 ； 

STRPTR sourfile = NULL, destfile = NULL ； 
for ( ； --argc ； ) { 

if ( atrchr( SWITCH_DELIMITER, ♦ 本 ++argv ) != NULL 

unsigned int sc ； 
sc = 本 ++*argv; 
switch ( tolower( sc ))( 
case I¥0 *: 

setptri &aourfile, stdin ); /*dummy»/ 
break; 
case 'b' : 

setflag( &blflg )； 
divlin = LONG_MAX; 

aetvalue( &divbyt, 本 argv,1,LONG_MAX 
break ； 
case * 1 *: 

setflag( &blflg ); 
divbyt = LONG_MAX ； 

setvalue( &divlin, ++»argv , し LONG_MA 

); 

break; 


118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 : 

138 

139 

140 

141 

142 

143 

144 

145 
i 146 

147 

148 

149 

150 

151 


e ); 

)； 


resetst 过 in(); 
if ( 过 fit ) { 

stdin; 

atfile = TEMPNAME ； 
else { 

struct NAMECKBUF nambuf ； 
if { NAMECK( aourfile, tnambuf ) ) { 

fatal_error( I しし NAMMES, aourfile ); 

} else if ( ( fpl=fope 打 （ sourfile, "r") 

fatal_error( ROPENE 技氏 MES, aourfile )； 

)else { 

if ( destfile = 三 NULL ) 

sprintf(linbuf, "Xa.", na 田 buf. 打 a 面 e ); 
else if ( strchr( PATH_DELIMITER, ♦( atrchr( destfil 
»*)-!))== NULL ) 

sprintf(linbuf, "%8¥¥Xs.*', destfile, nambuf.nam 

else 

sprintf{linbuf, "XsXs，", destfile, nambuf.name 
destfile = dupatr( linbuf ) : 


if ( divbyt + divlin == 0 ) { 

divbyt = LONG_MAX; 
divlin = N し INE; 

) 

if (Iwidth == 0 ) 

Iwidth = NCHA 反； 
linbuf = memalloc( Iwidth )； 

breakaet( NULL ); 

fp2 = nextfile{ destfile, no++ )； 


NULL*; 


for ( bytctr =linctr = 0; fget8( linbuf, iwidth, fpl)!= 


bytctr 牛 =linlen,lin 巳 tr++ 

linlen = atrle 打く linbuf )+1; 

if ( bytctr != 0 左 & bytctr 争 linlen > divbyt 

I I < linctr >= divlin ) ) { 

fclo 曰 e( fp2 )； 

bytctr =linctr = 0; 

fp2 = nextfile( destfile, no++ ); 


if ( fputs{ linbuf, fp2 
过 tskfulK fp2 ); 


fcloaealK )； 

exit( EXIT_SUCCESS )； 


EOF 
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►がんばれ！アルバイター。化勁がなんだ。 X 68000 君は目の前だ一- 


れ‘废誠 (19) おか•化 


257 ： 

258 

259 

260 
261 
262 

263 

264 

265 

266 ； 

267 ： 

268: 

269 ： 

270 

271 

272 

273 

274 

275 


"巧書ファイルけ al は書き込み巧止 { こなつています"， dicfi 

) ； 

hp = readheader( dicfp ); 
maxpageno = getmaxpageno( hp )； 

reset8tdin ()； 
if ( dflt ) { 

sourfp = stdin ； 
wordfile = "[ 巧準人力 ]"; 

)else if ( ( sourfp = fchkopen( wordfile, "r" ) ) == NUL 

{ 

fata し error( ROPENERRMES, wordfile ) : 


if ( report && ( errfp = fopen( errorfile , 
fata し error( EOPENERRMES, errorfile )； 
breakaet( windup ); 


fprintf{ stderr, 

"刖除単語フっ 


: %8¥ n 肖 IJ 除がをが害ファイル：おれ 


276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 


wordfile , dicfile ) ; 


fgets( linbuf, NCHAR, sou: 


=1； 

urfp 


!= NULL ； linctrf+ 


KEYSNS(); 

if ( !par8eline( linbuf, index, word, class ) 

II delword( index, word, class ) == ERR ) { 

invalidline 牛 +; 

if ( report && fputs( linbuf, errfp ) == EOF ) 
diakfull(errfp )； 

♦index = •¥0•; 

) 


fclose( sourfp ); 
fcloae( dicfp ); 
if { report ) 

fclo9e( errfp ); 


windup ()； 

exit( EXIT_SUCCESS 


123456789 


0123456789012345678901234567890123456789012345678901234567890 

1111111111222222222233333333334444444444555555555566666666667 
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ゴ化 IC 1。 肌 


♦include 

"mydef.h" 


58 

59 

void Beekpage( fp, pageno ) 

♦include 

<8tdio.h> 


60 

FILE *fp; 

♦include 

<ctype.h> 


61 

int pageno; 

♦include 

<8tring.h> 


62 

( 

♦include 

<jatring.h> 


63 

if ( fseek( fp, pageno 

boolean paraeline(linbuf, 

index, word, class ) 

64 

BK_SET )) 

: fatal error( ILLFOR 

: } ■ 

STRPTR linbuf, index, word, 

class ； 

65; 


s お 


int len; 

STRPTR p ； 

本 word = 拿 class = *¥0'; 

if (lsspace( »linbuf ) ) { 

SBcanf(linbuf, "XsXa", word, class ) : 

} else { 

Bscanf(linbuf, "XsXs か " ， index, word, class ) : 
if ( 拿 word == *¥0» 

4& ( p = jatrrchr( index, •:•))){ 
Btropy( word, p )； 

本 p = »¥0»; 

} 

if ((len = 8trlen( index ) ) > 2 

&& リ stro 田 p( p = index + len - 2," : ")) 

»p = ,¥0,; 

8trzenkata( index, index ); 

} 

if ( 本 class == *¥0 ， 

&& ( p = jatrrchr( word, */*))){ 
atrcpy( class, p + 2 )； 

*p = '¥0,; 

) 

if { !8trnc 田 p( class , 2 )) 

strcpy( claaa, class + 2 ); 


return ( *index != 
44 »word != 


¥ 0 * 

»¥ 0 » 


kk 本 class != *¥0 ')； 


1 

♦include 


"mydef.h" 


2 

♦include 


<doalib.h> 


3 

♦include 


<iocslib ， h> 

4 

e 

♦include 


"dictoola. 

h’. 

D 

6 

#define 


NORMCOLOR 

3 

7 

#define 


REVCOLOR 

13 

8 

9 

♦define 


ESC ( 

0x01) 

10 

♦define 


BREAK ( 

0x61) 

11 

♦define 


CR ( 

0xlD ) 

12 

♦define 


ENTER ( 

0x4e ) 

13 

♦define 


CUP ( 

0x3c ) 

14 

♦define 


CDOWN ( 

0x3e ) 

15 

♦define 


CRIGHT ( 

0x3d ) 

16 

#define 


CLEFT ( 

0x3b ) 

17 

#define 


SPACE ( 

0x35 ) 

18 





19 

#define 


MENULEN 

18 

20 





21 

unsigned 

int selclass( 

flags 

22 

unsigned 

int flags ； 


23 

( 




24 

unsigned int b ； 


25 

int 

01=0 

, savpos ； 


26 





27 

static 

STRPTR class[]= 

28 

/本 

123456789012345678 

29 



力五 tt 巧 " 


♦include 
♦include 
♦include 
ffinclude 
参 include 
♦include 
♦include 



" 田 iBC.h" 

" 田 yerror.h" 
"dictoola.h" 


static PACKEDSTR ILLFORMMES = 

"巧をのファイルは ASK68K のが書ファイル ¥ 

ではわりません（たぷん） " ； 

HEADBUFF »readheader( fp ) 

FILE «fp ； 

{ 

HEADBUFF 拿 hp; 
int len; 

hp = me 田 alloc{ sizeof( HEADBUFF )) : 

len = filelength( fileno( fp )); 

if (len < PAGELBN + sizeof( HEADBUFF ) 

II len X PAGELEN != 0 ) 
fata し error( ILLFORMMES )； 
if ( fread( hp, I, aizeof( HEADBUFF ), fp ) 
!= sizeof( HEADBUFF 
fata し error( RERRORMES )； 
return ( hp ); 


int 2etmaxpageno( hp ) 

HEADBUFF »hp; 

{ 

INDBXTYPE *p ； 
int maxpageno; 

for ( maxpageno = 0, p = hp—>index; 
p < hp—>index + MAXINDEX && 拿拿 p 


110 + + )； 

return 


•¥0 ，； P++, maxpage 


maxpageno )； 


int getpageno( hp, atr ) 

HEADBUFF »hp; 

STRPTR 8tr ； 

I 

int pageno ； 

INDBXTYPE temp, tp ； 

me 田 8et( temp, •¥0*, sizeof( INDBXTYPE ))； 
strncpy( temp, str, sizeof( INDBXTYPE ))； 

for ( pageno = 0, p 三 hp->index ； 

p < hp->index + MAXINDEX 拿 ♦p != >¥0 ， ； 

卜 ） t 

if ( me 田 omp( p, temp, sizeof( INDEXTYPE 
break; 


P++, pageno+ 


pageno 


0 ) ? pageno 


0 )； 


30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 


»/ 


ガ五:曲巧 
サ五動巧 
夕五動巧 
ナ置動詞 
バ五かお！ 

マ五動闲 
ラ五曲闲 
ワ五 ft 巧 
サ変曲巧 
カタ勘巧 
上•下一段か詞 
形容巧 
おを諭巧 

おを曲的巧を名巧 
サ変な合名巧 
名 拥 

単澳字 
人名（巧） 
人名（名） 

巧 名 

固体名 
巧のをが 
な 聞 

致 キ 

巧巧お 
度か巧 
巧な巧 
曲 m 

連か巧 


if ( C_WIDTH(-1) > 1 ) 
C_WIDTH( 0 ) ； 

C_COLOR( NORMCOLOR ) : 
for ( m = 0; m < 30; m++ )( 
if ( flags & (1 << (m + 
C_COLOR( REVCOLOR )； 
B_PRINT( claast m ]); 
C_CO し OR ( NORMCOLOR )； 
if ( m X 4 == 3 ) 

B PRINT{ " れれ ")； 

1 

B_PRINT( " れ ¥n ")； 


C_CURON ()； 
savpos = C_LOCATE( 
C_UP( 8 ); 


- 1 ,- 1 ); 


for 


B_KEYSNS(); B_KEYINP ())； 


for ( m = 0;; ) { 

switch ( ( B_KEYINP() >> 8 ) & 0xff ) { 

case ESC: 
case BREAK: 

C_LOCATE( savpos >> 16, savpos )； 
return ( 0 )； 
break; 
case CR: 
case ENTER ： 

C_LOCATE( savpos >> 16, savpos ); 
return ( flags ); 


►をういえば Oh!MZ の化かのがは糾觀赴激なイラストでしむむ。典•店で化た•化えがありま 
す。 み川 I ぶ化 (21) お I 词が 
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"力置曲拥"， 

"サ五曲扣 "I 
"ナ五» H " • 

"マ玄««", 

"ワ五»«"， 

"力変曲巧 "I 
"おを H ", 

"おを曲巧巧を名扣" 
"名巧"， 

"人名（巧）"， 

"巧名"， 

"かの名が"， 

"な字"， 

"巧諭拥 "I 
"助巧"， 


int getcla 8800 de( s 
STRPTR 8 ； 


int i ； 
for ( i 


=1;i < 31 ； i++ ) { 

[!strc 田 p( a, claaatbl[ 
return (1 )； 

【 0 ); 


I U ス M 日 STRFUNC. C 


リス h9 WC し ASS.C 


#include " 田 ydef.h" 

♦include <atring.h> 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


break ； 
case CUP ： 

if ( m >= 4 ) { 
m -= 4; 

C_UP_S ()； 

} 

break; 
case CDOWN : 

if ( m <= 25 ) { 
m += 4; 

C_DOWN_S {)； 

) 

break ； 

case CRIGHT ： 

if ( m <= 28 化 m X 4 < 3 

m++; 

C_RIGHT( MENULEN )； 

) 

break ； 
case CLEFT : 

if ( m X 4 ) { 
m--; 

C LEFT( MENULEN )； 

} 

break; 
case SPACE : 

b =1 < < ( 田 ♦1); 

if ( flags & b ) { 
flags &= —b; 

1 else ( 

flags 1= b; 

C_COLOR( REVCOLOR )； 

) 

B_PRINT( class[ m ])； 
C_LEFT( MENULEN )； 
C_COLOR( NORMCOLOR )； 
break; 


1 : tinclude "mydef.h. 

2 : ♦include <atring.h> 

3: 参 include <ctype.h> 

4 : #include <jfctype.h> 

5: #include <iocallb.h> 

6: 

7 : void settab( a, n ) 

8: STRPTR s ； 

9 : int n ； 

10： { 

11: n —= Btrlen( s ) ； 

12: 8 = atrohr( a, *¥0 * )； 

13 ； do { 

14 ： *8++ = ； 

15: n -= 8; 

16: } while ( n > 0 )； 

17 ； <8 = »¥0 »； 

18 ： } 

19 ： 

20: void atrtoupper( s ) 

21：STRPTR 8 ； 

22： { 

23: WCHAR o ； 

24 ： 


for ( ； c = *a ； ) { 

if ( iskanji( o ) ) { 
if ( »++a == >¥0， ) 
break; 

B + + ; 

} else { 

*8++ = toupper( c ); 

} 

1 


STRPTR 8trzentohan( dest, sour ) 

STRPTR deat, sour ； 

{ 

STRPTR p = deat ； 

WCHAR c, ch ； 

for ( ; c = 拿 aour++; ) { 

if (lakanji( c ))( 

if ( !lBkanji2 ( tsour )) 

break ； 

c = zentohan( c << 8 | »8our+ 牛 )； 


switch ( ch = o >> 8 
case 0: 

*p++ = c; 
break ； 

case 0xde: /♦ r 

case 0xdf: / 本 r 

♦P++ = o; 

♦p++ = ch; 
break ； 
default : 

拿 P++ = ch; 
*p++ = c ； 
break ； 

} 


J 本 / 

J */ 


*p = •¥0 ， ； 

return ( deat ) : 


♦define 


DHIRAKATA ( 0x100 


STRPTR 8trhantozen( dest, sour, hiratfana ) 

STRPTR deat, sour ； 
boolean hiragana ； 

{ 

STRPTR p = deat, temp = NULL: 

WCHAR c ； 

STRPTR dupatr( STRPTR )； 

if ( sour == deat ) 

temp = aour = dupatr( sour ) : 

for { ； c = 拿 aour++j ) { 

if (lakanji(c ) ) { 

if ( !iakanji2( »sour )) 
break ； 

o = { o << 8 ) + * 曰 our++; 

if ( !hiragana && ( Jl8hira( o ))) 

o = JISSFT( SFTJISI c ) + DHIRAKATA )； 
else if ( hiragana 44 { Ji8kata( c ))) 
c = JISSFT( SFTJISI c ) - DHIRAKATA )； 

»( ( WCHAR * ) p )++ = c ； 

)else if ( o == 0xde ) { 

p += DAKJOB( p ) t slzeof( WCHAR )； 

)else if ( c == 0xdf ) { 

p += HANJOB( p ) * sizeof( WCHAR )； 

} else ( 

*( ( WCHAR < ) p )++ = hantozen( c | hiragana << 


97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 
127 


拿 P 

if 


temp != NULL 
free( temp ); 

irn ( deat ) : 


STRPTR atrzenkata( dest, sour ) 

STRPTR deat, sour ； 

{ 

return( strhantozen( deat, sour, FALSE ))； 


STRPTR strzenhira( dest, aour ) 

STRPTR dest, sour; 

( 

return( 8trhantozen( dest, sour, TRUE ))； 


STRPTR SJIStoASK( dest, sour ) 

STRPTR dest, sour ； 

{ 

STRPTR p = dest ； 

WCHAR c; 

for ( ； 拿 sour; ) { 

switch ( c = »( ( WCHAR * ) aour ) ++ ) 
case 0x8142 ： 


> シャープの広告の右上隅のツタンカーメンの橄の女•の人の顔が幽溢みたいで怖い。 

が々巧学 (24) 大阪府 


= ^ ■1 
n ,« % 

M •巧"，名 ） • 
が 《««一:扣】好を"，名"， 

邮曲助動 ntt 下 n 複キ（名"，巧 M 闽 
五五を五巧•を変满名が《巧な体 
R ", ガタバラサ上おサ単人団»巧巧速 


090123 4567890123456789 01234567890 
990000000000111111111122222222223 
1111111111111111111111111111111 
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128 

129 

130 

131 

132 

133 

134 
136 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 
164 

156 
166 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 
167 


C = 0x98; 

break; 

168 

STRPTR p = dest, temp = NULL ； 



case 0x8175: 

169 

WCHAR c ； 





C = 0x99; 

break ； 

170 

STRPTR dupstr( STRPTR )； 




case 0x8176 : 


171 



dest ) 




C = 0x9a; 

break ； 

172 

if 1 

(Bour == 


)； 


case 0x8141 : 

173 


temp = sour = dupstr( sour 


c = 0x9b ； 

break; 

174 

for 






case 0x8145 ： 

175 

(； o = 

» 80 ur ++； ) { 




c = 0x9c; 

break; 

176 


if ( c < 

0x80 ) 




case 0x815b ： 

177 


c 二 

hantozen( c )； 




c = 0x9d; 

break; 

178 


else if 

((0xal <=c ) 

&& 

(c < = 

0xdf 

case 0x814a 三 

179 


c += 

0x8340 - 0xal : 




c = 0x9e; 

break ； 

180 


else if 

((0xe0 < 三 c ) 

tk 

(c < = 

0xf6 

case 0x814b: 


181 


c + = 

0x8380 - 0xe0; 




c = 0x9f ； 

break; 

182 


else if 

((0x98 <= o ) 

kk 

(c < = 

0x9f 


default ： 

if { c < 0x829f ) 

c = zentohan( c )； 
else if ( c < 0x8340 ) 

c = SFTJIS( c ) - 0x2421 + 0xal ； 
else if ( c < 0x8397 ) 

c = SFTJIS( c ) - 0x2521 + 0xal; 

else 

c = •¥0'; 
break ； 


本 P++ = o; 

) 

♦p = »¥0 »； 

return ( dest )； 


STRPTR ASKtoSJIS( deat, sour ) 

STRPTR deat, sour: 

{ 

static WCHAR spctblC] = { 

0x8142, 0x8175, 0x8176, 0x8141, 
0x8145, 0x815b, 0x814a, 0x814b, 

>； 
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o = apctbll c — 0x98 ] : 

c = 0x81a6: 

WCHAR O p )++ 


»p = »¥0 '； 

if ( temp != NULL 
free( temp )； 

return ( dest ); 


void setlndex( deal, aour, hankaku, hiragana 
STRPTR dest, sour ； 
boolean hankaku, hiragana; 

t 

if ( hankaku ) 

strzentohan( dest, sour ); 
else if ( hiragana ) 

8trzenhira( dest, sour ); 

else 

strcpy( dest, sour ); 
aettab( dest, 8*3 )； 


U ス Ml MISC.C 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 
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33 

34 

35 
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39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 
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52 

53 

54 

55 
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57 


わ nolude 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


"mydef ， h" 
<8tdio.h> 
<stdlib.h> 
<io.h> 
<8tring.h> 
<ctype.h> 

<jfctype.h> 
<do8lib.h> 
<8ignal.h> 
"myerror.h" 


typedef void ♦va_list; 

♦define va start( ap, parmN )¥ 

(ap = ( ( ( va—list *)(&.{ parmN ))) + !>) 
♦define va_endt ap ) 


extern PACKEDSTR progname; 
extern PACKEDSTR usage 田 es; 


void usage() 

{ 

fprintf( stderr, usagemea, progname )； 
exit( EXIT_FAILURE )； 


#ifdef — STDC — 

void fata し error( STRPTR format, ...) 

♦else 

void fata し error( format,) 

STRPTR format ； 
fendif 
{ 

boolean uf ； 
va list argptr; 

int vfprintf( FILE *, STRPTR, va—liat ); 

va_Btart( argptr, format ); 
fprintf( atderr, "Xa : ", progname ); 
if ( uf = ( »format < •¥x20，)) 
format ++； 

vfprintf( atderr, format, argptr ) : 
fputo( *¥n', atderr ) : 
va end( argptr )； 
if-( uf ) 

usage い； 

exit( EXIT_FAILURE )； 


void diskfull(fp ) 

FILE »fp ； 

{ 

int devinfo ； 

devinfo = IOCTRLGT( fileno( fp ))； 
if ( devinfo & (1 << 7 )) 

fata し error ( "出力でさません"）； 

else 
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fata し error( "ディスク[ドライブ Xo; J がいっぱいです"， 
(devinfo t 0xlf ) + •A* ); 


static void (♦cleanupfunc)( void ) = NULL; 

void abt() 

( 

if ( cleanupfunc != NULL ) 

(tcleanupfunc )()； 
fata し error ( "中断しました化"）； 


void breakset( func ) 
void け func )()； 

{ 

cleanupfunc = func ； 
signal(SIGINT, abt ); 


void tmemalloc( size ) 
unsigned int size; 

t 

void *p; 

if ( size == 0 ) 
size = 2; 

else if ( size 41) 

Bize++; 

for ( ； { p = nalloc( size ) ) == NULL; ) { 
if ( sbrk( size + 16 ) == ( void * )-1) 
fata し error( NOMEMMES )； 

) — 
return ( p ); 


void memteat( size ) 
unsigned int size; 

{ 

free( memalloc( size )); 


STRPTR dupstr( str ) 

STRPTR str ； 

{ 

STRPTR p ； 

int Btrlen( STRPTR )； 
p = memalloc( strlen( str ) + 1 )； 
return ( atrcpy( p, str ))； 


STRPTR chkext( fname, ext ) 
STRPTR fname, ext ； 

{ 

STR name; 

atrcpy( name, fna 田 e ); 


►ドクター.パソコンはいま，どこで，何をしてわられるのだろう。 


化化か (17) がが巧； 
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if ( !atrchr( fname, •，•)) 
strcat ( name, ext ); 
return ( dupstr( name )); 


FILE *fchkopen( fnane, mode ) 

STRPTR fname, mode : 

{ 

struct NAMECKBUF nambuf; 

if { NAMECK( fname, tnambuf ) != 0 ) 
fata し error( ILLNAMMES, fname )； 
return ( fopen( fname, mode )); 


void 8etflag( awp ) 
boolean *8wp; 

{ 

if ( (»8wp)++ ) 
usage ( ) ； 


void setvalue( vp, str, min, max ) 
int »vp ； 

STRPTR str ； 
int 田 in, 田 ax; 

{ 

if ( *vp != 0 It ( Cvp = atoi( str ) ) < min || tvp > max 

) 

usage ( ) ； 


void setptr( deat, sour ) 
void け deat, * 80 ur ； 

if ( »deat != NULL ) 
usage ()； 

♦dest = sour ； 


void re8et8tdin() 

{ 

int fnol,fno2 ； 

fno2 = dup( fnol=fileno( stdin ))； 
clo8e( fnol )； 

8tdin->_file = fno2; /»**/ 


FILE tsetstdout( name ) 

STRPTR name ： 

{ 

FILE »fp ； 

if ( name != NULL ) { 

if ( ( fp = fchkopen( name , "w" ) ) == NULL ) 
fatal error( WOPENERRMES, name )； 

} else { " 

fp = atdout ； 


return { fp ); 


38 

39 

40 

41 

42 

43 

44 


move.1 4+4(8p),-(ap) 

pea.l — iob+22 

bar _vfprintf 

lea.1 12(sp),sp 

rts 

.end 


リスト 13 MYDERH 


1 

♦define 

SWITCH DELIMITER 

2 

♦define 

PATH„DELIMITER 


4 

♦define 

NULL 

(( 

void 拿 ）0 

6 

♦define 

EXIT SUCCESS 0 


7 

#define 

EXIT_FAILURE 1 


9 

#define 

SEEK SET 

0 


10 

♦define 

SEEK CUR 

1 


11 

♦define 

SEEK_END 

2 


13 

♦define 

NCHAR 

256 


14 

typedef 

unsigned 

char 

♦STRPTR, 

15 




PACKEDST 反 [1 

16 




STRINCHAR ]； 

18 

typedef 

unsigned 

short 

WCHAR ； 

20 

typedef 

enu 扣 { FALSE, TRUE, ) boole 

21 





22 

♦define 

S 

(STRPTR ) 

23 





24 

♦define 

MACRO 

1 乂 for 

stdio.h ♦/ 


U ス hl4 MISC.H 


1:void «memalloc( unsigned int )； 

2: void memtest( unsigned int )； 

3 ： STRPTR dupatr( STRPTR )； 

4 ： STRPTR chkextt STRPTR, STRPTR )； 

5 ： FILE 本 fchkopen( STRPTR, STRPTR ) : 

6 ： FILE ♦setatdout( STRPTR ); 

7 : void resetstdini void )； 

8: void setflag( boolean * ); 

9 : void aetvaluel int 本 , STRPTR, int, int )； 
10 ： void setptr( void 拿 ♦, void 本 ）； 


リス hl5 STRFUNC.H 


1 : void aettab( STRPTR, int ); 

2: void 8trtoupper( STRPTR ); 

3 : STRPTR 8trhantozen( STRPTR, const STRPTR, boolean )； 

4 : STRPTR strzenhira( STRPTR, const STRPTR ); 

5 ： STRPTR strzenkata( STRPTR, const STRPTR )； 

6 ： STRPTR 8trzentohan( STRPTR, const STRPTR ); 

7 ： STRPTR ASKtoSJIS( STRPTR, const STRPTR ); 

8 ： STRPTR SJIStoASK( STRPTR, const STRPTR ); 

9 ： void setindex( STRPTR, const STRPTR, boolean, boolean ); 


U ス hi 目 MYERROR.H 


1 

リス M 2 VFPRINT.S 

1 : 
2 ： 

• x 过 ef 

• xdef 

vfprintf 

_fprintf 

3 ： 

4 : 
己： 

.xdef 

_printf 

6 ： 

7 ： 

• xref 

_fputc 

8: 

，xref 

fmtout 

9 : 

.xref 

— iob 

10: 

11: 

EOF equ 

-1 

12: 

% 


13 ： 

• text 


14 ； 

拿 


15 ： 

-vfprintf: 


16 ： 

move.1 

(ap 》 +,ret+2 


pea.l 

fputc 


Jar 

— fmtout 


addq ， 1 

#4 ,BP 


movea.1 

(sp),a0 け ILE * 


btat，b 

#6,15(a0) »_IOERR 


beq 

ret 

1. 

moveq•1 

#EOF,d0 

2： 



3 ： 

ret : jmp 

0 

4 : 
日 • 

% 


6: 

_fprintf: 


7 ： 

pea ， 1 

12(8p) 

8: 

田 ove.1 

8+4{8p) ， - (sp) 

9 ： 

move•1 

4+8(ap) ， - (sp) 

10 ： 

bsr 

_vfprintf 

11: 

lea.1 

12<ap),sp 

12 ： 

rts 


13 ： 



14 ： 

本 


15 ： 

_printf: 


16 ： 

pea.l 

8{ap) 



♦ifdef — STDC — 

void fatai—error( const STRPTR, ) : 

♦ else 

void fatai_error( STRPTR ,)； 

#endif 

void diskfulK FILE ♦); 

void usage( void ); 

void breakaet( void (*)()) : 


#define 
♦define 
♦define 
参 define 
♦define 
#define 
♦define 


NOMEMMES 

I しし NAMMES 

ROPENERRMES 

WOPENERRMES 

反巨区 RO 反 MES 

TOPENERRMES 

EOPENERRMES 


け裳用メモリが足りません" 

¥1ファイル名の指をけ引じ巧りがあります 
'指をのファイルけ S 1がみつか0ません" 
'ファイルけ a 1が作巧できません" 
'ファイルがうまく巧み込めません" 

作巧用ファイルが作ホでさません" 

I エラー ファイルけ a 】がけ成できません" 


hl7 DICTOOLS.H 


♦define 
♦define 
が efine 


PAGELEN 1024 

INDEXLEN 8 

MAXINDEX ( 0x1f00 / INDEXLEN ) 


typedef unsigned char PAGEBUFFl PAGELEN し 

INDEXTYPEJ INDEXLEN ]； 


typedef struct { 

INDEXTYPE index[ MAXINDEX 1 ； 
unsigned char flag[ 0xff ]； 
char version ； 

)HEADBUFF ； 

enuro dictypea { 

DFLT, ASK, El, MATU, 

)； 
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述載 4 [り 111 になりました。今凹はアルゴリズムをプロ 
グラミング言語で記述するのに必巧な if や while とぃっ 
たを件による分岐や繰り返しのための制御 W 造し間数， 
手続きの宣言ゎよび呼び出し方を説 I リ]します。もうすで 
にをさんはぃくつかプログラムを書ぃてみられたと思ぃ 
ますので， () う知ってゎられることも多ぃと思ぃます力’:， 
携现するとぃうな味ら兼ねて詳緋!を説 I リ1することにしま 
す。 

制御構造について 

お子計な機の腊おがまだ'茂ぃ頃，プログラマは少しで 
もスピードを」•.げるために，また少なぃメモリを節約し 
てプログラムを1ステッフ。でらをなくするために， h はや 
|'1分だけしかわからなぃような非常•に技巧的なプログラ 
ムを書ぃたのです。をれはもう雄まじぃものがありま 
した。媳たるのではブログラムが"か|'1身の口ードさ 
れてぃるメモリにアク七スして自分 ri 身を满き換えなが 
ら別の嫂理を巧うようなプログラムを姑たこ i ： がありま 
す。 

昔はソフトウェアがハードウユアに強く化がし，小规 
模なシステムしかが在しなかったのでそれでも よかった 
のでしよう。しから化理速废は非常に巡く メモリなどの 
巧源の備段が非拌;になかったのでしかたありませんでし 
た。しかし妃近はハードウユアがん:くなり，計算機の 
化现能如が化段によくなってきてぃます。またソフトウ 
ユアに対する認識がを化して，化理のか法け作に仙 i 做が 
が化するようになってきましむ。こうなってくるし誰 
にでもわかりやすぃプログラムを游くこい;'非常•に;$雙 
になってきます。お近ではプログラムをわかりやすくす 
るための桃造化プログラミングは^はやが識とぃってぃ 
ぃでしよう。 

PASCAL の設計おヴィルトらダイクストラが摇リけし 
た祕造化プログラミングを強くな識してぃたようで， 
PASCAL にはそれを。 r 能とする制御桃造がをまれてぃ 
ます。をれでは，今 W はこの制御憐造に間して説明する 
ことにします。 

制御構造は遮択 i ： 繰り返しの2つにかけることができ 
ます。 PASCAL にはを件分岐は if と case , 繰り返しには 
while と for と repeat 力':用意されてぃます。あと goto も使 
うことができます。をれではそれぞれについて説明して 
いきたいと思います。 


if 

if はもっと多く化われるステートメントで，これを 
化えないホ統き型の言語は存かしないといってむよいほ 
どです。読者の巧さんにも馴染みのがいものでしよう。 
if 文のかたちは次のとわりです。 

if を仲•ぶ化 en 义 

または， 

if を ft-A then 义 else 义 

糸化ぶは論视型の結おを持つ式でなければなりません。 
ですからここには結义•力':真 （ true ) 力 >偽 （ false ) になる 
ぶを姑いてください。たとえば次のよう4：感じです。 

if i > 1 then 

str := ’CLARIS ’； 

あるいは SW というぶ数が論理狸（おれむぶは化卜]巧 
を兄てください）で这:言されているとするしかのよう 
むがきぶをするこ^もできます。 

var SW boolean ; 

SW :二 i > 1; 
if SW then 

str := ’ADDIE ’； 

粗数の文を'尖:巧したいときは begin と end でが!•って次 
のように齊いてください。 

if j = 0 then 
begin 

strl:=’SILKIA ’； 
str2 : 二 ’CHACKN’ 

end ; 

else をがをして糸化ぶが偽だった L きに卜 f う化现を次 
のようじがをすることらできます。 

if rc <> 0 then 

name : 二で hno' 

else 

name :二 ’Takeuchi ’； 

このとき化,なしな {N L ばならないのは， else の ii ; j に’；’（七 
ミコロン）をつけてはならないということです 。 PAS 
CAL では else の前にはセミコロンがくることはありませ 
ん。これは非がに乘裝^ので党えてわいてください。 


usLn 


PASCAL プログラミングへ麵(い 


PASCAL の制 SWiE 瞧および端き 


Fujiki Takeshi/hujii Yosnimi 

藤木健±/藤井義己 


L 


データ構造に続さ，今回はプログラ S ングの基本となる制御構 
造から PASCAL の特長を見ていさましよラ。おまけとして 
逆ポーランドから通常の式への変換法のサンプルプログラムち 
掲載しまず。 
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case 

case は多岐選択に用いられる制御憐造で次のようなか 
たちをしています。 


case す 

of 


定数，を数，•… 

••，定数： 

史 

化数，化数，•…’ 

••，を数. 

文; 

化数，化数， ••••• 

••，定数： 

文 

end 




ただしぶは順を型（整数型，論理型，文字型ぉよび列 
挙型，先月号参照）でなければなりません。 if 文では真か 
偽かで2つにひとつの選択しかできないので，値によっ 
て3つじ1上の異なる化理を斤いたい t き，記述が繁雑に 
なることがあります。たとえばかのような場合に’はどう 
でしようか。 

if num =1 then 
day :二 ’Sun’ 

else if num 二 2 then 
day := ’Mon’ 

else if num 二 6 then 
day : 二 ’Fri’ 

else 

day : 二 ’Sat,; 

これ t 同様の化理を case 义を用いて書くと次のように 
なります。 

case num of 

1 ： day :二 ’Sun ’； 

Z: day := ’Mon ’； 

已： day : 二 ’Pri ’； 

目： day : 二 ’Sat' 

end ； 

ずいぶんすっきりしたでしよう！定数のあとじ書か 
れる义はひとつのステートメントカ ， begin t end で翻ま 
れた複数のステートメントで構成されます。をれで ， case 
义でひ t つの定数に対して複数の化理を行いたい i ： きは 
’••’ （コロン） のあと begin 〜 end で閒まれた複数の ステー 
トメントを書いてください。 

while 

次はお件が満たされているときに繰り返す命令です。 
次のようなかたちをしています。 

while 式 do 义 

式は結果が論理型の値を持たなければなりません。式 
が true である限り指定された文の実斤を繰り返します。 
かの例は i の階乗を求めるものです。 

var i, fact : integer 

read(i )； 

fact : 二 1; 


while 1 > 1 do 
begin 

fact := fact * i; 
i := i-1 

end; 

write(’fact=’ ， fact); 

このプログラムは最初に i 〉 1 を評価してをれが其で 
あったら begin 〜 end で囲まれた部分の化理を巧います。 
をれで i が1より小さな値が読み込まれたときには，1 
を表示することになります。 

repeat 

repeat 义のかた " ib はじ[下のとわりでず。 
repeat 
文； 

文 

until 式 

例を示しましよう。上と同じ階乗を求めるプログラム 
を repeat 〜 until を使って嘗くと次のようになります。 

var i, fact : integer 

read(i); 

repeat 

fact := i ; 
i : 二 i-1; 
until i < 二 0; 
write(’fact 二 ’, fact); 

このプログラムは repeat 〜 until で囲まれた部分を 一 
度実行して，をのあと i く二0を評価しをれが貸になる 
まで化理を繰り返します。をれで i が1より小さな値が 
読み込まれた t きには， i ををのまま表示します。をれ 
から repeat と until のあいだに複数の文が'巧在するとき 
でも begin 〜 end で囲む必要はありません。 

repeat 文の while I ：の違いは while は文を実斤する前に 
式を評価して true であるなら指定された文を実巧します。 
をれにがして repeat は文を実行したあとに式を評価して 
false であるなら再度文を実斤し，式が true になったとき 
ループを抜けます。をれで repeat 文では最低1回は文を 
実巧することになります。 

注意しなければならないのは，式が false のあいだルー 
プするということです。 while は式が true のときループす 
るので反対です。ヴイルトはわをらく条件式が true のと 
きプログラムの続きに進 tJS つまりをの下の化理を斤う 
と統一しようと考えたのでしよう。 C の do 〜 while は true 
のときループするので C じ悄れている方は特に注意して 
ください。 

for 

for 文は回数を指をしてループする制御構造です。かた 
ちは次のとわりです。 

for 制御変数：=初期値 to 最終値 do 义 
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化理の嚴ネ刀に初期値を制御変数にセットして文を実行 
しをのあと制御変数を1ずつ加算しながら文を繰り返 
し実行し制御変'数力;最終値に達するまでループします。 
例を挙げて説明します。 

for i :=1 to 10 do 
a [i] := 0; 

これは，配列 a を初期化する化理をむいます。これを 
実斤すると a [1] から a [10] までが0になります 。 for 
义を使う際に注恣しなければならないのは， for 文で使用 
される制御变数は局所変数でなければならない心いうこ 
とです。局巧変数というのはをのブロックで宣言された 
変数のことです。これは制御変数は一時的に化理を制御 
するために使われるものであるので，非局所変数である 
必要はなく，プログラムの安全性を高めるためには局所 
変数じするべきだとの考えに基づいています。をれで， 

開数や手続きの中で for 文を使用する！：きは必ず使用す 
る関数や-手統きのブロックで制御変数を宣言するように 
してください。次の例を見てください。 

1: pro 呂 ram test (input, output); 

2 : 

3 ： procedure print (n : integer); 

4: var i : integer ； 

5: begin 

6: for i : 二 1 to 10 do 

7: writer *’)； 

8 ： end; 

9: 

10: begin 
11 ： read(n )； 

IZ: print (n) 

13: end, 

(を意：巧番号は説明のためじつけてありますがこ尖際の 
プログラム じはありません） 

このプログラムは変数 i 力 3 ' print という手続きの中で 
宣言されている局所変数であるのでコンパイルするこ^ 
ができます。をれでは，試しに4巧目の変数宣言の巧を 
2斤目に移してコンパイルしてみると，コンパイラにエ 
ラーを指楠されるでしょう。変数 i が手統き print の局所 
変数でなくなったからです。この点 for 文を使うときは制 
御変数の宣言は注意してください。 

をれから for 文で to の代わりに downto を使うこ t もで 
きます。これを使用する I :制御変数を1ずつ減らしなが 
ら化理が進められます。 

for i :=10 downto 1 do 
a [i] •• 二 0; 

とすると最初に a [10] :二〇が実斤され，をれから a 
[9 ]， a [8] の顺で化理がなされます。必要に応じて使い 
分けてください。 

宫が口 

PASCAL でも一応 goto 文を使用するこ！：ができます。 


で^これは乱川する t 非常にわかりじくいプログラムカ;' 
できてしまいます。 PASCAL にはせっかく稱造化プログ 
ラミングを可能 I ：するような制御構造が提供されている 
のですから，できるだけそれらを使ってプログラミング 
するようにしましよう。しかし， goto を使ってむよいと 
思われるケースもあります。をの代表的なケースはエラ 
一が発生したときじただちに化理を終了させなければな. 
らない場合です。それらの罔的のために PASCAL では 
goto 义が擋供されています。次のようなかた'^で記述し 
ます。 

goto ラベル 

ラベルは goto 义が使用される前に定義されていなけ 
ればなりません。例を次に示します。 

label 1000; 

var re : integer; 

if rc く 〉0 then 
goto 1000; 

1000 : 

end. 

この例のようにラベルは定数や變数よりも U 前に定義 
します。ラベルは悠数でなければなりません。このプロ 
グラムで goto 1000が実行される制御が end に移りプ 
ログラムが終了します。このように goto は使則すること 
はできます力す，このような特殊な場合を除いて使則しな 
いほうがよいでしよう。 

関数と手続さ 

プログラムを作る t きには化理を機能ごとに分解し， 
それぞれの機能を間数や手統きにまとめて記述するとプ 
ログラムを现解しやすいものにすることができます。ま 
た何度も使州する化用性のある化理は，をの化理を開数 
や手統きにしてゎく t 何度も同じ記述をする必驳がなく 
なるので便利です。閱数と手続きの違いは， I 划数は値を 
返し手続きは化理を巧う^いう点です。をれで I 划数はぶ 
の中で使用されますが，手続きは义 I :して使用されます。 
をれでは，詳しく説明していくことにしましよう。 

関数 

まず PASCAL では I 划数は使用ずる前に宣言をしてゎく 
必要があります。宣言さえしてしまえば SIN や民 0 UND な 
どの間数と I 巧じように呼び化すことができます。をれで 
は，姑初に宣言の記述法を説明します。間数の力’たもは 
次のゎりです。 

function I 划数名仮パラメータリスト：型お； 

ブ ロック； 

(反パラメータリストは呼び化すときに引数をお定した 
い場合に記述してください。引数を必要としないときは 
普く必要はありません。 

化パラメータリストの部分にはが引数の名前と型を指 
定します。この名前はをの I 划数のブロックで有劾です。 
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型名の部分には脚数の戻り値の型を指をします。ただし 
戻り値の型は単純型またはポインタ型でなければなりま 
せん。配列型やレコード型は闕数の戻り値にできないの 
です。 

ブロックはラベルを載:，型定義，変数當言， I 划数ゎよ 
び手続き定霸 L begin 〜 end で[がまれた义から構成され 
ます。説明のためにひ^つ備単な例を挙げてみましよう。 

1 : program test ( input , output ); 

2： var a : real ; 

3: b , result : integer ; 

4: 

5: function power ( x : real,y : integer ): real ; 

6： var i : integer ; 

7: work : real ; 

8: begin 

9: work :=1; 

10: for i :=1 to y do 

11: work := work * X; 

12: power : =work 

13: end ; 

14: 

15: begin 

16： read ( r , b ); 

17: result : = power ( a , b ); 

18： white(’result = ’. result ) 

19: end . 

(注惹：巧番号は説明の ためにつ けてありますが夹際の 
プログラムに はありません） 

これはべき乘をボめるプログラムです。5巧 • 1:3力’ら I 約 
数 power を宣言していまず。 power は嚴初の引数は奥数 
型で2番目の引数は整数型であり，戾り値は実数型であ 
ることを記述しています。6斤四から13巧旧までが間数 
power のブロックです。 

戻り値は12斤 Izl のように I 划数名に佩を化入することに 
よって七ットします。呼び化す側は17れ11のように書き 
ます。ここでも引数として嚴初の引数に突数型の式を2 
番固の引数には整数型の式を与える必要があります。戻 
り値の型の指定で化なすべきことがひつあります。こ 
の型のす旨をは必ず型の名前を指定してください。つまり 
次のように書くことはできません。 

function test ( i : integer ) : ^ integer ； 

このようなら：きは次のように班ををれ! • U 前にを雜して 
をの型の名前を指をしてください。 

type intp = integer ; 
function test ( i : integer ) : intp ; 

扛し上のように A integer のように書き下ろしたかた 
ちで型を指をできたとすれば この 脚数の戻り備は'《数に 
化入する こ とができないでしよう。すべての変数は この 
関数の戻り備とは異なる製を持つことになるからです 
(先月号の配列型の説明の後半を参照）。 

厳後にもう一点， PASCAL は4穗類の引数を槛供して 


います。値引数，変数引数，手続き引数ぉよび関数引数 
の4つです。. I :の例のプログラムの power の I 数はすべ 
て値引数です。ここでは call by value で化理を巧ってい 
ます。値弓 I 数!:変数引数については7巧号の記事で考え 
方を説明していますので参考にしてください。手統き引 
数と闕数引数とは，引数として脚数や手続きを渡せると 
いうものですがあまり使)りしない機能ですので今回は説 
明を割愛します。 

手続き 

手続きも岡数に非常に似ていて，次のように記述しま 
す。 

function 手統き名化パラメータリスト； 
ブロック； 

哄1数と異なる点は型名がない心いう点だけです。仮パ 
ラメータリストは脚数^同じように必要なければ嘗く必 
要はありません。このように宣言することによって read 
とか write といった手統きと同様に使用することができ 
ます。呼び出すときは write などと同じように，义として 
手続き名！:必要なら引数を書くだけです。 

おまけ 

全機種共通システムの記事を書いてわられるお上さん 
が6巧号に「急幕」として逆ポーランド式からが通の獄 
術式じ変撫するプログラムを蔡集してわられたので，私 
は「再帰を使えば節単にできるじやないかあ」と思って， 
1時間くらいでブログラムを普いて編集部に送ったので 
す。カミ，テスト备ろくにしなかったため完全動作しない 
まったくわ恥ずかしいプログラムだったのです。しかも 
あとから兒てみるし逆ポーランドでなくポーランドぶ 
から普通ぶに変換するものだったのです。 

をれで，今凹ちようど PurePASCAL の速載杉制御聰造 
と関数-手続きだったので巧さんの参考にもなるだろう 
ということで，わまけとして「逆ポーランドぶを普通式 
に変換するプログラム」を紹介します。皆さんが PAS 
CAL を使ってプログラミングするときの参-をにしてい 
ただけば鶴しく思います。逆ポーランド式（後お型）と 
は演算子がぶの後ろにくるもので，次のような感じです。 

普通の算術式 ぶポーランド記法 

1 a 十 b a b + 


2 


U — b ) 本 c 


a b 


c ネ 


3 (a + b ) * ( c - d ) 


a b + c d 


* 


4 


a + b 水 c —d 


a b c ネ + cl — 


この記述法はスタックを攸って演算するきに便利な 
方法です。 数がくる t スタックにプッシュして演算子が 
くる t スタックの上から2つをとって演算して結果-をス 
タックにプッシュすると娘終的な結果がスタックのいち 
ばん上に'倚られます。をれでは，プログラムを コンパイ 
ルして藥巧してみましよう。入力待ち状態になりますの 
で，をこで逆ポーランドぶを入如してみてください。普 
通の算術式が出力されます。 

本本 木 

今回は制御構造と脚数-ホ統きについて説明しました。 
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and ( け .s (11 


• si 1 


•/*)) then be 


Write( • ( •); 

Display け •.right); 
Write(• ) •); 
end else 

Display!t*.right); 
if t <> Nil then 
Dispose(t) 
end；1 Display ) 


い 


スタックと 2 進末を巧ってぶポーランドおをか 6 巧巧のすじを 


り 


procedure Polisn2Norma.L ； 
var 

Tokenstack : array 11.. StackDepth J of TreePtr; I * スタックを 

sp:integer; 
k : KindOfToken ； 
trTreePtr ； 

begin { Polish2Normal) 
sp ;= 0; 
cs : = I •; 
repeat 

new(t )； 

k : = GetToken け A.s); 


( < 卜ークンをスタックじ 


クンがぶ篇予だつ 


t * • k ; = k ; 

if k <> NONE then begin 
sp := sp + 1; 
t • • k : = k ; 

TokenStack(sp) : = t 

end; 

if k = OP then begin I♦ 

末を作る *) 

TokenStack[sp]*.left : = TokenStackIsp-21; 
TokenStackIspl".right : = TokenStack{sp-1]; 
TokenStack(sp-2J : = TokenStack[sp1 ； 
sp ：= sp - 2 

end else if k <> NONE then begin 
TokenStack[sp]*.left : = Nil; 

TokenStack[sp]right : = Nil 

end 

until k = NONE; 

Display(Tokenstack[ap1 )； 

Writeln 

end ； ( Polish2Normal) 

begin { main ) 

Polish2Normal 
end. { main ) 


if Eoln then 

GetToken : = NONE 
else if c = ■.' then 
GetToken ：= NONE 

else if (10* <= c) and (c <= '9 M then begin 
GetToken : = NUMBER ； ( ♦ お ♦) 
repeat 

IdentString[i) : = c; 
i ：= i + 1 ； 

Getc(c) 

until(c < ，〇 ，） or {* 9 * < c) or Eoln; 
UnGetc(c) *(» 統みすぎた文字をホじ廣すい 
end else if {* a' <= c) and (c <= 'z* ) then begin 
GetToken ：= I DENT ； ( ♦ 巧圳子り 
repeat 

IdentString い J : = c ； 


Getc(c) 
until{c .< • 
UnGetc(c) 
end else begin 
case c of 


) or (* z * < c) or Eoin; 

まなみすざた文ずを元に巧ず ♦) 


begin 

GetToken :: 0P ; 
IdentString[ 1 ) : 

end 

end 

end { if J 

end; { GetToken } 


巧化付けの化巧を巧いながら、巧を « 义木か 6 式を生成する 
巧が！巧けはお»于の強さを比おする 


begin { GetToken ) 
for i : =1 to10 do 

IdentStringIi] := ' * ； 
を歹リはいやらしい >♦) 
i :=1; 
repeat 

if not Eoln then 
Getc(c) 

until(c <> ' •) or Eoln; 


い文字列の巧が化 《PASCAL 


スぺースを巧み飛ばす 


三 =========== POLISH.PAS ================== 

(* "Polish.pas' ♦J 
(♦ 

ぶポーランドおホで巧かれたぶをぶ巧のまのが！こ巧す 
July. 1990 by Chack'n 

使い方； 

A>poi ish / * おか */ 

a b + c d - * /* 入力 ♦/ 

(a4-b)»(c-d) /* 出力 ♦/ 

は意： 

巧 B 子は +-*/ の 4« 巧（すべて2巧が»子） 
なぞと巧が名（アルフ T べツト小义字）が使える 
♦ J 

program Polish{input , output )； 
const 

StackDepth =10 け； 
type 

KindOfToken = (IDENT, NUMBER, OP, NONE» ; 

Strl0 = Packed array|1..101of char; 

TreePtr = ^SyntaxTree; 

SyntaxTree = record 

k:KindOfToken ； 
s ： StrlO ； 

left, right : TreePtr 

end ； 
var 

cs : char ； 


卜ークンを切り巧す 

) 

function Gel Token(var IdentString : Str10) : KindOfToken ； 
var 

c : char ； 
i : Integer; 


procedure Getc(var c : char )； 
begin 

if cs = ' I then 
Read{c) 
else begin 
c : = cs : 


cs 


end 

end; 

procedure UnGetc{c : char) 
begin 


文字人力 


(* c を入力へ巧し房す *) 


end ； 


92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

-•)) 

113 ： 

gin 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 


procedure Display(t:TreePtr); 
var 

i : integer; 

procedure Writeldent1s:Strl 曰）； 
var 

i : integer; 
begin 

i ： =1 ； 

While (i <=10) and (sli] <> 
write(s(i1 )； 


end ； 

begin { Display ) 
if (t = Nil) or (t".k <> OP 
(* Noting to do *) 
else if (t*.left*.k = OP) 

and ((t*.left".s[1] 


I) do begin 


巧孤はけの狙巧 *) 

or (t*•left".8(1] 


and ((tA.sI 1 


or (t••s 【 ！ 


'/•)) then be 


Write( ' {'); 

Display(t".left )； 

Write (.) ， ）； 
end else 

Display(t".left )； 
if t = Nil then 

い Noting to do ♦) 
else if t*.k = OP then 
write{.s11)) 

else 

Writeldent(t >.a I; 
if (t = Nil) or (t*.k <> OP) then 
(♦ Noting to do り 
else if け "*. right'.k = OP) い 

and ((t*•right 、 •s[1]=•+I 


巧她はけの巧巧 ♦) 

or (t" . rifihf'. s [ I ] 


このように PASCAL は構造化されたプログラムを書く 
ことが可能です。 goto を多用してどこからどこに制御が 
移るかわからないようなスパゲティプログラムは書かな 
いでください。小手先の高速化はプログラムをわかりに 
く くすることが多いので，をれはやらずにコンパイラ巧 

リス M 


術が進んできた載近では高速化はコンパイラがやってく 
れるもの t 考えたほうがよいでしよう。をの点 Pure 
PASCAL は最適化をやっていないので，まだまだな蕾で 
きる点がたくさん巧されていますが……。をれではホ片 
またわをいしましよう。 
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BASIC 


X - BASIC プロクラミンク調理実習 ( M ) 


ファイルの魔術師 fseek 関数 

Izumi □曰 isuke 泉大か 

ファイル処理の基本を理解したところで，ちょっとした高度な巧をご紹介しましょラ。 
一般にランダムアクセスが必要なデータベースなどを X - BASIC で作るにはある命 
ちを使ラことが必要になりまず。それが今回登場ずる fseek 関数といラわけでず。 


I ) データの並び（シーケン 
ス）をそのまま先頭から順に 
読み込んで処理するのでこの 
名前がついています。 


化巧はファイル化理の入巧編としてファイルを扱 
ううえでの約-ホごとを||しじ、にゎをりしました。ファ 
イルを扱うには，まずファイルをオープンし，デー 
夕の読み游きを巧ったあし嚴後にファイルをク 
ローズする必嬰があること。ファイルの才ープンが 
にはデータを読み化すのか，書き込むのか，読み馨 
きするの力 >，ファイルを新しく作るのかを指定する 
必要があること。このネ旨をのことをモードというこ 
と。思い出していただけました力>。 

ファイルを扱ううえで火切なものとしてファイル 
巧号がありました。これはファイルと1が1にが応 
する整数で， データの やり取りやファイルを クロー 
ズする L きにファイル名の化わりに使いまず。つま 
り，いったんファイルを才ープンすれば，じ I 後の作 
業はすべてファイル番号で巧うということです。 

化巧はこれらのことを踏まえ，ファイル化理の実 
例として Y 巨了のスコアファイル関連の嫂理を巧い 
ました。トップ10の中から同一人物を||川除する，2 
つの yetsco ファイルを1つにまとめる，という2つ 
の化现を巧うプログラムです。どうでしよう力>。な 
に立っていますか？ 


シーケンシャルかランダムか 


では基雌がて頁を踏まえ，ちょっと高推なファイル 
化理に挑戦してみましょう。といっても命令として 
は化 W 紹介したファイル化现間係の命令にたった1 
つ命令が加わるだけです。 

化け 傲った BAS にのプログラムファイルのこと 
をちょっと思い化してください。ファイルの先頭に 
はお A に統く巧恭号があり，をの後ろに命令が埋め 
込んでありました。このようにファイルの先頭から 
データを顺み読み込んでいってかめてな睐のある 
データを取り化せるというのは， BASIC のプログラ 
ムファイルに I おったことではありません。ワープロ 
の义:當ファイルむをうですし，エディタで作成する 
C のプログラムなどもをうです。このような性格を 
もったフアイルをシーケン シャルフ アイルといいま. 


すり。 

ファイルにはらうひとつ，ランダムアク七スファ 
イルと呼ばれる^のがあります。 シーケンシャル 
ファイルがファイルの先頭から順次データを化现し 
ていくファイルなのにがし，こちらはファイル巧の 
任意の場所から直接データを取り，中,すことができる 
I :いう特徴を梓っています。 

例を挙げて説明しましよう。ここにな日午前6が 
の気温を1年間にわたって記録したファイルがある 
とします。8巧18 U の気温を調べようとするし 
シーケンシャル ファイルでは229個のデータを説み 
込んでは捨て，やっと230個目に目が]のデータに到 
達するという手順になります。ところが ランダムァ 
ク七 スフ ァイルでは，230個目のデータを一発で取 
り出すことができるのです。したがって ランダム ア 
ク七 スフ ァイルはデータべー ス のように巧意のデー 
夕を読み出す必要のあるファイルに向いているとい 
えるでしよう。 

さて，われらが X - BASIC では， ファイルをランダ 
ム アクセスファイルと して 才ープン するなどという 
必要はなくなっています。基本的に X - BASIC では 
シーケンシャルファイルし 力，扱わないのです。げ 
げっ！それじゃ ァ 229側の データを 読み捨てる と 
いう思いっきり時閒のかかりをうな作業が必嬰なの 
か…… と 思われるかもしれませんね。でも大丈夫。 
落胆することはありません。 X - BASIC は確かに 
シーケンシャルファイルし か扱いません 力す， をの化 
わり データを 読み書きする位置を自分で好きなよう 
に変えることができるのです。 

参位置ズラしの術 

データを読み化す，書き込 t / 位髓を自化に変えら 
れる？ をう，これが冒頭でほのめかした，追加さ 
れる1つの関数の役割でず。 

Welcome to X-BAS に 

というデータの入ったファイルがあるとしましよ 
う。 A 印はこれから データ を読みけ I ,をうとする位;巧 
を表しています。ここから1文字ずつデータを読み 


76 Oh ! X 1990.9. 









出していくし 

Welcome to X-BASIC 


Welcome to X - BAS に 


Welcome to X - BAS に 

I ： 読み化す位蘆が1つひとつ後ろへズレていき， 
W ， e ， 1とデータカ;'読み出されていきます。さてここ 
でデータを読み化す位置を3つ後ろへズラしてみる 
こ！：にしましよう。 

Welcome to X - BAS に 


ですね。ここで1义字読み化すと，読みか,されるの 
は e になります。間の 「 com 」 を飛ばしてしまったわ 
けですね。 

上では1义字ずつデータを読み出しましたが，考 
え方は数値を収めたフアイルでも同じです。 



fp = fopen ( " test ", " c ") 

ですね。これで test というフアイルカ;'作れました。わ 
次は fseek 関数です。1つだけズラしてみることにし 


2123 25 27 29 28 26 24 22…… 

と每日の気温を保存したファイルがあるとします。 
ここで数値データを1つ読み込めば21度という気 
溫を読み出すことができます。 

2123 25 27 29 28 26 24 22…… 

読み出す位蘭をここから4つ後ろへズラせば，次 
は28度という気温が読み出せます。ファイルの先頭 
を1巧1 E 1 だとすると，をこから数値データ230個 
分後ろへ読み化す位證を動かせば，229個のデータ 
を無駄読みしなくても一発で8巧18 II の気溫を取 
ウ出せる I :いう寸法です。 

• fseek 関数の使い方 

位誤ズラしは fseek 関数によって行います。この閒 
数は， 

fseek ( iileNo , ofiset , mode ) 
fileNo :ファイル番号 
offset :オフセット • 

mode :モード 

という書式で使います。オフ七ットというのはいく 
つズラすかというズラし量の設をで，整数で指定し 
ます。モードも同じく整数で，現在の読み出し位蹟 
からズラすのなら1を指定します。モードはこのは 
かにファイルの 先頭から （ mode 二 0) L ファイルの 
最後から （mode = 2) を指をできるようになってい 
ます。 

では早速実験してみましょう。まずはデータを入 
れるフアイルの作成です。 test という名前にしま 
しよラ D 
int fp 


ましょろ 0 

fseek ( fp , 1,1 ) 

です。さて，どうなりましたか？ 「指定の位;巧に 

はシークできません」とエラーになったはずです。 
test フアイルはいま作成したばかりですから，デ_ 
夕はなにも入っていません。データのないところへ 
信:髓をズラをうとしたためにエラーになったわけで 
す。 

データカ;'ないといっているのですから，作ってや 
るこ！：にしましよう。 
int data ( 100 ) 
fwrite ( data , 100, fp ) 
fseek ( fp , 0, 0 ) 

整数型の配列を川なし（この畔点ですベて0が入っ 
た配列が作成される），をのデータを100個保巧して 
みました。最後に fseek 関数でフアイルの先頭に位お 
を動かします。今腹はどうです力，？ fseeki 划数は 
ちゃん！:動いたでしょう力’。 

fseeki - 划数が動作したことを帷かめたなら，次にど 
こまで位置を動かせるから試してみましょう。これ 
は， 

int i 

for i 二0 to 999 : fseek ( fp , i , 0) : next 
とやってみればすぐにわかります。データのないと 
ころへは動かせないのですから， エラー になったら 
i を表示してみればどこまで動いたのかすぐにわか 
るはずです。実巧してみましょう。 

ピツ！ エラーが 発生したときの i の値は， ナン 
卜401になっています。100個しかデータはないは 
ずなのじ400個のデータかだけ動かせたということ 
です。なぜ’こんなことになるのでしよう力，。 
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/* 身巧を登お 
い化里を登な 


/♦ データの個於を保持 

/* デー タペースが巧 
/* 50人みの讲城を作が 


皆さんは X - BAS にが扱うをれぞれのデータが何 
バイトで表現されているかがわかり，データ書き込 
み読み出し位置を自由に設定できるようにもなりま 
した。もういろいろな型のデータをファイル内に混 
をさせることも働単にできるはずです。備単な例と 
して，あるクラスの生徒名と身長•体重を収めむデー 
タファイルを作ってみましよう。 

名前は漢字5文字分 （10 バイト）^あれば十分で 
しよう力す，余がを見て20バイト使うこにしましよ 
う。み畏は mm 単位の整数，体重は g が•位の整数で表 
現すれば十分をうです。それぞれ整数ですから4 + 
4二8バイト。名前と併せると1人かのデータは28 
バイトで表現されることになります。これがクラス 
の人数か続くわけですね。イメージは図1のように 
なります。 

では備単なプログラムを使って実際にデータを 
ファイルに書き込んでみることにしましよう。リス 
卜1です。 

プログラムの先頭でデータ入力に必嬰な変数と 


リスト！ 簡単なデータべースその1 


10 str pnameI 20 ] 

20 int height 
30 int weight 
40 dim buf(0) 

50 char dummy(28) 

60 /♦ 

70 int dataNo 
80 int fp 
90 int i 

100 /本 

110 fp = fopen( "data", "c") 

120 for i=l to 50 

130 fwrite( dummy, 28, fp ) 

140 next 

150 fseek( fp, 0, 0 I 
160 /* 

170 for dataNo = 0 to 49 
180 pname = "•’ 

190 input " 名前 ； "，pname 

200 if pname = "" then break 
210 input " 身ち ； "iheight 

220 input " 化重 ： ".weight 

230 print 

240 /本 

250 fwrites{ pname, fp ) 

260 fseek( fp, 28 末 dataNo + 20, 0 ) 

270 buf(0) = height 

280 fwrite( buf, I, fp ) 

290 buf(0) = weight 
300 fwrite{ buf,1,fp ) 

320 next 

330 fclose( fp ) 


2) 〇〜 255 は 16 進 2 巧で表 
現できる数（ I バイト：〇〇|| 
〜 FFh )。 コンピユータではこ 
れを基本単位としてデータの 
サイズを表現することがかな 
くありません。 


図1身長-体重表の表現 


•データの「大きさ」 

これは，「整数は1文字かのデータでは表現できな 
い」というのが原因です。 X - BASIC では义字型を 
char 型として表現します。 char 型は〇〜25日の範脚 
の整数で， ASCII コードの範囲と同じです 2 )。ところ 
が整数 ( int 型）は±21億という大きな数を扱えるの 
です。 t ても1バイトかのデータで表現できる大き 
さではありません。 X - BASIC で扱うデータ型！：を 
の大きさは， 

char :1バイト □ 

int : 4バィト □□□□ 

float : 8バィト □□□□□□□□ 

となっています。後ろの四角はデータの火きさを桃 
党的に表現してみたものです。 

上の例で test ファイルに収めた整数 ( int ) 100備分 
は，义ぞ ( char ) でいうなら4倍の400佩|分，すな 
わち400バイトに相当するのです。をして fseek 闕数 
は，オフセットをバイト単位で指定するようになっ 
ています。 test ファイル内で読み化し位置をズラし 

I 合計2日バイト I 



ていったとき，401までダラしたところでエラーが 
出たのはこういうわけだったのです。 

•好きな位置でデータを読み書きしてみる 
整数を収めるには4バイト必要だということがわ 
かってしまえば，自分の女すきな位置からデータを読 
み化すのは簡単でしよう。 
fseek ( fp , 0, 0 ) 

でファイルの化頭に読み書き位置を戻したら， 
for i 二0 to 99 : data ( i ) 二 i : next 
fwrite ( data , 100, fp ) 

を実斤してください。配列の i 番目に i I :いう数値 
を入れ， test ファイルに収めたわけです。これを使っ 
て自分の好きな位置からデータを取り化してみるこ 
とにします。 

数値データを取り化すには数値型の配列を使い 
fread 間数を使うしか手がありませんから，まずデー 
夕取り化し用に配列を1つ用意します。 
int a (0) 

test ファイルの50番目に入っているデータを巧义り 
化してみましよう。これは， 
fseek ( fp , 50 * 4, 0 ) 
frea か a , 1 , ip ) 

で OK ですね。整数型は1データ4バイトだという 
こ t を忘れないでください。 
print a (0) 

として取り化したデータを表示してみるし見事50 
が表示されます。 


違う型のデータを混在 


ら 

か 

てる 
し— す 
じ 了 
す ルカ巧 
戻 ヌ人ら 
じ ををな 
が 前前ル 
ホち名ヌ 

ネ 本ネ本 
/ / / / 
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位 

るる 
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穿登 
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前技 
名身 
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配作 
用ス 
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名身化デデ 
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データ書き込みに必要な変数を宣言しています。 40 
斤で宣言している buf 配列は数値データをファイル 
に 宵き込む のに 使用。50斤の dummy 配列は厳かに 
デ—タ ベ—スをかるのに 使用して います。 

プログラムは夹に単純で，愚初はデータベース 
ファイルの作成力，ら始まります。オープンしたら 
dummy 配列を50间譜き込んで，50人分のデータを 
入れる領域の備悚:です。データがない C ころへは読 
み普き悅黃を移動できないことを思い化してくださ 
し、。領域の確保が終わったら fseek 間数で読み書き位 
我をファイルの先頭に戻してわきます aXhl 50 巧 
まで)。 

170巧から始まる for 〜 next ループが夹際に デー 
夕齋き込みを巧う部分です。名前，身お，化重を input 
命令で読み込み，250巧降で顺にファイルに醬き 
込んでいきます。ここで注意すべきことは ， f writes 
閒数で义字列をファイルに書き込んだ場合には，游 
き込んだ义ぞ数だけしか読み書き位廣が移動しない 
ということです。 pname 配列が20义をうパリ恵して 
あるからといって20义字書き込む‘というわけでは 
ありません 3 )。をこで260斤で fseek 闕数を使い，名 
前を書きをんだあとかの身長を曹き込む位罵まで読 
み書き位茜を動かす必嬰があるのです。 

for 〜 next はこの作業を名前がヌルになる力 • 50名 
のデータを人 jj し終わるまで繰り返します。つまり， 
名前を入力するときにがにリターンキーだけを押せ 
ば入九途中で終了できるようになっています。この 
ためには190巧を忘れてはいけません。 input 命令で 
備を入力せずに単-にリターンキーを押すと，前に 
入っていた備がをのまま更新されずに採用されてし 
まいます。前阿が「泉大介」だったなら，単にリ 
夕ーンキーを狎しただけでは pname 配列には"泉 

火介"が七ットされたままになってしまうのです。 


データを修正でまるように 


このままではデータを入力することしかできませ 
んから，せめてデータの表示•修正くらいはできる 
ように变更してみることにしましよう。いろいろな 
方法が考えられるでしよう力 S ， ここでは娘ら倘単な 
メニュー選が式を採用することにします。 

プログラムの動作を考えてわくことにしましよう 
か。プログラムを类巧すると， 

1) データ 表示 

2) データ 修ぶ 

3) データ 入力 

4) 終了 

というメニューが蝴师に表示されることにします。 
1) 〜 3) のメニューを避キ尺すると，さらにデータホ号 


を尋ねてくるようにしましよう。長いデータを常に 
最初力，ら表示というのではうんざりですし，データ 
修正では修正したいデータをお定しなければなりま 
せんからね。 データ人う) おをした幕号のデータの、 
降•に顺に追加していけるというのがいいでしよう。 

このデータを号を元に f see k して回的の場所へ説 
み書き位嚴を移動しリスト1のようなプログラム 
でデータの入力.修正を斤うようにすればいいで 
しよう。表示 Mnl 様です。では奠際のプログラムを 
見ていただくことにしましよう力>。リスト2です。 

まず儀かにやるべきこ t は，すでに data という 
ファイルがが化しているかどうかを調べることで 
ず。 fopen 関数はファイルががかしなければファイ 
ル飛号の代わりに一1を返しますから， 
fp = fopen ( " data ", " rw ") 

とし返されたかが一1かどうかを調べれば OK のよ 
うに思われます。しかしをうは問屋が削しません。 
ダイレクトモードで， 

print fopen ( " abcde ", " rw ") 

などと巧をしないファイルをオープンしてみればす 
ぐ'にわかります。エラーになりますね。ではどうす 
るかというと， 
error off 

という便利な命令が II !恣されているのです。これは 
X - BASIC の外部 I 划数 （ fopen もをのひとつ）でェ 
ラーが発生しても，をれを無化するという命令です。 
この命令はプログラム中でしか使用できません。リ 
スト2ではこれを使って data ファイルがな•かする 
力，どうかをチェックしています。まず data ファイル 
を" rw " モードで才ープンしてみて fp が一1でなけれ 
ばをれでよし。一1ならばなめて " c " モードでオー 
プンするいうわけです。ファイルがが在するかど 
うかを調べるを石として党えてぉいてください。 

data ファイルが 才ープンできたらメニューを表 
示しメニュー選択に入ります。をして押されたキー 
によって switch で化现を分ける。しこんな調子で 
プログラムは邀んでいきます。をれどれの化理が終 
わったら再びメニューに佩ってくるようにしたいの 
で，メニュー遽が•嫂理分岐部分は while 〜 endwhile 
のループにしてわくのがいいでしよう。をうをう， 
データ巧号を入づ J してもらうのを忘れてはいけませ 
ん。 switch で化理を分ける前に入ブ J してもらうこと 
にしましよう。 

データ追加はリスト1の焼き i なしで， addDa ねと 
いう閱数名で定義しました。變吏点は，データを1 
つだけ入力す るの力、ファイ ルの娘後まで (maxData 
という変数にを義している）入力を続けるのかを判 
をするようにしたこ^です。修ぶ用のプログラムを 
備単に作成するための変がでず。これはすく、'でしよ 


3) 一見不便なようですが， 
テキストフアイルを扱うとき 
じはこうでないと都合が悪い 
のです。 I 斤書き込むたびじ 
256文字み のスぺ ースがとら 
れてしまう……なんて審態を 
巧像してみてくピ さし、。 
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うから，残るはデータ表示 L 修正だけですね。 

データの表示は dispData という関数が受け持っ 
ています。入力されたデータ番号におって読み書き 
位置を移動し，名前，身長，体重の 3 つの データを 
1 斤に表示していきます。この作業を maxData まで 
繰り返せばファイル表示は終了ですね。表示された 
データを確認できるよう，最後にキー入力を待って 
から終わることにしています。データの1巧•表示は 
lineData という|划数に任せました。これも修ぶ処理 
を備単に済ませたかったからです。 

を の lineData 闕数は フ アイルに データ を書き込む、 
とき^まったく逆のことを斤っているだけです。ま 


お願い 

この X - BAS にプログラミング調巧実習も14回を重ね， 
基本的な題がもほぼ一巡した感があります。もちろん， 
毎月毎月新しい読者が Oh ! X を読み始めるわけですから， 
—通りやればいいというものでもありませんね。やは 
りテーマを变えながらも必要なことは何度でも繰り返 
しやっていかなければならないでしよう。 

さて，今後への参考のためじも'巧きしたいのですが， 

1 ) コマンドモードをイ吏えますか？ 

2) BAS にでなじかをやってみたいと思いますか？ 
というわけで，アンケートハガキのすみっこにでも 

1 )Y 2) N とか記入してもらえると助かります。もち 
ろんご意見も大歓迎。よろしくお願いします。 


度なファイル嫂理というこ！:で，異なったデータ型 


4) csriin は X - BAS にが用意し 
ているシステ厶変数で，現在 
カーソルのある Y 座標を保持 


ず名前を読み化し続いて身長と体重をいったん buf 
配列に説み化してわいて表示します。久々に， 


している変数です。表示する locate 30, csriin 


X 座標どけを変更したいとい 
うときじ「力ーソル斤は今の 
まま」と指示するのに使いま 
す。をに「 X 座標は今のまま」 
で Y 座標ピけ変えたいという 
場合じは， pos という システム 
変数を使い， 

locate pos , 10 
のようじします。 


というのが登場していますね 4 1。 

最後に残ったデータの修正ですが， addData 関数 
を変更しデータの 1 巧表示を lineData 脚数に巧せた 
わかげで，実に備単になりました。 editData 閱数が 
修正を受け持つ閱数なのですが，目的のデータじ読 
み書き位廣を移動し， lineData 闕数でまずはデータ 


内容を表示，続いて addDa ね脚数を呼び化して新し 
いデータを入： / J してもらうだけです。 

これでプログラムは完成です。今回はちょっと高 

リス h 2 簡単なデータべースその2 


をひとつのファイルに収める方法じついて紹介しま 
した。プログラムはこれぞサンプルいわんばかり 
の 倘灘 さですが，基本は理解いただけたのではない 
かし野います。自分が作ろうとするデータべースの 
構造にあわせてプログラムを変更してみてください。 

来巧は今回のランダムアク七スファイルを踏ま 
え，さらにこれまでの知識を総動員してカード型 
データべ—スに 挑戦して みたい と思います。ランダ 
ムファイルは今回紹介したとわりです。あ L はいか 
に使いやすくする力，，見栄えをよくするか t いった 
t ころでしよう力，。 X-BASIC 総集編として楽しみ 
にしてください。 


10 

str 

pname 【 201 

/* 

巧前入ね用 

560 

for x=dataNo to maxData-1 

20 

int 

height 

/♦ 

身ち入わ用 

570 

lineDatat i ) 

/♦ 

30 

int 

weight 

/♦ 

化を入力巧 

580 

ky 二 i 打 key$(0) 


40 

int 

maxData = 50 

/♦ 

巧大データな 

590 

if asc( ky )= 

27 then break /本 

50 

dim 

buf(G) 

/♦ 

デー々还巧用が列 

600 

next 


60 

char 

dummy(28) 

/♦ 

デ—タ ベース 巧ホ巧ダ ミー 

610 

print 


70 

/♦ 




620 

input "キーホ巧し 

てください "•ky 

80 

int 

dataKo 

/♦ 

データの f 田巧を巧巧 

630 

endfunc 


90 

int 

Tp 



640 

/ 本 


100 

/♦ 




650 

func iineData( no ) 



データ表示 
民 SC が巧！されを 


110 

int i 


120 

str ky 


130 

/ 本 


140 

error off 


150 

fp = f open(" 

data'* , "rw 

160 

error on 


170 

if fp =—1 then { 

180 

fp = fopen( 

"dat-a", 

190 

for i=l to 

maxData 

200 

fwrite( dummy, 28, 

210 

next 


220 

fseek( fp, 

0, 0 ) 

230 

} 


240 

wnile 1 


250 

els 


260 

print ••1) 

データを示 

270 

print "2) 

データ巧正 

280 

print "3) 

データ入力 


/* エラーで止まらない 
I 、 data は巧 •• こあるか？ 

/♦ なければ（乍が 

/♦ 5け人かのががを巧が 

/♦ ホ郎じ環ず 


メニ 


あを 


290 print "4 
300 print 
310 print "> 
320 ky=inkey$ 
330 


if inatrC 1, "1234", ky 》乙 0 then continue 
340 if ky="4" then break 
350 input " データ器哥 ：" ，dataNo 
360 cia 
370 switch ky 

380 case "1" 

390 dispDataf > 

400 break 

410 case "2" 

420 editData!) 

430 break 

440 case "3" 

450 addData( 0 ) 

460 break 


I 、巧が 
/* 巧がミ閒 ilI 


/♦ データ巧号人力 


470 endswitch 
480 endwhile 
490 fclose( fp ) 

500 end 

己 10 /本 

520 func dispDatai) 

530 int i 

540 3tr ky 

550 fseek( fp, dataNo<28, 


660 

print using "##9" ;no, " : ; 

/♦ 

データ巧 

670 

freads( pname, fp ) 



680 

print pname; 

/» 

名前ま示 

690 

fseek( fp, 28 ♦ 打 0 + 20, 0 ) 



700 

freed( buf,1,fp ) 



710 

locate 30, csriin 



720 

print buf(0), 

/» 

をちま示 

730 

fread( buf,1,fp ) 



740 

print buf(0) 

/♦ 

巧まを示 


750 endfunc 
760 /» 

770 func editData() 

780 fseek( fp, dataNo 拿 28, 0 


790 

lineData( dataNo ) 

/♦ 

800 

addData ( 1 ) 

/» 

810 

endfunc 


820 

バ 


830 

func addData( mode ) 


840 

int i 


850 

int endNum 


860 

/ 拿 


870 

if ( mode ) then { 

/* 

880 

endNum 二 dataNo 


890 

)else { 


900 

endNum = maxData—1 


910 

) 


920 

/♦ 


930 

fseek( fp, dataNo*28, 0 ) 

/本 

940 

for i = dataNo to endNum 


950 

pname = ••け 

/* 

960 

print "#";i 


970 

input •• 名前： "， pname 

/♦ 

980 

if pname = "" then break 

/♦ 

990 

input •• 身巧： "， height 


1000 

input " ® " .weight 


1010 

print 


1020 

/本 


1030 

fwritea( pname, fp ) 

/» 

1040 

faeek( fp, 28 拿 i 十 20, 0 ) 

/» 

1050 

buf(0) = height 


1060 

fwrite( buf,1,fp ) 

/♦ 

1070 

buf(0) = weight 


1080 

fwrite{ buf,1,fp ) 

/♦ 

1090 

next 


1100 

endfunc 





mode が 1 なら 1 つ だけ入力 


雀を么みな置まで巧曲 

ちがそヌルじしてから 

ち的を入力 
ヌルならが了する 


ち的を曾なする 
身巧を宜なする位■まで诗 B 


身巧を登が 
巧追をほ W 
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Chapter」UH 



直接グラフィックを操作ずる 

Munata Toshiyuki ネオ田がま 


皆さんのなかにも，あまり DOS コールや IOCS コールのお世話に 


なつてばかりではどラを7シン語フ□ブラ S ンブらし<ないと欲あ 


Assembler 


不満 I こなつている人はいませんか。今回は X 68000 のブラフイツク画 


面を直接アクセスしてブ□ブラムを害いてみることじしましよラ。 


今回は"単純なわりにはマシン語している気分に 
なれる グラフィック’’ というテーマで押してみる。 
IOCS コールの グラフィック 描画機能については前 
回軽く触れてある。ノ タラ メータを与えるだけで図形 
が描けるという手軽さ.節便さが最大の長所だった。 
反面，機能や速度の点ではかな，り不満があるという 
のも事実だ。点や線，円といった最低限の図形しか 
描けないし，描画モードの指定もできないし U ， 描画 
速度もそれほど速いというわけではない 2 >0もうひ 
とつ，実はこれがいちばん大きな不満なのだが，"ど 
うらマシン語っぽくなくて"面白〈ない。をういう 
わけで， IOCS を使わずに直接 グラフィック 画面に書 
き込みを行うこ^を考えてみたい。 

グラフィック画面とアドレス計算 

グラフィック画面の実体はグラフィック VRAM 
( Video 氏 AM ) と力， G - RAM と呼ばれるメモリで 
あり，このメモリにデータを書き込む'ことがグラフ 
ィック描画にあたる。 

X 68000 の G - RAM は（正しい用語かどうかは知ら 
ないが俗にいう）垂直型で，メモリの1ワード！:画 
面上の1ドットが1対1に対応している。点を巧ち 
たければ，座標から算出した G - 民 AM 上のアドレス 
に パレット コードを書き込めばよい。 XI や PC -9801 
など多くのマシンで採用されている（いわゆる）水 
平型の G - 民 AM では単色の闽面（プレーン）を複数重 
ね合わせてカラー表示を行う構成なので1つ点を巧 
つのにもプレーンの枚数みの普き込み操作を行わな 
ければならず，しから横方向の8ドットが1バイト 
にまとまっているためにビット単位の操作も必要に 
なる 3 1。扱いやすさ I ：いう点では断が垂直型に軍配 
が上がるし，速度の点でも多くの場合，垂直型のは 
うが有利だ。 

図！〜3に X 68000 の G - RAM の構造を示す。図1 
は画面モード別のメモリマッス図2は実画面の大 
きさ別の画面巧のワードの並び 方， 図3は色 モー 
ド別のワード内部の構成を表している。特徴的なの 
は，画面 モードに 応じて G - 民 AM のメモリ空間上の 


大きさが変化する点だろう。最大では2 M バイトも 
の空間を占める。 X 68000 の G - RAM は 512 K バイトし 
かないから つじつま が合わないように見える 力す， 図 
3を見てもらえればわかるようじ，256色や16色モー 
ドの L きは各ワードの上位ビットが空いてゎり，結 
局，256色モードのときは， 

8ビット X 512ドット X 512ドット X 2画面 
二 512 K バイト 
16をモードの t きは， 

4ビット X 512 ドット X 512 ドット X 4画面 
二 512 K バイト 
もしくは， 

4ビット X 1024ドット X 1024ドット X 1画面 
二 512 K バイト 

となり，メモリの総容蘆が変わるわけではない。 

では，図を参考に ，X y 座標から G - RAM 上のアド 
レスを計算する手順•プログラムを考えてみよう。 
図2を見れば G - 民 AM 上のメモリは画面の左から右 
方向にアドレスが増加し，右端で巧り返して下のラ 
インの左端につながるという形をしていることがわ 
かる。隣り合ったドットのアドレスの差は，左右が 
2バイト，上下が2048 (実風面1024 X 1024ドットモ 
ード時）または1024 (512 X 512 ドットモード時）バ 
イトという定数になる。これから，ぺージ0の座標 
( x ， y ) じ対応する G - RAM 上のアドレスは，実画面 
1024 X 1024 ドットモードのとき， 

COOOOOh + xX 2+ yx 2048 
实画面日 12 X 512 ドットモードのとき， 

COOOOOh + xX 2+ yXl 024 
と導ける。ページ 1 U 降の場合は先頭アドレスが 
8000 Oh バイトずつずれるだけだから，をの分を足し 
てやればよい。 

リスト1が実際にアドレスを計算するプログラム 
の一例だ。座標からのアドレス計算はこれからもた 
びたび使うことが予想されるので，独立したサブル 
—チンとし，閱連サブノレーチンと一'緒にモジュール 
イヒしてある。 

サブノレー チン gramadr は do . w に x 座標， dl.w に 
y 座標を入れて呼び出すし対応する G - 民 AM 上の 


I ) X 68000 が初めてのマシ 
ンだという人のためじ補足す 
ると，多くの ホビー マシンの 
BAS にではグラフィック描画 
時に描画を行う点のをと描画 
をのあいだでさまざまな演算 
を巧う機能が用意されている。 
XOR (68000 風じいえば EOR ) 
モードなどは画面上に一時的 
じネをを描くときなんかじまま 
したものピ。 


2) IOCS コール 呼び出しそ 
のものの才ーバ ーへッ ド 【こ 加 
えて，画面モードに応じた処 
理の振りみけや，が格なエラ 
—チェック，速度よりもメモ 
リ効率を巧先したコーディン 
グなどが速度を巧とす要因に 
なっている。ミ凡巧性を追ボす 
ると，どうしたって速度が银 
牲じなるものだ。 


3) をじいえば，単をじ限れ 
ば I バイトの♦き込みで横8 
ドットみが描けるのが水平型 
の利点といえる。 
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4) 2048 は 2 の 11 まだから 11 

ビット左シフトすれば2048倍 
したことじなる。同がじ1024 
は2の10乗だから1024倍する 
じは10ビット左シフトすれば 

よし、。 


図1 

ち面面 512 X 512 ドット 
65536を1面面 

COOOOOm - 

ぺージ0 

C 8000011- 


ち面面 512 X 512 ドット 
けを4巧面 
C 00000,, - 

ぺージ0 

C 80000,1 - 

ぺージ I 

DOOOOOh - 

ページ2 

D 80000„ - 

ぺージ 3 

£ 00000,1 - 


アドレスを aO に返す。 y 座標を 2048 倍または 1024 倍 
する部分は遅い乗算命令ではなく，ビットシフトに 
置き換えて計算している"。何ビットシフトするか 
はイン クルー ドしているリスト 2 の GCONST.H 巧 
で定数定義してある。 

また，描画ページの先頭アドレスは 31 行下の描 
画ぺージを設をするサブルーチン apage 内であらか 
じめ計算し，ワーク gbase にしまってわくようにし 
た。これじより，わずかながらアドレス計算時の手 
間を省くこ t ができる。 apage の中ではヮーク gbase 
にア ドレスを 七ットする/ごけではなく， IOCS コール 
APAGE を呼び出すことで IOCS 側にも描画ページ 
の変更があったことをなえている。これは， gramadr 
(を利用してこれから作るサブルーチン） UOCS の 
グラフィック描画機能を混在して使用する場合に備 
えてのことだ。 

あと，特殊な用途じらが応できるように，ヮーク 
gbase の値を直ネ妄変更する setgbase, gbase の値を読 
み出ず getgbase の 2 つのサブルーチンを用意して 
ある。 gbase を. xdef で外部を義せずにサブルーチン 
を通して間梭的に読み書きするようにしたのじは， 
モジュールの独立性を巧つ意味がある。 

• 1024/512 ドットモードへの対応 

ここで，リスト 1 は実画面が 1024 ドットの場合と 
512 ドットの場合のどちらでも使えるようじなって 
わり，を件つきアセンブルを利用して，アセンブル 
時にどちらのモード用かを決定する。 
as gramadr 

のようにふつうじアセンブルする！： 512 ドットモー 
図2 


ド用，をして， 

as gramadr /d 1024 

t いうように "_1024’’ というシンボルを定義すると 
1024 ドットモード用のオブジュクトが生成される。 
サブルーチンの中でモードに応じて化理を振り分け 
ることらできたし，なんならモード別に2つのサブル 
—チンを用意してもよかったのだが，1本のプログ 
ラムで複数の画面モードを使うことはあまりないだ 
ろうという判断から，こういう形式じしてみた。 

条件つきアセンブルされる部かはリスト1本体で 
はなく，インクルードしているリスト2中に隠れて 
いる。 1 〜 14 巧がお件つきでアセンブルされる部分 
だ。 

.ifdef _1024 

(シンボル 1024 が定義されているときア七ン 
ブルされる部分） 

.else 

(シンボル 1024 がを義されていないときアセ 
ンブルされる部か） 

.endif 

のようなおになっているのがわかると思う。 

AS. X じはこのほかにも数式の比較結果に応じて 
を件つきアセンブルする機能が用意されている。こ 
っちのほうはマクロ定義の中で， 

macro DOS2 callno, size 

， dc. w call 打 0 

.if size>8 

lea.1 size (sp), sp 

.else 


ち面面 512 X 512 ドット 
256を 2 画面 

COOOOOh 

C 80000 1, 

DOOOOOh 


巧画面 1024 X 1024 ドット 
けを1画面 

COOOOOm - 

ぺージ0 


E 00000,, 


ぺージ0 


ぺージ I 


巧画面 512 X 512 ドット 



+ 0 

+ 2 

+ 4 

+ 0 

(0,0) 

(1.0) 

(2. 0) 

+ 1024 

(0. 1) 

(1.1) 

(2. 1) 

+ 2048 

(0,2) 

(1.2) 

(2, 2) 

夕画面 1024 X 1024 

ドット 

+ 0 

+ 2 

+ 4 

+ 0 

(0,0) 

(1.0) 

(2,0) 

+ 2048 

(0. 1) 

(い） 

(2，1) 

+ 4096 

(0,2) 

(1，2) 

(2.2) 


+ 1020 +1022 


(510,0) 

(511，0) 

(510. 1) 

(511. 1) 

(510. 2) 

(511.2) 

+ 2044 

+ 2046 

(1022. 0) 

(1023,0) 

(1022. 1) 

(1023, 1) 

(1022, 2) 

(1023, 2) 


図3 


bit 15 


65536をモード 


バレットコード （0 〜 65535) 


256をモード 


けをモード 


bit 15 


bit 15 


bit ? 
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♦ 実西面 512x512 

GNPIXEL equ 512 

QNBYTE equ 1024 


QNPIXEL equ 
GNBYTE equ 
GSFTCTR equ 
.else 


.ifdef t_1024 

* 巧且面 1024 x]024 


リス K2 GCONST.H 


12 

QSFTCTR 

equ 

10 








13 











14 

.endif 










15 











16 

GPAGE0 

equ 

$c 00000 

、ヴう 

フイ 

ック 

ぺ一 

ジ〇ホ肺フ 

' K 1 

/ス 

17 

GPAGEl 

equ 

$c 80000 

拿 




1 



18 

GPAGE2 

equ 

$dOeOO0 

% 




2 



19 

GPAQE3 

equ 

$d 80000 

本 




3 



20 











21 

GPALET 

equ 

Se 82000 

、巧う 

フイ 

ヴク 

パレ 

ットホ巧マ 

' K 1 

/ス 


U ス S3 PSETTEST. S 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


if size >0 

. dc . w 

-WRITE 

addq . 1 # size , sp 

lea.l 

lO ( sp)，sp 

endif 



endif 

. dc.w 

EXIT 


.endm 

のような感じで使ったりする。このマクロは DOS コ 
ールの呼び化しとその後のスタックポインタ補正を 


のように展刚されることになる。 

•画面への♦き込み 

座標から G - RAM 上のアドレスを得るサブルーチ 


まとめたらので， 


ンが用意できたと 

.ころで，グラフイック晒师に点を 

DOS 2 _ 

PUTCHAR , 2 

1個ネ了ってみる。 

これはもう備単で， 

DOS 2 _ 

- WRITE , 10 

move . W 

X 座標 ， do 

DOS 2 _ 

EXIT ， 0 

move , w 

y 座標 ， dl 

のようじ利用する 

ことを想をしている。条件つきア 

bsr 

gramadr 

七ンブルを利用して，第2パラメータの値に応じて 

move , w 

パレットコード， ( aO ) 


addq . l 力， lea . l の適切なほうを使ってスタックポイン 
夕を補正する。上の例はそれぞれ， 

. dc.w _PUTCHA 民 
addq . 1 #2, sp 


とやれば，望みの位證に望みの色で点が打てるはず 
だ。ただし， X 68000 の G - RAM はユーザーモードか 
らはアクセスできないスーパーバイザ空間に劑りつ 
けられているから，あらかじめスー ノタ ー ノ 《 ィ ザモー 


IJ ス hi G 円 AM ADR. S 


^号そをえる 


1 

.include iocaoall.aac 

29 

拿 

dl ， W = 

ぺージ番号け〜 3) 


2 

.include fconst.h 

30 

拿 




3 

t 



31 

apage : 




4 

• xdef 

granadr 


32 


IOCS 

APAGE 

» IOCS にわぺージ番 

5 

，xdef 

setgbaBe 


33 


tat ，1 

d0 

» エラー？ 

6 

.xdef 

getgbase 


34 


bmi 

apageO 

» そうなら w 了 

7 

.xdef 

apage 


35 





8 

章 



36 


move.w 

dl,de 

*d0 . ぺージ番号 

9 

.text 



37 


Isl.w 

«19-16,d0 

»ページ番号を 

10 

t 



38 


swap.w 

d0 

« が 0000 巧ずる 

11 

掌 (d0•W|dl»w) 一 &0 古 adr 


39 


clr.w 

d0 

t 

12 

% 



40 


addi ， 1 

«GPAQE0,de 

*0-RAM のホなアドレ 

13 

2ra 田 adr: 



41 


move.1 

d0,gbaae 

* ワークじし*う 

14 

movem.1 

d0-d2 , - (sp) 


42 





15 




43 


moveq.1 

.#0,d0 (APAGE の 

* り儀去な»ずる 

16 

ext.1 

d0 

* 庄額をワードから 

44 

apageO ： 

rta 



17 

ext.1 

dl 

* ロングワードにしておく 

45 

韋 




18 




46 

aetgbase : 



19 

历 oveq.1 

♦GSFTCTR,d2 

けを 2048 * たは 1024 なする 

47 


田 ove.1 

a0,gbase 


20 

asl.1 

d2,dl 

* 

48 


rts 



21 

add.1 

dO.dl 

* それに X の 2 治をちす 

49 

韋 




22 

add.l 

d0,dl 

* 

50 

getgbase : 



23 

add.l 

gba8e(pc),dl 

W-RAM のホ历アドレスそ巧す 

61 


田 ove.1 

gbase(pc),aO 


24 

movea.1 

dl,a0 

»結果は a0 で巧す 

52 


rts 



25 




53 





26 

田 ove 田 . 1 

(sp) >,(10-(12 


54 

gbase : 

• dc.l 

OPAOEe 


27 

rts 



55 





28 

% 



56 


.end 




'スそちす 



， include 

■ dosralL•mac 

22 

DOS 

.SUPER 


， incj ude 

‘ iocsca11.mar 

23 

move ,1 

do,(sp) 


， include 

‘ const.h 

24 



♦ 



25 

move.w 

*256 ,do 


.xref 

gramadr 

26 

move.w 

dO.dl 

$ 



27 

bsr 

gramadr 

CSCREEN 


equ 16 

28 

move■w 

*655: け ， （aO 

DOS.G1.3 


equ 5 

29 



$ 



30 

DOS 

_SUPER 


.text 


31 

addq.l 

»4 , sp 


.even 


32 



拿 



33 

DOS 

_EXIT 

ent : 



34 

$ 



lea，1 

myspl pc) ,sp tap をか期化ずる 

35 

.stack 





36 

， even 



move.w 

cDOS_G し 3,- (sp) • 巧面を 51 2x51 2,6 5 536 色：;： 

37 

> 



move.w 

が SCREEN ,♦ かな化 

38 

mystack : 



DOS 

_CONCTRL ♦ 

39 

.ds. i 

256 


addq ， 1 

夕 4 • sp 本 

40 

mysp: 





41 

.end 

ent 


巧巧 

巧なの ssp を巧巧 

x = 256 
y=256 

G-RAM 上のアドレスを巧る 
おを打つ 


ューザ. 
巧了 


. な W 


—(sp I 


ザモ 


技 

回 

卜 

フ 

なシ 
ルなの 
セトめ 
クイた 
ビバる 
ののす 
ンン洽 

ィィ仇 
ララが 
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.include 
.xref Kfill 


CSCREEN 

DOS_OL3 


.text 
.even 


equ 

equ 


doscal し mac 


16 

5 


lea. 1 


clr.1 
DOS 
move. 


mysp(pc),sp 


move.w *DOS_GL3,-(sp) 
move.w #CSCREEN,-(8p) 
DOS _CONCTRL 

addq.l ¢4 ,sp 
move.w do,-(sp) 


-(sp) 
_SUPER 
dO,(sp) 


♦sp をか期化する 


I 酉面を 5 12x5 12,65536 をに 
> 巧稱化 


♦現なの晒面モードを诗巧 

♦ スーパーバイザモ *7 ドへ 
* 巧巧 

* 現在の 3BP を待巧 


pea. 1 
bar 

addq.l 

DOS 

addq.l 


.data 
.even 


gpara: .dc.w 


myatack : 
roysp : 


.ds.1 
.end 


gpara(pc) 
gfill 
♦ 4 , sp 

_SUPER 
#4 , sp 

_EXIT 


♦ パラメータをけなし « « 
♦ boxfill 夷行 


• ザーモ • 




.stack 
.even 


100,100,200,200, 12345 


256 

ent 


gconst.h 


X0 

Y0 

XI 

Y1 

COL 


gfill ： 

PARPTR 


xdef 

xref 


text 

even 


= 8 
link 
movem.1 

move.1 
movem.V 


gfill 

gramadr 


a6 I *0 

d0-d4/a0-al ，- (sp > 


PARPTR(a6),al 
(al),d0-d3 


»al = パラメータまけなし巧 « 
♦d0-d3 じ巧巧をお 0 出す 


24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 


リスト己 FIL し TEST.S 


100 pi : 

movea ，1 

a0 

• al 


mov 色 ， W 

d2 

,d4 

loop2 : 

move.w 

d0 

,(al)+ 


dbra 

d4 

, 10 op2 


adda ， w 

dl 

,a0 


dbra 

d3 

, 100 pi 


done : movem. 1 {sp) +, dO-d4/a0- 

unlk a6 
rts 

.end 


sub.w d0,d2 
sub.w dl,d3 


move .u COL(al),d0 
move.w ♦0NBYTE,dl 


*G-RAM 上のアドレスそ巧る 

,d2= W ドットな - 1 
拿 d3= おドットお -1 

td0= /<レットコード 

*(1 ぃライン阳のアドレスの g 
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ドに移斤してわく必要がある。 

リスト3に俯単なサンプルを示してわこう。当が， 
リスト1とリンクして使う。65536色モードにし，画 
面中央の座標（256,256)に白で1個点を打つプログ 
ラムだ。サブルーチン gramadr 力 f 正常じ動作してい 
るかどうかテストするつもりで走らせてみてもらい 
たい。 


ボックスを塗! Q 漬ず関数 


点が巧てるところまで谱ぎ着けた。理屈のうえで 
は点が巧てればどんな図形でも揃けるわけで，あと 
は描画アルゴリズムだけの間趣心なる。試しに X - 
BASIC のグラフィック描画関数のなかで （ pset を除 
けば）いちばん簡単に実現できをうな fill 閱数の相当 
品を作ってみることじする。 

fill の描画アルゴリダムじついては説明するまで 
もないだろう。 X 座標を1ずつ巧やしながら順に点 
を巧っていく化理を長方形の高さの回数だけ繰り返 
せばよい。プログラムは単純な2重ループじなる。 
あっという間にできたプログラムがリスト4。サブ 
ルーチンだけなので，動作試験にはリスト5のテス 
卜用プログラムを利用してほしい。 

パラメータは適当なメモリ領域に左上の座標，を 
下の座標，パレットコードの順に格納し （ IOCS コー 
ル FILL と同じ形式），をの先頭アドレスをスタック 
に職んで疵すようじ作ってある。なわ，リスト4も 


GCONST . H をインクルードしているので，ア七ン 
ブル時にシンボル_1024が定義されていれば実画面 
1024ドットモード用，定義されていなければ512ドッ 
トモード用のオブジュクトが得られる。今巧の la 下 
のプログラムもこのノリだ。 

順に見ていこう。23行まででパラメータが， 
do =左上 X 座標 
dl =左上 y 座標 
d 2 =右下 X 座標 
d 3 =右下 y 座標 

に取り出される。25巧でサブルーチン gramadr を呼 
び出し，左上の座標じが応する G - RAM 上のアドレ 
スを得る。をれから，27〜28斤で描くべき長方形の 
横のドット数 一1 と縦のドット数 一1 をポめ，これをル 
ープカウンタの初期値とする。30斤で描画色のパレ 
ットコードを dO . w じ，32斤で水平ライン間の G - 
民 AM 上でのアドレスの差を dl . w じ入れているのは, 
アルゴリズム上必須というわけではなく，単に，ル 
ープの内側で頻繁に使う定数をレジスタに入れてゎ 
いて余分なメモリアク七スをしなくても済むようじ 
しているにすぎない。 

34斤の[降が G - RAM に曹き这みを斤う2重ループ 
だ。36〜37斤の内側のループで水平方おじ線分を引 
き，をれを34〜39行の外側のループで必要なライン 
数分繰り返している。水平方向の線分を引く部分で 
は，ポストインクリメントつきアドレスレジスタ間 
接アドレッシングが綺踞に決まっている。 


リスト 4 G 円 L し S 


19 ^ 34567890123456789012 
1111111111222 


ス 


10 


占 


巧 


をすィす 
ホ巧ラ巧 
卜〇の〇 
ッ！*下 St 
ド回ぐ回 
*2 51^すが 


アツ 
成ド 

だ横 












さて，リスト4の gfill にはエラーチェックを一切 
していないため，不当なパラメータをみえて呼び出 
すと誤動作したり，バスェラーが発生したりする可 
能性がある。エラーチユックをして実行速度が遅く 
なるよりは，呼び出し側でつねに正しいパラメータ 
を渡すよう気をつける，！：いうのらひとつの考え力’ 
ただが，ここでは真面目にエラーチェックする方向 
で話を進める。どのような場合に誤動作するかをチ 
ェックし，個別に対応を考えてみよう。 

1) 座標が実画面の範囲外のとき 

これは G - RAM の範囲外の変なメモリへ書き込み 
を行ってしまうことを意味するから，運がよくてバ 
スエラ ー， 運が惡ければ暴走する危険がある。対応 
策としては，四隅のどれかひとつでも画面の外だっ 


示す。座標は do 〜 d 3 に入れて渡し，クリッピングさ 
れた座標がやはり do 〜 d 3 に返る。ただし，指定され 
た長方形が完全に実画面の外にある場合は ccr の N 
ビットを立てて戻ることにしてある。クリッピング 
の化理上， d 0^ d 2, dl 含 d 3 でないと不都合があるの 
で，どさくさにまぎれ，座標の大小関係の乱れも直している。 
なゎ， X - BASIC や IOCS 同様に座標の範幽を一 
32768〜32767 した関係で，座標の比較はすべて符 
号つき16ビット数として行っている。 

では，リスト5にクリッピングサブルーチンの呼 
び出しをつけ加えてゎく。23巧の後ろに， 
bsr gfclip 

bmi done 

の 2 行を柿入し，また，5斤のあたりにでも， 


たら描画を一切行わないという消極的な案し画面 
外にはみ出す部かを切り取って，画面内に収まる範 
囲のみを描画する（クリッピングする）という案力 5 ' 
ある。後者が望ましいのはいうまでらない。 

2) 座標の大小間イ系が狂っている t き 

リスト4では X - BASIC でいう， 
fill (511，511，0，0，15) 

のような指定がされることを考庵していない。座標 
をデータレジスタに取り出した時点で， d 0^ d 2, 
dl 含 d 3 であるものと思い込み，27〜28巧で d 2- d 0, 
d 3- dl をボめループカウンタのネ刀期値している。 
d 0〉 d 2 や dl > d 3 の場合は減算の結果が負となりル 
ープカウンタとしては使いものにならないのに，を 
のチェックを怠っているのだ。つねに正しい動作を 
保証するためじはあらかじめ座標の大小関係を調べ， 
必要なら do と d 2, dlt d 3 の値を交換してゎかなけれ 
ばならない。ちなみじ，レジスタ内容のな換じは exg 
という命令が使える。 

リスト6にが ill 用のクリツピングサブルーチンを 


.xrer gfciip 

の1斤をつけ加える。修正が済んだら，ふたたび動 
作試験をしてみよう。いろいろと座標値を変えてう 
まくクリッピングできているかどうか確かめてほし 

い 0 

I サブルーチンの高速化 

サンプルとはいえせっかく作ったサブルーチンだ。 

速度と機能の両面で少しパワーアップしてやろう。 

順序が逆のような気がしないでもない力';，まず高速 
化から考える。アルゴリダムに阀してはらともと単 
純なのでこれの J :. 最適化しようがない。コーディン 
グのうえでも多少は改菩の余地があるにせよ，劇的 
な効果は望めをうもないように見える。ループの中 
身で無駄なこ i ： をしているようならをれをループの 
外に追い化すことでかなりの速度向上が望めるのだ 
が，リスト4では，最も内側のループは， 

10 op 2: move , w dO , は 1) + 

リスト己 GFCLIP. S 


1 


.include 

gconst.h 

38 


cmp.w 

MINX(a0),d2 

»d2<MINX ? 

2 

拿 



39 


bit 

outofscrn 

» そろなら 画面 か 

3 


.xdef 

gfclip 

40 


cmp.w 

MINY(a0),d3 

»d3<MINY ? 

4 

拿 


41 


bit 

outofscrn 

* そうなら 画 ® か 

5 

MINMAX 

macro 

datal,data2 

42 





6 


local 

skip 

43 


cmp.w 

MINX(a0),d0 

»d0<MINX ? 

7 


cmp. w 

datal,data2 «datal > data2 ならば 

44 


bge 

skipl 

* 

8 


bge 

skip » 

45 


move.w 

MINX(a0),d0 

* そうなら巧正 

9 


exg.1 

datal,data2 * datal と data2 去交换 する 

46 





10 

skip ： 



47 

skipl : 

cmp.w 

MINY(a0),dl 

♦dl<MINY ? 

11 

end 田 


48 


bge 

skip2 

« 

12 

% 



49 


move.w 

MINY(a0),dl 

* そうなら巧正 

13 


.offset 

0 

50 





14 

♦ 



51 

8kip2 : 

cmp.w 

MAXX(a0),d2 

»d2>MAXX ? 

15 

MINX ： 

.da. w 

1 

52 


ble 

akip3 

本 

16 

MINY ： 

.da. w 

1 

53 


move .w 

MAXX(a0),d2 

» そうなら 巧 正 

17 

MAXX ： 

.ds. w 

1 

54 





18 

MAXY ： 

.ds. w 

1 

55 

8kip3 : 

cmp.w 

MAXY(a0),d3 

♦ d3>MAXY ? 

19 

« 



56 


ble 

skip4 

拿 

20 


.text 


57 


扣 ov 色 .w 

MAXY{a0),d3 

» そうなら 巧 正 

21 


， even 


58 





22 

拿 



59 

akip4 : 

cmp.w 

dO . 过 0 

♦ N = 0 

23 

拿 

(d0.w,d 】 

L.w)-(d2.w,d3.w )^ 

60 

done : 

moves•1 

(8p)+,a0 


24 

t 

cliprect で巧をされた巧お «« でクリツビングする 

61 


rts 



25 

t 



62 

t 




26 

gfclip ： 



63 

outofscrn : 



27 


move. 1 

a0,-(ap) 

011 prect(pc),a0 

64 


moveq ， 1 

#-l,d0 

»N=1 

28 


lea ，1 

65 


bra 

done 


29 




66 

1 ： 




30 


MINMAX 

d0,d2 *d0<d2 を巧泣する 

67 

cliprect : 



31 


MINMAX 

dl,d3 »dl<d3 を巧技する 

68 


， dc ， w 

0 

» クリッピング 傾城 

32 




69 


， dc ， w 

0 

本 

33 


cmp.w 

MAXX(a0) ,d0 ♦d0>MAXX? 

70 


，过 c，w 

GNPIXEL-l 

« 

34 


bgt 

outofscrn < そうなら H 面か 

71 


， dc，w 

QNPIXEL-1 

拿 

35 


cmp • w 

MAXY(a0),dl «dl>MAXY ? 

72 


. 色打 d 



36 

37 


bgt 

outofscrn < そうなら 西 面か 

73 
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dbra d 4, 10 op 2 

というこれの Ji は簡単にならないおだし，外側のル 
ープにも極端な無駄は見られない。唯一，34斤の 
moves は工夫次第では省略できをうだ。力 S ， 36〜37 
斤のループで食う時間に比べればお送命令1 つの 実 
斤が間なんか気にならない程度ということで無視し 
てしまわう。 

どうも真正直にやっていたのではをれほど速くな 
りをうもないので，ループを展開するという姑息な 
手段を検討してみる。話を備単にするために描く長 
方形の横幅はつねに512ドットというこ t にし，最も 
内側のループだけを取り出して考える。いまこのル 
—プは， 


move , w 

#512- l , d 4 

loop : move , w 

do , ( aO ) + 

dbra 

d 4 ,loop 

という形になっているわけだ力す，これを， 

move . W 

#512/2- l , d 4 

loop : move , w 

do , ( aO ) + 

move , w 

dO , ( aO ) + 

dbra 

d 4 ,loop 

のように書き直せば，ル. 

—プ回数，すなわち dbra の 

実行回数を半分に減らすこ t ができる。さらには， 

move . W 

#512/4- l , d 4 

loop ; move , w 

do , ( aO ) + 

move , w 

do , ( aO ) + 

move , w 

do , ( aO ) + 

move , w 

do , ( aO ) + 

dbra 

d 4 ,loop 


とすれば dbra の実行回数は4分の1だ。この話をず 


—っと突き詰めていくと， 
move . W do , ( aO ) + 

を512個並べてしまえば， dbra を一度実行しなく 
て'済む'計算になる。ループを展關するとはこういう 
ことだ。 

当がのようにプログラムはだらだらと長くなる。 
move . W dO , ( aO ) + 

は1ワード命令だから，512個並べれば1024バイト 
だ。これは通常のサブルーチンの大きさと比べれば 
決して小さな数字ではない。しかし X 68000 のメイ 
ンメモリは最低でも 1 M バイト，最近では2 M バイ 
卜が省たり前だから，割合としては無巧できる範囲 
だといえる。 ループの 展開は芸もなければおもない， 
テクニック と呼ぶのも恥ずかしい，姑息の[外のなに 
ものでもない手段ではある力す，をれによってもたら 
される速度の向上は大きな魅力だ。あくまでも最後の 
切りネしとして，多少は照れたフリをしながら使うよう 
にしたい。 

さて，512ドットの水平線を描くだけならこれで話 
は終わりだが，現実には線分の長さは可変だ。この 
あたりへの対応も考えてわこう。いま，512個の， 
move . W do , は 0) + 

と rts からなる hline というサブルーチンカすあったと 
しよう。 aO が G - 民 AM 内を指しているとするし 
hline の先頭から実行すれば do . W で指をされたパレ 
ットコードで512ドットの水平線が描けるわけだ。を 
れでは， hline の先頭の move を1個飛ばして，をの直後 
から実斤すればどうなるだろう力、。をう，511ドット 
の線分が描ける。2個飛ばせば510ドットだ。さっき 
も触れたように， 


リスト I で使った ext 命令はも'そらく初登巧 
だとあう。この命令はデータレジスタを強制的 
じ符号化巧する命令だ。符号化張とは，符号つ 
き数の正をと化ををえずじ，より長いビット長 
のデータに望!おすること ピっ た。 
ext . W dO 

は， dO . b をな号抱巧して16ビットデータじし， 
dO . w じ結果を巧す。2の補数表現での巧号拖巧 
は，上位ビットを元のデータの符号ビットで満 
たすのと等価だから，上の命令は， 
tst.b dO 
bmi minus 

andi . w #$00 ff , dO 
bra next 

minus : ori . w #$ ff 00, dO 
next : 〜 

を I 命令で実行してしまうものと思ってもよい 
だろう。また， 
ext . I dO 

は加 . w を32ビットじな号化巧して dO . I じ結果を 


巧す。このかけは， 


tst . w 

dO 

bmi 

minus 

andi . 1 

#$0000 ffff , dO 

bra 

next 

minus : ori . 1 

#$ ffff 0000, dO 


今月登場した郎邮日の命ち 

next : 〜 

じ等しい。 

つづいて，リスト4などの movem じついても 
触れておこう。 movem は， 

movem . I dO — d 7/ a 0 — a 5, — ( sp ) 

movem . I ( sp ) 牛 ， dO — d 7/ a 0 — a 5 
のようじしてレジスタをまとめてスタックじ待 
避-巧巧するのに巧う命令としてもうわ馴染み 
だが， リスト4の23斤では， 
movem . W ( a I ), dO — d 3 
と，いつもとはかし違う使い方をしている。 

まず.ソースオペランドは見な1れた" （ sp ) + " 
ではなく" （ al )" で，しかもオペランドサイズは 
ワードだ。この命令の意巧するところは " al で 
ポイントされるメモリた L 降の4ワード， （ aO ), 
2 ( a 0).4( aO ) , 6 ( aO ) を順に dO 〜 d 3 【こお送する" 
だ。 "（ al )+" のようにポストインクリメントを 
ネ旨定しているわけではないので，命令実行をも 
al の化はを化しない。逆に， 
movem.w d 0- d 3, ( al ) 

なら，31け《巧の連続するメモリじづ0.\«/〜づ3.がが 
杞送される。フラグのを化を無視すれば，これ 
は， 

move.W dO , ( al ) 
move , w dl , 2( al ) 


move , w d 2,4( al ) 
move , w d 3, 6( al ) 

と同じ働きをする （ move では ccr がを化するが， 
movem では ccr は巧わらない)。 

ここで，もう一巧 
movem . w ( al ), d 0- d 3 
じ腊を戻す。これまでの捉からすると，この命 
令は， 

move . W け I ) , dO 
move , w 2( al),dl 
move , w 4( al ), d 2 
move , w 6( al ), d 3 

と同じお作をするようじ思えるだろう。が，実 
はちょっと違う。正しくはこのあとじ， 


ext . 1 

dO 

ext . 1 

dl 

ext . 1 

d 2 

ext . 1 

d 3 


をつけ加えなければならない。結果は無を件に 
ロングワードじな号化巧され，データレジスタ 
の全32ビットがが巧をまけるのだ。これはお外 
を点なので巧をつけるようじしたい。 

あと，リスト6などでは巧号つき数の比較時 
じ使う bra のバリエーシヨンがちらほら顔を出 
している。 r アセンブラ マニュアル J などで化き 
をチェックしてわいてほしい。 
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(al) 

GNPIXEL, J30C0 
dl,a0 
d3,loop 


loop ： jmp 
odd: move.w 

next: adda.w 

dbra 

done : movem.l 

unlk 
rta 


(al) 
d0,(a0) 
dl,a0 
d3,loop 

♦ 

(apj + ,d0-d3/a0-a2 
a6 


(sp) + ,d0-d3/a0-al 
a6 


U ス h7 GFI し L2.S 


gramadr 

♦ 左上の G-RAM 上のア 

ドレスを巧る 

d0,d2 

*d2^m ピクセルな -1 


dl,d3 

»d3= W ビクセルな -1 


COL(al),d0 

♦ d0= パレ . ッ トコード 


next(pc),al 

* 本文を照 


#1,d2 

♦ 


d2,d2 

拿 


d2.al 

拿 


#GNBYTE,dl 

«dl ：： ライン阳のアド 

レスのさ 

d2.dl 

♦ 



hline: 

.dcb.w GNPIXEL/2,J20cO *move.l dO,(aO い 
hlinee : Jmp (a2) 

.end 


move. 
swap •’ 


COL(al),d0 
d0 

COLUl),d0 


lea.l next(pc),a2 

addq.w #1,d2 
bclr.l »0.d2 
beq skip 

lea.l odd(pc),a2 

skip: lea.l hiineO(pc),a 

auba.w d2,al 

move.w #GNBYTE,dl 
add.w d2 ,d2 

sub.w d2,dl 


d0 = バレツトコード 

a2= 巧 0 アドレス 
權ドット《は巧 » か？ 

巧技ドットのとを 

dl= ライン间のアドレスの g 


2 

» 




3 


* xdef 



4 


• xref 

gramadr 


5 


• xref 

gfelip 


6 

« 




7 


.offset 

0 


8 

♦ 




9 

X0 ： 

• ds. w 

1 


10 

Y0 ： 

• ds.w 

1 


11 

XI ： 

.da. w 

1 


12 

Y1 ： 

.ds.w 

1 


13 

COL ： 

.ds.w 

1 


14 

♦ 




15 


.text 



16 


• even 



17 

拿 




18 

gfill: 




19 

PARPTR 

= 8 



20 


link 

a6,»0 


21 


movem.l 

d0-d3/aO-a2,- 

(sp J 

22 





23 


move.1 

PARPTR(a6).al 

♦al= バラメータ巧けホし 

24 


movem.w 

(al),d0-d3 

け 0-d3 じ库 « を巧.り出す 

25 





26 


bar 

felip 

♦クリッピング ずる 

27 


bmi 

done 

*N=1 ならが H の必 * なし 

28 





29 


bar 

gramadr 

ィを上の G-RAM 上のアドレ 

30 





31 


sub. w 

d0,d2 

け 2= « ビクセル な- 1 

32 


8ub, w 

dl,d3 

♦d3=« ビクセル K-1 



•inclu 幻 e gconst.h 

28 



< 


29 


bar 


•xdef gfill 

30 




•xref gramadr 

31 


sub ， w 


.xref gfelip 

32 


sub* w 

< 


33 




.offset 0 

34 


move.w 

< 


35 



X0: 

•ds.w 1 

36 


lea.1 

Y0 ： 

.ds.w 1 

37 


addq ， w 

XI: 

•ds.w 1 

38 


add. w 

Y1 : 

.ds.w 1 

39 


suba.w 

COL ： 

， ds * w 1 

40 



« 


41 


move.w 


， text 

42 


8ub, w 


， even 

43 



拿 


44 

loop ： 

jmp 

gfill: 


45 


.dcb.w 

PARPTR 

= 8 

46 

next : 

adda.w 


link a6,#0 

47 


dbra 


movem.l d0-d3/aO-al ， - （ ap) 

48 





49 

done : 

moven.. 


move.l PARPTR (a6) ,al tal= バラ メータ巧け « し巧货 

50 


unlk 


movem.w (al),d0-d3 td0-d3 じ连 _ 極 ^ 巧り化す 

51 


rta 



52 




bar gfelip ♦クリッピング ずる 

53 


.end 


done 


U ス h 曰 GFILL3.S 


move, w do , (aO) + 

は 1 ワードの命令だから， 

hline + (512 - 描きたいドット数） x 2 
のアドレスから実行すれば，希望どおりの長さの線 
分を猫 < こと力すできる。サブルーチン末の rts が罵か 
れたアドレス（仮に hlineO とする！:）を基点と考える 
とこの式はもう少し簡単に表せ， 

hlineO — 描きたいドット数 x 2 
となる。 

リスト 7 がループを展關したが ill の新しい版だ。 
リストの短さは意外かもしれない。展關したループ 
の中身はどこにいってしまったかというと， 45 斤< 
凝縮されている。この. deb は同じ値の定数が並んだ 
ブロックを用意する疑似命令で， 45 斤では 30C0h と 
いうワードデータを GNPIXEL 個だけ用意している I 
ここで， 30C0h は， 

move. W do , (aO) + 

のマシンコードであり， GNPIXEL は GCONST.H 
内で定義された実画面の攒ドット数を表す記号定数 
だ。 


実はが ill は， 

move. W do , ぶ 0) + 

で1ドットずつ点を打つけ:わりに， 
move. 1 do , (aO) + 

で2ドットまとめて描く 1：いうアイデアじよってさ 
らに高速化できる。ただ，横ドット数がつねに偶数 
とは限らないから，奇数の場合は最初力，最後の1ド 
ットを特別扱いする必要が化てくる。この点に注意 
しプログラムじしてみたらリスト8のようじなった。 
リスト7からの変更部分に注旨して読んでみてほし 


' ^ 〇 

Ml 


描画モードを加えよラ 


速度の追ホはこのくらいにして，こんどは機能の 
が:張に目を向ける。揃闽モードが使えるようにする 
のは非常じ怖単だ。 move で G-RAM に普き込んでい 
る部分を or にするだけで OR モードになるし， eor に 
すれば XOR モードになる。パラメータで描画モード 
を指をし化理を振り分けるよりは直ネ妄リスト8の部 


うィす 
薦ラち 
ン W のり 
イ0；下* 
ラ W ぐ回 
1 m すが 


るへ 

場ン 

画のィす 
拍トラ巧 
ンツ のり 

ィド下 31 
ラなぐ回 
1巧す5 


34567890123456789012345678901234 

33333334444444444555555555566666 
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表 1 る種描画モードへの巧応（変更部分 ) 


OR モード 

52: odd : 

or . w dO , ( aO ) 

* 奇数ドットの場合 


61: 

. deb . w GNPIXEL /2, $8198 

* or . 1 加， （ aO ) + 

XOR モード 

52: odd : 

eor . w dO , ( aO ) 

* 奇数ドットの場合 


61: 

. deb . w GNPIXEL /2, $ bl 98 

* eor . 1 加， （ aO ) + 

AND モ ー K 

52: odd : 

and . w do, ( aO ) 

* 奇数ドットの場合 


61: 

. deb . w GNPIXEL /2. $ cl 98 

* and . 1 dO , ( aO ) + 


分部分を修正して別のサブルーチンにしてしまった 
ほうカミ楽た*ろう。というわけで'， OR , XO 民， AND 各 
モードへの変更箇所を表1じま L めてゎく。表には 
特に示していないカミ，サブルーチン名ら gfil し or t か 
なんと力，，をれらしい名前に変更してゎくとよい。 
をのときは同時に3斤の外部定義名も変えるのを忘 
れないように。 

これら gfill のバリエーシヨンの動作試験にはリス 
卜5を改造したものを使ってもよい力す，先巧の 
LIN に S を流用してをれぞれ独立したプログラムに 
してゎけば便利だろう。先月のリスト4の7斤を， 
PARCNT equ 5 
に，22〜25斤の IOCS コール呼び出し部分を， 
clr . 1 - ( sp ) 

DOS -SUPER 

move . 1 do , 巧 p ) 

pea .1 giospar ( pc ) 

bsr gfil し or * などなど 

addq .1 #4, sp 

DOS -SUPER 

addq .1 #4, sp 

のように修正し，さらに 5 斤の直後あたりにでも， 

.xref gfil し or * などなど 

と外部参照定義を加える。あとは個別にアセンブル 
したうえで必要なサブルーチンとリンクすれば出来 
上がりだ。 


I おまけはタイリングペイン h 

もうひ t つだけが11のバリエーシヨンを作って今 
巧は終わりにしたい。いわゆるタイリングができる 
ようにしてみる。タイリングは異なろ色を交互に並 
ベることで解像度をある程度犠牲じして疑似的に多 
色表示を行う手段だ。65536色が同時に出せる 
X 68000 では無用といえばをうなのだが，16色モード 
や256をモードではまだまだ使い道はあると思う。 

あまり複雑にはしたくないので，2色の市松模様 
尊用に限定して考えよう。要は2色の点を交互に並 
ベていけばよいわけだ。運よく，リスト8のが ill では 
2ドットをまとめて書き込むようになっているので， 
dO . l の上位ワードと下位ワードに2色のパレットコ 
ードを入れてゎけば備単にタイリングが実現できる 
ことになる。あは実際のコードを見てもらったほ 
うがよくわかるだろう。で，リスト9だ。 

基本的じはリスト8をベースに最小限の修正を加 
えた形だ。ここでら変更部分に注目して読んでみて 
もらいたい。データレジスタの上位ワードと下位ワ 
—ドを交換する swap 命令の使い方が'ポイントだ。 

各 swap 命令の意味がつかめれば，プログラム全体の 
動作も見えてくるだろう。 

求 

え一と，『猫ふんじやった』って曲があるじやな 
い？ ピアノ教室に嫌々通っている子供でもなぜか 
あの曲だけは喜んで弾く L いうあれだ。あの曲は単 
純な指遺いながら黒鍵は多用するし，手を交差させ 
たりもなんかして，ピアノを弾いている気分を味わ 
えるというのが人気の秘密だって昔なにかで読んだ 
記憶がある。いま，なん^なく思い出した。 

さて，次回もグラフィック，今回の話のつづきに 
なる模様だ。をれでは，また来巧。 


リス S 曰 TILEFIL し .3 


1 


， include 

gconst, 

,h 

36 


mov 色 • 1 

COLl(alI,d0 

♦ d0= ハ•レツ トコード 

2 

♦ 




37 


btst ,1 

#0,dl 

♦ 

3 


.xdef 

gtilefill 


38 


beq 

skip0 

本 

4 


.xref 

gramadr 


39 


swap.w 

d0 

♦ 

5 


■ xref 

gfelip 


40 





6 

* 




41 

Bkip0 : 

lea，1 

next(pc),a2 

♦ a2= 戻りアドレス 

7 


•offset 

0 


42 


£tddq • w 

#1,d2 

拿 

8 

♦ 




43 


bclr.1 

#0,d2 

* 巧ドットおは巧较 か？ 

9 

X0 ： 

.ds. w 

1 


44 


beq 

skip 

♦ 

10 

Y0: 

， ds • w 

1 


45 


lea.1 

odd(pc ), & 2 

♦巧おドットのとき 

11 

XI : 

， ds ， w 

1 


46 





12 

Y1 : 

， d8 • w 

1 


47 

skip: 

lea.l 

hlineO(pc),al 

♦ 

13 

COLl : 

. 过 s ， w 

1 


48 


曰 uba.w 

d2,al 

拿 

14 

COL2 ： 

.ds ， w 

1 


49 





15 

拿 




50 


move.w 

#GNBYTE,dl 

♦dl= ライン脚のアドレ； 

16 


.text 



51 


add ， w 

d2,d2 

t 

17 


.even 



52 


sub.w 

d2,dl 

拿 

18 

« 




53 





19 

gtilefill : 



54 

loop: 

Jmp 

(al) 

♦ 1 ライン描画 

20 

PARPTR : 

= 8 



55 

odd: 

swap.w 

dO 

♦ホがドットの巧合 

21 


link 

a6,#0. 


56 


move.w 

do , (a0) 

拿 

22 


raovem.i 

d0-d3/a0-a2 ， - (sp) 

57 


swap.w 

d0 

* 

23 





58 

next : 

adda.w 

dl,a0 

»ずぐ下のラインへ 

24 


move♦1 

PARPT 氏 （ a6>,al 

♦ al = パラメータをけがし巧が 

59 


swap.w 

d 0 

♦ 

25 


历 ovem.w 

(al),d0-d3 

*d0-d3 じを巧を取り出す 

60 


dbra 

d3,loop 

♦ 过 3 回«り巧ず 

26 





61 





27 


bar 

gfelip 

* クリッビングする 

62 

done : 

movem•i 

( sp )+ ,d0-d3/a0- 

a2 

28 


bmi 

done 

»N=1 なら巧画の必まなし 

63 


unlk 

a6 


29 





64 


rta 



30 


bsr 

gramadr 

* 左上の G-RAM 上のアドレスを巧る 

65 

拿 




31 





66 

hline : 




32 


3ub. w 

d0,d2 

*d2=ttt ビクセルな -1 

67 


•deb,w 

QNPIXEL/2,$20c0 

本 move. 1 过 0, ( aO ) + 

33 


sub.w 

dl,d3 

拿 das 供 ピクセルが -1 

68 

hlineO : 

jmp 

(a2) 


34 





69 





35 


eor. w 

d0,dl 

♦ 

70 


， end 



88 Oh ! X 

1990. 9. 

























IX 目邮邮用 

八ンみが-ジスキヤ巧ダ達製げ 



るのでず。ここでは巧価 


H 曰 yashi Yohzow 

林曜王 


ポータブルワープロのスキヤず5す，結推夏巧朦が豕 i 
で手鞋なワープロ爾鶴みン f *' イージズ举ヤ:誤 
アダプタを製作しでみましよラ。痛がのこ載をが島）をれをドライブずる巧用 
の統み取りソフ h 电あわせて発表しまず。 




をか編 'を 

が 



シ\ンデイスキヤナがほしし、 


突然ですが，世間ではイメージスキャナ 
が流斤ってますね。 FAX ， ハンデ ィコピー， 
ペン型翻訳機なんてのも CCD いの発達で 
小型化されたスキャナ（ラインセンサ）の応 
用製品です。をしてなんといっても，ワー 
プロ， パソコン といった情報機器は，をの 
ほんどがオプションとしてイメージスキ 
ャナを持つようじなりました。某％ 6 SX マ 
シンには 標準でイ ンタ フェイスがついてま 
すね。でも，をの用途は，大半は「文章に 
ちよっ L した写真やカットを入れる」とい 
うワープロの機能キ应張的なものですが。 

さて， X 68000 に目を移しましよう。ご 
存じの！：わり， X 68000 には CZ -8 NS 1 とい 
う A 4 をフルカラーで読めるイ メー ジスキ 
ヤナがあります。カミ，高い。白黒のスキヤ 
ナは民 S -232 C タイプのものが使えますが， 


ります。 

しかししかしです。 X 68000 は，映像 
関係、に標準で1 M バイト U 上という某一太 
郎マシン+ フレームバッファ " をも凌駕す 
る民 AM を備えた，映像をウリにしたパソ 
コンです。を価なスキャナがないため，ど 
れだけの人がをの機能を生かせなくて泣い 
ているこ t 力、（わわげさ）。某一太郎マシ 
ンには専用の，26で色をわざわざ8色に落 
とずいう超無駄 才ーバースぺック ハンデ 
イカラースキャナがあるというのに，なぜ 
X 68000 には白黒のスキャナさえないのだ 
ああ。シャープの人に問いたら， X 68000 
用にハンディスキャナを化ず予定はない！： 
のこと。あっさり夢ら希望もがち砕かれた 
ところで，本題に入りましよう。 



■ぉ I 


け売りスキヤナに愛の手を 

いうわけで，ないらのは作ってしまえ 


なる）にのっ I ：っで^|| i ^'ィスキャナをな 
んとかつなげてみました。というのは建て 
前で，ほんとは今年初め，秋葉原でワープ 
口用のスキャナカミ4,800円で投げ売り（じ 
しては高いかなあ）していたので衝動買い 
してつなげたのです。インタフュイスを超 
ヶチッてアダプタ形式にしたので，完全無 
欠とはいきませんが，やはり腐っても觸で 
すね（ひどいいい方)。 X 68000 ならではの 
美しい画傑は他機種の追随を許しません。 
え？スキャナの画像に機種で差がつくも 
のかって？ 

まあコラムをご览ください。 

とにかく， IC 3 個という小さな七ットで 
すので，本誌のハードウュアエ作入門の 
ちょっ t した応用編と考えて，ぜ'ひ作って 
みてください。 

f あなたちわたしち OEM 


# 


というフロンティアスピリット（ああ，こ さて，気になるが応スキヤナですが，ア 

れを忘れたらパソ コンは マイ コン じやなく ルプス電気の OEM 3 > で（外から見ただけ 

読み取り画像の情報量について 


相対的に高価で，ドライバソフトもついて 
くるわけではありません。よって，スキヤ 
ナを持っている人は当が少数です（よね？）。 

しか ! J ,いまの時点でイメー ジを張り付 
けられるワープロはなく （無理すればでき 
ますが)，、当がをの巧途じ使う人もいませ 
んからさらにスキャナを買う人は少なくな 



スキャナの読み取りプログラムを設計する場 
合I問題じなるのが統み取るドット数です。一 
船的なスキャナの解なをは1000画ま前を （CCD 
の解像をはさらに上）ですが,世間のワープロや 
パソコンは画面の解像をがそんなじありません。 
実隐じは512ドットまたは640ドットしか就んで 
いないのです。 

私は今回手に入れたワープロ用スキャナの說 
明書を見て思わず笑ってしまいました。解像度 
を WOdpi じすると読み取り幅はたった32画じな 
つてしまうのです。パソコンでも水平640ドッ 
卜程をじゃ今主流の1051 rnn を統もうとすると解 
イま度を 150dpi た TF じしなければなりません。ま 
の持ちなれとは正じこのことです。 

X68000 ではそんなことはありません。実画 
面サイズ1024X 1024ピクセルの水平型 VRAM と 
いう，まるでスキャナの読み取り用に設計され 
たのではと錯がするテキスト画面が4かもあり 
ます。これを巧えばあ大 1024X4096 ドットとい 
うに範囲を CRT で確認しながら読み込めるので 
す。 


今回はさすがにそこまではやりませんでした 
が， CRT のアスペクト比 （2:3) じ合うようじ 
最大1024 X 153目ドットを統み取り，縮小すると 
きじ多値化しています。つまり，最高6倍の 
オーバ — サンプリングを巧い，見かけの解像度 
を上げているわけです。 

ここでちょっと統み取り画像の巧報量じつい 
て調べてみましょう。 n 色の画像I画お当たり 
の情報量は log^n (ビット）で表されますから， 
撰準的な， 640X400 ドット白黒の画像では，巧 
報量はを大で， 640X400Xlog2 2 =250 K ビッ 
卜となります。 

では、今回のプログラムで，原画像サイズ10 
24X1536 ドットを 768X512 ドット，5階調に変 
換した巧合はどうでしょうか。 

768x5l2xlog2 5ち 89IK ビット 
となり，実に 3. 5倍が上の情報量を持つことが 
わかります。近くじハンディスキャナのつな 
がっているワープロなりバソコンのある方は， 
ぜひ同じ原稿で見比べてみてくピさい。スキヤ 
ナの持つ真の実力に驚かれることでしよう。 


石が3つのな単な基板た’ 


ンディイメージスキャナアダプタの製作 89 






じやわかりません が），コネクタが 8ピン 
ミニ DIN ( X 68000 のキーボードなどの コネ 
クタ 外見が同一）のものはまずつながる 
のではないかと思われます。この規格はモ 
ノクロのスキャナではほぼ業界標準ともい 
えるほど普及しています。文書のフォー 
マットなどほとんど互換性のないワープロ 
界ですが，ことスキャナのこ t となると， 
ほとんどの機種に互換性があります。 

私が聯入したのはキヤノンのキヤノワー 
ド a シリーズ用の CW - IM 02 ^いうもので 
す 力す， これはひと昔 前， まだ64關幅のもの 
が主流だった頃ポピュラーだったモデルで， 
いまでもパソコン用で HAL 研， NEOS など 
のモデルに採用されています。スペック！： 
しては， 64 mm 幅， 400 dpi り， 3種類の64階調 
ディザリング機能を持っています。また同 
じインタフェイスで，デイザリング機能の 
ない廉伽版や，最近主流になってきた 105 mm 
幅のらの，カラー （3 度読み）のもの，また 
ビデオ画像を取り込むビデオスキャナなど 
も各社から発売されているようです。 

厚とにかく規格 

さて，スキャナが手に入ったところでイ 
ンタフユイスの設計を始めるわけです力す， 
をの前にスキ ャ ナ側の規格がわからないこ 

にはわ話になりません。幸い，を人が N 


EOS 製の PC -9801 用インタフェイスボー 
ドを持っていたのでをれで調べるこにし 
ました。 

最近のボードはカスタム 1 C が載ってい 
る場合が多く見受けられますが，これはす 
ベてディスクリート（離散）部品でできて 
ゎり，備単に動作が理解できました（結構 
タコな部分もありました力す)。 

図1に，各端子の機能を示します。では 
詳しく説明しましよう。1番は + 12 V の電 
源です。消赞電流は 400 mA くらい（ほ！：ん 
どが光源用）流れますがものによっては（力 
ラー^か自動走査とかのものは） 1 A 近く 
流れるものらありますので?主意が必要です。 
2をと8番はグランド， 0 V です。 

3をは主を査（横方向の， CCD じよる 
スキャン）の始まりを立ち上がり（口一か 
らハイになる）で知らせます。 

4番は8ドットご t に口一になる信号で， 
メモリに直結する場合，これでアドレスを 
カウントします（親切だなあ）。 

5をはドットクロックです。立ち上がり 
の！：きに有効な画像データが6番にありま 
す。周期は実測値で約1.3//秒でした （770 
kbps !)。 

7番は人が手で斤う縦方向のスキャンの 
同期信号で，立ち下がりで新しいラインに 
入ったことを知らせます。これらの様子を 
図2に示します。 



U 上を見てもらえればわかるとわり，デ 
ータは完全に一方的な同期じよる垂れ流し 
です。しかも牵乏送速度ら決してのんびりし 
た速度ではありません。 PC -9801 用のイ 
ンタフェイスでは， 8 MHz の8086を想をし 
て，16ビット パラレルに 変換して読みをん 
でいました 力す， 諸々の化理を含めるとをれ 
でも余裕とはいえないようでした。をうな 
ると， X 68000 でも専用のインタフェイス 
ボードを作らなきやならないような気がし 
てきて，実際試作してみました。ジョイス 
ティックポートの利用も最初考えたのです 
が「速度が間に合いっこない」し思い込ん 
でしまっていたのです。 

ところがある日，ふとジョイスティック 
ポートを利用したインタフェイスを，だめ 
もとで作ってみる気になったのです。いや， 
人間謙め力す早いと損しますね。動くじやな 
いですか。シシリアンの設計者に感謝！ 
というわけでボードはまったくの無駄に 
なってしまいましたとさ。 

ァダブタ 

X 68000 のジョイスティックポートは正 
しく ATA 民 I 規格です。回路図などの文献 


図 1 スキャナ側から見た信号 


ピン番号 

信号名 

I/O 

備 考 

1 

+ I 2 V 

1 N 

電源 

2 

GND 

IN 


3 

Wf 

OUT 

主走查スタートタイミング 

4 

丽 

OUT 

アドレスアップ 

5 

WR 

OUT 

データ 取り込みタイミング 

6 

VD 

OUT 

ビデオデータ （ H 黒 / L 白） 

7 

彌 

OUT 

副走査同期 

8 

GND 

IN 




図吕スキャナ信号タイミングチャート 



丽 — I 


①，②，③は， I ラインみのデータ，罰巧とは無閒なじ.一定間隔で送られる。 


を見ればわかります力す，連続して取り込め 
るビットは4ビットしかありません。今回 
のようにパラレル（並列）ポート t して使 
う場合，これがホックになってきます。 X 
1のように8ビットの化用ポートなら嬉し 
かった （？） のですが，ない袖は振れません 
ので4ビットで頑張るしかありません。 

あとは， 1.3 X 4 = 5. 2//秒で4ビットと 
いう速度にソフトウユアが追いつくかどう 
か，です。これが可能であるとして，アダ 


1 ) CCD 

巧巧結合巧子のこと。巧子をバケツリレーの 
ようじ巧ぶシフトレジスタのことなのですが， 
光電お子と組み合わされて满が巧子に応用され 
ることが多いので，一船に CCD といえば巧使ホ 
子をおすようじなりました。 

2) フレームバッファ 

要するに大容量の G - RAM 。640 X 400 ドット， 
1677 万色 （24 ビット/ピクセル） というのが巧 
ホ的。 ACRTC を巧み，を数倍の惦大やスムース 
スク ロー ルを ハー ドでサ ポー トするものがをい。 

3) OEM 

相手先ブランドじよる敗売。お近大流行（だ 
そうだ)。 

4) dpi 

ドット/インチ 。I インチ （25.4 mm ) の中に 
何ドットある力、，というみ巧能をます単位。 400 
dpi 与16ドット /m 


Oh! X 1990.9. 



























プタは，スキャナからシリアルじ送られて 
くる画像データを4個ずつま t めて渡して 
やるとぃう作業をずればぃぃのです。 

しかし，データは垂れ流しですから，こ 
のままでは X 68000 はかのデータが ぃつき 
てぃるのかわかりません。をこでここから 
は次の4ビット，と知らせる信号（同期信 
号）が必要です。さらに図1じ示したとゎ 
り，凶悪なことに"次の1ライン分のデー 
夕=次のライン，とは限らなぃ"ので，次 
のラインを知らせる副走査信号い必要です。 
この2つの信号は余ったトリガボタン用 
ビットで渡します。 

実際回路 

ののこ t をま t めたのが図3の回路で 
す。衙単でしょう。 la 前のボードでに14 
個の規模だったのがたったの3個！（単純 
じ比べられなぃが）をう，.私のハード製作 
の信をはぃかに安くして最大のパフォーマ 
ンスを得る力、，です（単に貧乏なだけとぃ 
う話らある）。 

わかる人は一瞬でわかるし思ぃます力す， 
初心者の方のために一応説明します。 

まず箱が3個ありますね。をれからなに 
やら•与角おにかの つぃた のが ぃっぱぃ あり 
ます。これらが実は 1 C のひとまとまりの 
機能を表してぃます。 

ぃちばん上の箱の上に HC 595 ^書ぃて 
あります力これはひとつの 1 C で， HC 595 
とぃうのは 1 C の型番です。この 1 C は8ビ 
ットのシフトレジスタに3ステート出力の 
ラッチがつぃたものです。要するに，シリ 
アルーパラレル变換をする心臟部です。 8 
ビットとぃうのは無!!たなようですがほかに 
適当な石がありませんので。をの代わり， 

8.ビットのポートにも少し手を加えるだけ 
でつながります。箱の内部にぃろぃろ記号 
が書ぃてありますが，をれが各端子の機能 
です。 

詳しくは規格表を見てもらうことじして， 
簡単に説明しますし A とぃうのがシリア 
ル信号の入力です。ここにスキャナからの 
画像信号を入れてやります。 SCK はシフ 
トクロックの略で，ここを立ち上げると内 
部でデータがひとつシフトして， A 端子か 
らデータが取り达まれます。 SCK の前に 
>がつぃてぃます力 S ， これは信号のエッジ 
(変化点)での動作を表してぃます。これを 
スキャナの読み込みタイミング信号につな 
ぃでやります。 LCK はラッチクロックで 
す。これを立ち上げると，ネ刀めてシフトレ 
ジスタの内容が出力である QA 〜 QB に現 


れます。をして次に LCK を入力するまで 
変わりません（これをラッチ=掛けが'ね動 
作という）。 

それではホに，をの下の 1/2 LS 393 と書 
かれた2つの箱を見てみましよう。これら 
は2つで1個の 1 C に入っています。をの 
ことを明帷にするために1/2と先頭につけ 
てあるのです。 LS 393 が型番です。さて， 
この箱は4ビット （16 進）のカウンタです。 
動作は， CL 民でカウンタのクリア， A は立 
ち下がりでカウントアップをします。 A の 
前の>はいい t してをのさらに前に丸がつ 
いてます力これは負論理（ローで有効）を 
表します。つまり，立ち下がりが有効なの 
ですね。 QA 〜 QD は出力です。 


上の LS 393 は分周器の役割を果たしてい 
ます。スキャナの読み込みクロックを数え 
て， 4クロックごとに HC 595 のラッチを 
動作させて出カデータを更新し，新しいデ 
ータであることをホスト （ X 68000) に知ら 
せています。 

まあ，これはいいのですが下のほうの LS 
393は変なことに使っています。 1 C 数節約 
のため強引に民 S フリップフロップりとし 
て使っているのです。っまり，副ま查同期 

— 5) RS フリップフロップ 

フリップフロップとはシーソーのこと。入力 
じよってこの シー ソーはどちらかじ倒れ， シー 
ソーは次じなじかが入力されるまでその状態を 
-保持する。概念的じはそんなおじです。 


図3スキャナアダプタ全回路図 


Vcc ^ - r P 5 I — VCCI 1 




ハンデイイメージスキャナアダプタの製作 9玉 









































































信号が立ち下がってから主走査スタート信 
号がくるまでのあいだ，カウンタをクリア 
(カウントアップさせないように）している 
わけです。 

上の LS 393 の QC にす反抗とコンデンサが 
つながっています力 3', これは HC 595 のラ 
ッチ動作が QC の変化よりも幾々遅れるた 
め，をれにタイミングをあわせるための積 
分遅延器です（図4参照）。ただし，これは 
入カポートが 15 k 0でプルアップされてい 
るという前提で設計しています。ですから 
X 68000 ia 外の機種では変更する必要があ 

るかもしれません（バッファが足りなかっ 
たんです）。 

最後の 1 C はインバータ（論理反転器）で 
す。 t ころどころにある:£角形がをうです。 
これはをの名のとゎり，正論理を負論理に， 
またはをの反がにします。負論理のほうじ 
かをつけるのが常識です。また，回路のイ 
ンピーダンスけ氏抗分のようなもの）を下 
げたりするバッファ（緩衝器）としても使 
われます。合計6個のインバータがひとつ 
の 1 C に入っています。 

さて，いちばん下にゴチャゴチャしたも 
のがありますが，これはスキャナに供給す 
る電源を制御する回路です。スキャナは基 
本的に長時間連続運較するようじは設計さ 
れていません。よって必要なときだけ通電 
するのです。 

しかしここをチャチに作るとひどい目 
にあいます。スキャナは電源の電店変動に 
敏感なので電源は十分低インピーダンスに 
してやる必要があるのです（私はこれで2 
週間恼みました）。 


電源のこと 


スキャナを駆動するのに DC (直流）12 V 


の電源が必要です。しかも場合じよっては 
1 A 程度の容量が必要じなるかもしれませ 
ん。をこで，この電源をどうやって確保す 
るかが問題です。パソコン用のスキャナで， 
初めから AC アダプタがついてきた場合を 
除くし下のような方法が考えられます。 

1) X 68000 本体から取る 


2) 1) と同じたろて) C - DC コンパ'ータを使う 

3) 市販の AC アダプタを使う 


4) 電源を作る 

1) はたとえばイメージ入力端子などから 


出ている +12 V の電源を使わうというもの 


です。 X 68000 内部では， 12 V はディスク 
ドライブと空冷フアンに使われています。 
今回は，スキャナ動作中にディスクドライ 
ブが作動することはあり得ませんので， 0.4 


A 程度のスキャナならなんとかなりをうで 


す（保証の限りではない）。 

2) はジョイステイック端子にきている+ 


5 V から +12 V を作ろう t いう，うまくす 
ればいちばんスマートな方法です。しかし 
比較的大容量なため，コンバータ自体が大 
きくなりすぎ，また高価です。 

3) はいちばん安直ですが確実かつ安全な 


部品齡の旅 


方針が決まったところで部品を集めまし 
ょう。部品表を見てください。 

まず小物から。お抗は 1/8 W 型のもので 
十分です。 カラーコード を覚えてわく 
便利ですよ。あと回路図にありませんが各 I 
じには電源にパスコンと呼ばれる誤動作防 
止用のコンデンサをつける必要があります。 
容鹽は 0.1/ iF 程度なら適当で構いません 
が、 高周'波特性のよい，セラミックコンデ 
ンサなどを選ぶ必要があります。間違って 
も電解コンデンずは使っちゃいけません。 
抵抗やコンデンサの精度についてはまった 
く気にする必要はありません。 

では次に半導体を見てみましょう。まず 
トランジスタです。 2 SC 945 は非常にポピ 
ュラーな石ですので どこへ 斤っても50円す 
ることはないでしょう。また，相当品とし 
て 2 SC 1815 などがあります。 2 SA 683 も， 
最大 コレクタ 電流 （Ic ) が一1 A 程度取れ 
ればほかの石でも構いません。 

親切な店ですしトランジスタ1種類ご 
とに定格を掌いてあるところがありまず。 
規格表で調べても石の値段はわかりません 
ので（雑誌の広告を見るという手もある 
が)，実際に店に斤って，手持ちのスキヤ 


方法なのでわすすめです（電流容量だけは 
確かめてください）， 4) は，市販品は信用 
できないというパワーのある方でしたらい 
ちばん確実な方法でしよう。なんにせよ， 
自分じあった方法にトライしてみるのがい 
ちばんです。 


ナの定格とを比較して，余裕のあるものを 
探すとよいでしょう。おっと，あまウ大き 
いと，ケースに入らないかもしれませんよ。 

さていよいよ 1 C です。 1 C の型番の頭に74 
がつ いていますカミ，これは TTLIC 。の 74 
シリーズ（または相驾品）であることを表 


図4アダフタ内タイミングチャー h 


①. 

② 

③ . 
④ • 

⑤ 


口 


カウント開始 


JL 


jTnmCDCDCDCIXDaXEXjDaDQDC 



表1部品表 



92 Oh! X 1990.9. 









































します。 LS は口 ー パワーショット キー バ 
リアという回路形式を表していまず 。 LS 
の2個の TTL はすぐ手に入るでしよう。 
問題は， HC 595 です。 HC はハイスピード 
CMOS " の略で，実は TTL の皮をかぶっ 
た CMOS なのです。 CMOS の弱点である 
スピードを LSTTL 相当にまでな善し，超 
低消帮電力を実現したシリーズです。 

ここでなぜ’わざわざ HC シリーズを使っ 
たかというし実は595の LSTTL 版は， 
ひとつの メーカー からしか出ていないので 
手に入れにくいからです。ただをれだけで 
す。でら HC は入力が CMOS インタフェイ 
スなので，本来は TTL と混在させるのは 
好ましくありません（入力をプルアップす 
る必要がある一余計な電気を食う）。しか 
し私のシステムでは一応正常に動くのでを 
のままにしてあります。お金に余裕のある 
方ははかの2個の TTL も HC じ統一しても 
よいでしょぅ。 

初心をの方は，必ず 1 C ソケットを使い 
ましよう。マルチコンタクトの高級品じな 
ると値段が平気で 1 C 自体の何倍もします 
が，まあ慣れるまでは世話になったほうが 
よいと思います。 

次にコネクタ類です。絶対必要なのはミ 
二 DIN (8 ピン）のジャックし D - SUB コ 
ネクタ （9 ピン）のメスです。あとは電源の 
ジャックを，手持ちの AC アダプタのプラ 

または好みじあわせて購入しましよう。 

ホは基板です。 ユニバーサル 基板という 

図5 1 C ピン接統/有®性部品 


穴が一面に開けてあるを板を使います。も 
ちろん知識のある方ならプリント基板を作 
ってもよいでしょう（大量生産できる！？）。 
大きさは，手のひらくらいのらのを買って 
きて，あとで切断するのがよいと思います。 

殿後に重要なのがケースです。•最近では 
小さなケースでも沢山バリェーシヨンカ$あ 
りますので，センスの見せどころです。ま 
た，ケースじ基板を固をするビスとナット， 
ス ペーサーなども適当なものを選んでくだ 
さい。 

部品が揃いましたら，あとは線が（ラッ 
ピングワイヤー9> が適当）なりキ巧なりの 
消探品も確認しましょう。家に佩ってから 
「切れてる一」なんてことのないように。 

f 工具 にっいて 

製作に最低必要な工具は，本誌のハード 
ウェアエ作入門で紹介されていまずのでを 
ちらを参照してください。ただ，今回のよ 
うに外付けのセットではケースを加工する 
ことじなります。耐久性を無視するのなら 
裸でもいいですけどね。プラスティックの 
ケースなら半田ごてで強引に穴を開けると 
いう無謀な方法も考えられます力 S ， やはり 
専用の工具を揃えたほうが当が綺魄にいき 
ます。 

まず巧關け。ハンドドリルで十分です。 
ドリルチップは 3. 2画前後のむのがあれば 
とりあえず大丈夫ですが，この隙七ットを 


揃えてわく手らあります。ホに，巧をぐり 
ぐり広げるリーマーも必需おです。取っ手 
のついたらのが便利です。また，アルミシ 
ヤーシを加工するのでしたらハンドニブラ 
一け，じる！？道具）もほしくなります。 

UjjmmmoMX 

部品と工具さえ揃えばもう半夕完成した 
も同がです。嬉々として部品配題を考えま 
す（はたから見たら変態だろうなあ）。部 
品配置 t 配線の一例を図6じ示します。私 

6) カラーコード 

抵抗や一部のコンデンサなどの化を示すのじ 
使われる，数字ををで表すコードです。をと数 
字の巧応は， 


黒… 

0 

緑… 

5 

茶… 

1 

育… 

6 

ホ … 

2 

紫… 

7 

括 … 

3 

灰 … 

8 

ま … 

4 

白 … 

9 


いろいろな語呂合わせがありますが，をの版 
をは，「を巧の増加するち向で，巧巧は明巧が 
上がり，巧をじ飽巧をが上がる」と觉えるとよ 
いでしょう。抵抗の場合，値表示は4〜5木の 
を帯からなり，を ii のカーボン抵抗の場合. 

第 I を帯…第 I 数字 
第2を帯…第2数字 
第3を帯…ま数=10の第3数字乗 
第4を帯…お容差（無を，銀，をとグレ 
ードが上がる） 

となっています。 

たとえば「僮白ホを」となっていれば，想抗 
値は. 39 X 10 の2を，つまり 3.9 kn です。巧を 
のををは誤差のき午容化で，± 5 %を保組すると 
いうことです。 

ちなみにコンデンサの化ですが，数字が直接 
ブリントしてある場合が多いですが，いろいろ 
なまし方があるので混乱しないようじしてくだ 
さい。 

• 0.1// F などとそのまま書いてある。 

• 4 n 7 など， nF の位 a じ" n " が入っている。 

- 3巧の数字…巧が:のを帯に同じで仮数2巧に 
乗数のかたち。 pF 単位。 

• 2巧の数字… pF 単位そのまま。 

たとえば 4 n 7 なら 4.7 nF =0.0047;/ F ， 221なら 
220 pF です。 

7) TTL 

トランジスタ，トランジスタ.ロジックの略。 
つまりはトランジスタ（ここでは狭巧のバイポ 
—ラトランジスタ）を 集 巧しましたよという意 
巧。もっとも広く使われる論理にです。 

8) CMOS 

相補型•を巧一啟化煤一半導体の略。 シーモ 
スと巧む。 P 型と N 型両方の MOS 巧 巧効果トラ 
ンジスタを組み合わせて論理回路を か 成してい 
ます。がをじ消 巧巧 力がかないのが特お。 

9) ラッピングワイヤー 

配線方まのひとつにラッピングという方法が 
あります。長一い足に細いワイヤーを專用のお 
具でをき付けて配線するのですが，それに使わ 
れる線ががラッピングワイヤーです。ものがも 
のだけじあまり少量では売ってはいませんが， 

I 巻き巧えば一生モノ （？） です。 


ハンデイイメージスキャナアダフ。夕のが作 夕 •？ 


74 HC 595 


74 LS 393 


74 LS 04 





トランジスタ（例） 


巧 解コンデンサ（例） 



極性ま示 




















の趣味で高密度実装に走っていますのであ 
まり参考にはならないと思います力;。 

抵抗などの数値は書き込んでいませんが 
回路図!:見比べればすぐわかるでしよう。 
不親切なようですが，信号の流れを理解し 
ていただきたいのです。細かい配線は初心 
者の方には少々きついかもしれません。し 
かしいまこを日本人の本領を発揮するとき 
です。顕微鏡下で半田付けするプロの方に 
比べたら……。 

図6の配線例ですが，電源ジヤックの正 
負が，市販の AC アダプタでは逆になって 
いるものが多いようです（よく考えれば当 
たり前だね）。を意してください。 

近頃の部品は自動工程にが応するため非 
常に丈夫です。よほどのことをしない限り 
はまず壊れませんので，落ち着いて余裕を 
持って作業してください。怪我をしたら元 
も子らありませんから。 

完成の焼 

できましたか？ 

まさ力、いきなりケースにまで組み込んじ 
ゃった人はいないでしようね。まずは裸で 
動作を確認します。 1 C をソケットに神す 
前にらう一度配線をチユックしてください。 
テスターを わ持ちなら，まず抵抗 レンジで 
電源の絶縁を確かめますけ，といって絶縁 
計なんか持ち出しちゃあだめですよ）。一 
瞬，パスコンに充電電流が流れて，をの後 
巧なが〇〇になれば合格です。ではをのまま， 
電源を入れた X 68000 につないでみましよ 
図已部品配 a 例 


う。各 1 C の電源ピンに，正しく 5 V がかか 
っているかどうかを確かめてください。大 
丈夫なら 1 C を装着しましょう。くれぐ'れ 
も方向を間違えないように。 

八動かしてみるのだ 

一刻も早く動かしてみたいですね。でも 
デバッガでポートを眺めていてら絵が見え 
てくるわけではありません。ソフトを用意 
する必要があります。リスト1にスキャナ 
のドライバプログラムを X - BASIC の外部 
闊数のかたちで作ってみました。とりあえ 
ずこれだけで絵が取り込めます。 scan () 
でスキャナーからテキスト画面に画像を読 
み込み， ttog () で画面モードにあわせて 
画像をグラフィック画面に転送します。詳 
しくはリスト中の説明をご監ください。 

プログラムの説明は割愛します。複雑な 
ことはしていませんので……。時間と戦っ 
ているさまを笑ってやってください。なゎ， 
コンパイラまたはア七ンブラからこれらの 
外部関数を使うことができます（ちょっと 
効率惡いですが)。をの場合は，オブジュ 
クトファイル （ SCANNE 民.0など）をリン 
クしてください。外部関数の X - BASIC へ 
の組み込み方は皆さんご存じですよね？ 

ここでを意をひとつ。この読み取りプロ 
グラムは，ス_ パーバイザモー ドですベて 
の割り込みを禁止して，最高速で突っ走る 
というマルチタスク破壊プログラムになつ 
ています。ですから暴走が怖い人で Hum 


an 68 k のバージョン2をぉ使いの方は ， C 
ONFIG . SYS で P 民 OCESS をす旨定しない 
でください。もしなじかあったきは，イ 
ンタラプトスイッチを押して止めるしかな 
いのです。 

では再びアダプタをつなぎましよう。リ 
スト2のテストプログラムを走らせてみま 
す。スキャナの読み取りボタンを押しなが 
ら動かしてください。うまくいけば64關 X 
96 mm の範圍が読み込まれるはずです。いか 
がです力、？ 

ハングしてしまったら速やかにアダプタ 
を杖き，もう一度配線なりプログラムなり 
をチェックしてください。 

うまく動いたときの感動はハードエ作な 
らではのものです。綺麗にケースに入れて 
本当の完成です。ゎめでとう。 

— 10) BAS にのか部閒数を作るのじはアセンブラ 
とリンカが必要です。福おか C コンパイラを巧 
入してください。 

手版としては，ソースファイルをアセンブル- 
リンクして .X ファイルを作り，この拡巧子を 
.FNC じリネー厶して BASIC.X のあるディレク 
トリにコピーします。そしてェディタで BASK. 
CNF じ， 

FUNC= ファイル名 

の I 斤を追加してがわりです。 SCANNER.S の巧 
合ですと，たとえば， 

ED SCANNER.S 

(プログラムを巧ち込む） 

AS SCANNER 
LK SCANNER 

COPY SCANNER.X ¥BASIC2 ¥ 幸 .FNC 
ED ¥BASIC2 ¥ 己 ASIC.CNF 
(FUNC = SCANNER を追加） 

_ となります。 


パスコン 

。卜に^！^。 



おな 例 
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^ちょっと実用プログラム 

さて，これだけでは物足りませんので， 
評価用の簡単なユーティリティを作ってみ 
ました（リスト3)。新たにリスト4の外 
部関数が必要です。できれば皆さんに 
使っていただきたいと思いましたので，こ 
れも BASIC です。しかし X - BASIC って 
強力ですね（トロいけど）。 

をれでは使い方を説明します。操作はマ 
ウスカ、キーボードで巧います。マウスの上 
下，またはカーソルキーの了 i で選択，左 
クリックまたはリ ターン かスぺースキーで 
実斤，右クリックまたは ESC キーで取り 
消しです。 

プログラムを走らせるしいきなり画面 
を真っ白に塗ります。実は，読み取り画像 
のバッファにテキスト 画面の2，3 プレー 
ンを使っていて， このエリアは"終了"で 
*• 原画消去"を実行するまで消えません。 
よってなじか不都合が起きてプログラムが 
中断しても原画は生きていますので再実斤 
すると表示されるようにしてあるのです。 
ホに，画面左上にメニユーが現れます。を 
れぞれの機能は見ればだいたい想像がつく 
と思います力3'，一応順に説明します。 

"画面モード"は，画面モードを変更し 
ます。 512 X 512 ドットモードを選ぶと16色 
力，655%色かと聞かれますが，描画するモ 
ードを変更するだけで，表示されるイメー 
ジは同じです。 

"取り込み"は，スキャナからの取り込 
みを実行しまず。ずらっ L 出てくる数字は， 
左から解像度，原稿の範囲，読み取る方向 
を表します （64 mm 幅， 200/400 dpi のス 
キャナを想定していますので，違う規格の 
スキャナをぉ使いの方は適当に変更してく 
ださい）。読み取り速度には限界がありま 
すので，あまり速〈スキャンしないでくだ 
さい。 

コラムにもある t わり，原稿サイズと画 
面モードによっては才ーバーサンプリング 


による画像の多階調化を行っています。し 
かし，用途によっては完全な白黒の画傑が 
必要なときもあります。をんな場合，画像 
の中間色に，あるしきい値を設けて白と黒 
の2値画像にするのが "2 備化"です。画 
像を見ながら適当なしきい値を決めてくだ 
さい。 

"保存"は画像をファイルに保存します。 
ファイル形式はわをらく X 68000 の標準的 
なおすであろうと思われる3種類をサポー 
卜しました。 "• GS 0" は img _ save () の 
512 X 512, 16 色モードです。この！：きパレ 

ットを 保存す るパレットファイル（パレッ 
トコードが16 個入って いる だけですカミ） を 
一緒に 作りますカミ， このファイルの お張子 
はミ ユージ カノレプランのペイントソフトで 
ある「マジックパレット」で使われている 

形式：し PLS ) としました。扛ちろん2値 
化してある場合には パレットファイルは 作 
りません。 

‘‘. PIC ，， はご存じ PIC . 民によるファイル 
形式です。ここでは全画面モード対応の A 
PIC . 民をチヤイルドプロセスで呼び出し 
て使っていますので， APIC . 民がカレント 
パス上になければなりません（つまり，環 
境変数 PATH のディレクトリ内のどこ力' 
じ APIC . R を持ってくる必要がある ）。 A 
PIC . 民は電波新聞社のゲームソフト「ノく' 
ブルボブ ノレ」 にら入っていますから，ゎ持 
ちの方も多いのではないかと思います力 S '， 
むちろんプログラムを少し変更することに 
よって普通の PIC . 民を使うこともできま 
す。思い切って本誌6巧号の PIC . FNC を 
使ってもよいでしょう。 

最後に ". CUT " は PDS のペイントソ 
フトである「モノトーン J のファイルです。 
画面モード 768 x 512 で， 2 値化した画像の 
うち， 680 X 480 ドットがが象になります。 
この！：きの範閱指をはマウスでも力ーソル 
キーでらできます力 3 '，標準のシステムでは 
マウスの鈍さが目立ってしまい操作‘法がよ 
くありません。勝手ながら電脳俱楽部に褐 
載された IWOUSE.X (マウス高速化ュー 
リス hi 



スキャナ用サンプル 


ティリティ）との併用をわすすめします。 

la 上3つの形式で保存することができま 
すがこれらの形式 ia 外でも，チャイルドプ 
口七スを用いれば節単にわ手持ちのほかの 
グラフ ィ ックフ ァイ ラーに対応させること 
ができるでしよう。 

"終了"は，プログラムを終了します。 
この！：き"原画保存"を選択すると，テキ 
スト画面のバッファをクリアしません。 

残念ながらカラースキャナには対応して 
いません。（5,000円で売ってたカラース 
キャナがあったのに……後悔化に立た 
ず。）自走式ならただ3回読めばいいはず 
ですから，衙単に対応できます。 

勇心-ホ野望に近づぃた 

をんなこんなで，永年の夢 ハンディ スキ 
ャナアダプタが完成しました。 Z’sSTAFF 
でへらへら女の子の絵を描くらよし，文字 
認識に挑戦してダンプリストを読み込ませ 
るもよし，自由に応用してやってくださし、。 

义中，一般受けしない尊門用語がたくさ 
ん化てきたことをわ誰びします。しかし 
をんな言葉はわからなくて普通ですから気 
にしないでください。與咪さえあればをの 
うち党えます。わっしもし貴方が工学系 
の学生ならこんな甘えは許されませんが。 

厳後じなりましたが，ハードの動作確認 
に快く協力してくださった恒吉を治氏，佐 
久間驚夫氏，並びに中が隆生氏に，この場 
をお借りしてお礼申しあげます。 
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352 


♦ C エン 
t 

_ttog 


トソ 

LINK 


巧る 
もいい 


mo vein.1 

andi.w 

asl.w 

awap.w 

lea 

adda.l 

lea 

andi.w 
asl.w 


clr.l 

DOS 

move.l 


_inode0 

lea 

move.w 

t0_newline 

move.w 

t0_coliinnloop 


moveq.l 
move.b 


iBl.l 
move.b 
181.1 
move.b 
la し 1 


t0_dotloop 


moveq.l 

rol.l 

move.b 

andi.w 

add.w 

move.b 

asl.b 

move.w 

move.b 

asl.b 

move.w 

dbra 


dbra 


lea.l 

dbra 


t し 10 op 


move.w 

clr.w 

move.w 

move.l 

rol.l 

move.w 


t し dotloop 


rol.l 

move.b 

and.w 

move.w 

dbra 


dbra 

rts 


—modeZ 

lea 


lea 

レス 

movea • 1 


iDOvea.w 


moveq.l 


t2_newline 


a 6| が 

dl-d7/a0-a5 


TTOGT.ABLE(pc,d2.w),a2 

-(sp) 

-SUPER 

dO.SSPBUF 


(a2) 

SSPBUF,(sp) 
—SUPER 
4(3p),ap 

dl-<17/a0-a3 

a6 


» るモードごとの化巧へ 


* 逆アセぶかせ 

—modeO 
—model 
_mode2 
—modes 

MODEC,768*512 to 512#512,4colors 


♦a2= 巧巧テーブルアドレス 
»d7= ラインカウンター 


♦ d 6= 々ラムカウンタ. 
♦ d 0= テキストデータ 


VTABLEl,a2 
#512-1,d7 

#32-1,cl6 

#0,d0 
(aO け ， do 

*8,d0 

(a0)+,dO 

#8,d0 

(aO)+,dO 

#8,d0 

#8-1,d3 


«0,d2 
#3,d0 
dO.dl 
が ， dl 

dl,dl »d レ dl>2 

0(a2,dl.w),d2 td2 =1 ドット目 « 巧 

#2,d2 »d2=d2W 

2(a5,d2.w),{al)+ 列から色を待て画面 / 

I(a2,dl.w),d2 下 2 ドット目 

#2,d2 

2(a 5,012 .w), (al)+ 
d5,tO_dotloop 


♦ d 0 か 63 ビット巧り出し dl ' 


d6 , t0_columnloop 

32(a0),a0 
d7,tO_newline 


* ホラ 


のアド 


MODE し 1024*512 to 1024 *512,2colors 
♦d7= カウンター 


が 2*512 -し d7 
dl 

#4,d2 

(a0)+,d0 
#2,d0 
#32-1,(16 

#l.dO 

dO.dl 

d2,dl *1 

2(a5|dl.w),(al)+ 
d6,t し dotloop 

d7•t し 10 op 


♦d0= テキストデ- 
け 2 ドッ 卜打つ 


MODE 2,1024»1536 to 512*512,Tcolors 

♦a3= グラフィックを下のアド 


VTABLE3,a2 

GVLBL,a3 


a3,al 
#1024,a4 
#0,d4 
#512-1,d7 

#64-1,d6 


*a4= か Y 方巧オフセッ 
♦d7= ラインカウンター 
* d 6= 々ラムカウンター 


» -まわ時世 1 (S 


上むニブル巧り込み 

(Total>=3.4) 

下位ニアルおり达み 

1バイト»き込む 


0/1.4) (Total>=4.6J 
ホラインアドレス 


(が），册 

d6,d0 

s_skipl3 


(aO),dO 

d6,d0 

S_ioopl 

d4,d0 


(a0),dl 

d6,dl 

s_loop2 

d ミ , dl 

dO.dl 

dl,(al)+ 

d3,s_ 100 pi 

128(a2),a2 
a2,al 

d7,s_newiine 

a3 ,d0 
d0 

dO.PPIC 
が f8ff,sr 
SSPBUF,{3p) 
-SUPER 
4(sp),sp 


move.b 

cmp.b 

bcs 


8_ 100 pi 


s_loop2 


move.b 

canp.b 

bcc 

Isl.b 

move.b 

cmp.b 

bcs 

and.b 

or.b 

move.b 

dbra 


lea 

moves. 

dbra 


move.w 
not.b 
and.b 
andi.w 
move.I 


moveq.l 

moveq.l 

#0,d2 

moveq.l 

#0,d3 

IOCS 

-SCROLL 

POP 

dl-d7/aO-a3 

LWLK 

a6 

rts 



♦HOME 位历な怖 


* spower (por 


.even 

« 

t X-BASIC ェントリ 

本 

spower 


move.1 

12(sp),d0 

move.l 

22(sp) ,dl 

PUSH 

d0-dl 

bsr 

—spower 

lea.l 

4*2(sp),sp 

moveq.l 

rts 

#0,de 


* C エン 

拿 

—spower 


P_o び 
p—return 


LINK 

PUSH 

a6,«0 

dl-d2 


clr.l 

-(sp) 

拿ス —/、* - •V T イサ *-; 

DOS 

—SUPER 


raovem.1 

8(a6),dl-d2 


asl.l 

#4,dl 


andi.l 

#l,d2 


beq 

P_o ぴ 


or.b 

bra 

dl.PPIC 

p_retum 

♦ 巧巧 0 N 

not.b 

dl 

♦巧巧〇 F F 

and.b 

dl.PPIC 


move.l 

DOS 

dO,(sp) 

-SUPER 

» ユー ザーモ 

lea.l 

POP 

4(sp),sp 
dl-d2 


UNLK 

a6 



* t t 0 g ( p 

lane, 

mode, 

g s ) 

， even 




t X-BASIC エント 

り 



ttog 





move.l 
move.1 

12(sp),d 日 
22(sp).dl 

move.l 

32(sp),d2 

add.l 

PUSH 

#10,d2 
d0-d2 

bsr 

-ttog 

lea 

'け 3(sp>,sp 

moveq.l 

rts 

が, dO 


* 配列巧ホを巧 


r w 巧ん pw ぶ 

か w 脚 k の也かかか 

丽1111 

1111 


頭 


をて 
スス< 
レレな 
ス KK し 
レアア と 
ドクン こ 
ァツチな 
トィ-ん 
スフル こ 
キラ巧 ら 
テグ巧な 
わたた W 

B 泣& 〇 


i 滿 i が. I が’地 

ががが が 


34567890123456 7 8901234567890123456789012345678 901234567890123456789012345678901234567890123456789 012345 
555555 56666666 6 6677777777778888886888999999999 900000000001111111111222222222233333333334444444444 555555 
33333333333333 3 3333333333333333333333333333333 344444444444444444444444444444444444444444444444444 4 4 4 4 4 4 


巧 
度 
ド 
可~ 
F れモ 
ドみ_ 
0込ザ 
想〇 - 
巧がユ 


请 


►大巧さんのあぶないシリーダ「ココムス J じがが;して，いろいろな表がをした（で）さ 
んの頗が降ってくる「コムラス J というのはどうでしよう。絵は皆さんのご想像におまか 
せします。 淸水牠年 (19) ががが 
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u ス 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 int 

12 int 

13 int 

14 int 

15 

16 int 

17 

»/ 

18 int 

19 int 

20 int 

21 
22 

23 

::います 

24 int 


巧®用ブロブラ厶 
S C A N . B A S Version 1.01 
(巧 .SCANNER. FNC , SCANSl'PPORT. FNC, + a ) 
presented by Hayashi Art Products 1990 


i•j,c1,c2,c3,cure,curs.white,tmp 
mpo8=0,ch=0,act ： 0,ss=0 
JS=1/* ジ a イスティック W 子器サ拿 / 
srm=2 /♦ 画面モードデフオルト */ 

/♦ け： 512 け 12,16/ 1:512*512,65535/ 2:768 け 121 拿 / 
8cm=0 /% 巧 H サイズデフオルト 》/ 

/*(0:768 け 12/ 1:102 い 1536/ 2:512*512 / 3:512*1536 

XW( 3)= {96,128,64,64),YL( 3)= {512, 1536,512, 1536) 

03(31),FULLCOL(255),cnvcol(6) 

PALSC(3,6)=( 0,31,0, 0, 0, 0, 0 
,0,14,24,31, 0, 0. 0 
,0,11,19,26,3 し 0, 0 

.0, 8,14,19,24,28,31 ) パ対な々ーブになつ 
CNVSC(5,6)r{15, 0, 0, 0, 0, 0, 0 


move.b 

(a2,d3.w),d3 

asl.b 

move.w 

*2,d3 . 

2(a5,d3.w),|al) 

auba.w 

a4,al 

dbra 

d5,t3_dotloop 

dbra 

d6,t3_columnloop 

lea 

128(a0),a0 ; 

addq.l 

#2,a3 


ホラインのアドレ 


t2_colLimloop 

raove.w 

巧 

raove.w 
nnve.w 


t2_dotloop 


rol.w 
move.b 
andi.w 
move.b 

rol.w 

move.b 

andi.w 

move.b 

add.b 

rol.w 

move.b 

andi.w 

move.b 

add.b 

aal.b 

raove.w 

suba.w 

dbra 

dbra 

lea 

addq.l 

movea.l 


lea 

lea 

movea.1 
movea.w 

move 

t3_newline 

move 

t3_coluBnnloop 

move 


256(a0),dl 


128(a0),d2 

(a0)+id3 


#2,dl 
dl.dO 
#3 •加 

{a2,d0.w),d4 

がぶ 
d2,d0 
#3,d0 

(a ミ , d0.w),d0 
d0,d4 

#2,d3 
d3,d0 
t3,d0 

(a2,d0.w),d0 

de,d4 
#2,d4 

2(a5,d4.w),(al) 
a4,al 拿 

d5,t2_dotloop 

d6,t2_columnloop 

256(a0),a0 
«2,a3 
a3,al 

d7,t2_newiine 


< テキストのデープ 
*(dl-d3) 

♦ 8 ド..,卜巧っ 

♦ 化 ]=6 ドットより 


3 ライ 


旧点を打つ 


がわ輝な合れ 


•つ上の点のアド 


♦ホライン巧巧のアドレス 


•MODE 3,1024 1 1536 to 512»768,5 colors 

♦a3 = グラフィックを下アドレス 


VTABLE2,a2 
GVLBH,a3 
a3,al 
#2048,a4 


が 68 - し d7 
#64-1,d6 
128(a0),dl 
(a0)+,d2 


»d7 = ラインカウンター 
*d6 = 々ラムカウンター 
» テキストのデータ、 2 ライン 


►編化巧!の中で「カノツサの關辟」（フジテレビ）を兒ている人いませんか？ 私はかめて 
98 Oh ! X 1990.9. 兄たとき，才ープニングと r 勺がのギャップじ大笑いしてしまいました。 

おネホお史 (21) 神を川典 


a3,al 

d7,t3_newline 


ンー巧な蜜巧テーブル 
•3-2 ドット 

000 
001 
010 
011 
100 
101 
110 
111 


( 4 ほ巧： 


0000 

0001 

0010 

0011 

0100 

0101 

0110 

0111 

1000 

1001 

1010 

1011 

1100 

1101 

1110 

1111 


卜•ヴ 


5巧巧 


卜‘ヴ 


3 巧巧 



456 

457 


461 

462 

463 

464 

465 

466 

467 

468 
4 的 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 


506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 


U ス 


nt i,g(6)={31,28,24,19,14,8,0) 
icreen 1,3,1,1 
console 0.32,0 
’or i = 0 to 5 
g(i)=h8v(0,0,g(i)) 

>ext 

:olor [65534,0,0,0] 

げ int "Ready. Please Scan." 
lean (し 0,128,1536) 
solor [ 0,0,0,0 ] 

: tog(0,2,g) 

:1a 

:olor [0,65534,65534,B55341 
*nd 


,3, 

2,1,0, 

0, 

0, 

0 

,4, 

3, 2,1, 

0, 

0. 

0 

,6, 

5, 4 ， 3, 

2, 

1, 

0 

• 3 し 

24,14, 0, 

0, 

0, 

0 

.31, 

28,24.19, 

14 , 

8, 

0) 


int imgbuf(5100) 
char palbuf(32) 

char MTHEAD(9)={2,0,0,2,168,1,224,0,0,0) 
str meaaagel 100) .maski10] 

/* 

/*= MAIN MENU =====z=====r===r====================== ♦/ 

/♦ 

init() 
flush() 
els 

ご e38age="[ H 面モード】 [ 巧り达み 1 【二值化】【 巧 存]【 

田 aak="»<>*>" 

while 1 

if cures 2 or sa>0 then ina8k[2]=32 else roask[ 2] =42 
els : tmp=menu(2, し message,mask,ch) 


k-s 

e a e 
u e r 

打 r b 

t ••) 
n )( 
o (d 
c do 
0 m 

n m n 
e r a 
h c c 


1 h 
- 0 0 1 

p ph e e 
m m c 8 s 
111 a a 
rice 
f h w 
i c a 

56789012346678 90] 123456789 
2222233333333334 T 444444444 


打 

を 

巧 


つよ 

な卜 


ン 

- 

夕 

•、 

/ 

の 


13 3 3 2003 
dddd d d d d 
2 13 2 

# d # # 


S ががががのが 


w w w w w . w w 

瞬 Jlli 論就 


-12 


to ^ w 1 1 1 ブ bbbbbbbb bbbbbbbbbbbbbbbb bbbb 
芳 ' c かかわ おド 差か£か萬 お棄おか畫お茫か蓋若心 心-^心 

心 

心 W W 固 齡 削 
ii t- ^ 用 ：： W が § 

た K お ：： W W W 

01234567890123456789012345678901234567890123456789012345 
33333333334444444444555555555566666666667777777777888888 
55555555555555555555555555555555555555555555555555555555 


rcvfccctccc 

12345678901234 


3 






















50 case 2 : bicol() : break 

51 case 3 : file();break 

52 case 4 : quit() : break 

53 endswitch 

54 endwhile 

55 end 

56 /# 

57 / 拿 = CHANGE SCREEN MODE ===== 

58 /» 

59 func acrmod() 

60 int tmp,sd=0 

61 atr messa2e[64 】 

62 message："( 512x5121( 


68X5121 【的 0 巧 


63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 


if srm=2 then ad=1 
tmp=menu (11,2, message ， •.♦ い ..， ad ) 
if tmp=-l or t 田 p=2 then return() 
if t 田 psB then { 

messages "[ 16 色 1[65535 色 U 巧 0 消し It" 

tmp=menu( 23,3, message srm+2 り 8rm=2 ) > 

if tmp=-l or tmp=2 then return() 

)else { 
tmp=2 


8rm=tmp:ss=0 
waitmes():flush() 

75 endfunc 

76 /♦ 

77 /*- REDRAW SCREEN -- 

78 /♦ 

79 func fLush() 

80 wipe():home(0,0,0) 

81 if 3rm=0 then { 
化えないい 


! 、 SWITCH 文の中ではブロック IF 义が 


img_scrn(1,1,1):vpage( 1 ) 
white=15 

if 8cm=2 then home(0,426,0) 
if 8cm=1 or scm=3 then I 

curc=7 : curs=3:paldef() : cnvdef() 
ttog(2,2,cnvcol) 

)else { 

curc=4 : cura=1:paldef() : cnvdef () 
ttog(2,0,cnvcol) 


: curs=5 : paldef() : img_3crn{1,3,1 


82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 ) 

119 endfunc 
120 パ 

121 / 拿一 CONVERT COLOR DEFINITION - 

122 /* 

123 func cnvdef() 

124 int i 
if 88=0 then { 

for 1=0 to 6 : cnvcol(i)=CNVSC(curs,i 
)elae ( 

for i=0 to cure—83—1:cnvcol{i)=white:next 
for l=curc-88 to curc-1 : cnvcol(i)=0:next 


if arra=l then 
img_scrn(1,2 
white=QS(31) 
if scm=2 then home(0,426,0) 
if 8cra=1 or acm=3 then { 
curc=7 : cnvdef(1 
ttog(2,2,cnvcol) 

} else { 

curc=4 : cur9=4:cnvdef() 
ttog(2,0,cnvcol) 

) 

return() 

) 

if 8rm=2 then { 
i 田 g_acrn12,0,1) 
whlte=15 

if 8cm=2 then home(0,896,0) 
if scm=1 or scm=3 then ( 

curc=5:curs=2:paldef() : cnvdef() 
ttog(2,3,cnvcol) 

)else { 

cures2 : cura=0 : paldef(I : cnvdef() 
ttog(2,1,cnvcol) 


) : next 


125 

126 

127 

128 

129 

130 

131 endfunc 

132 /» 

133 /»= EXECUTE SCANNING ===============================</ 

134 /* 

135 func 8canmod() 

136 int i,xw,yl 

137 Btr message [200] ,dns[16],dir[16] 

138 messages" 【 400dpi : 48 X 32mm ( い 】 [ 400dpi : 64 X 96mm ( 一 ）]【200 
dpi : 64 X 64mm ( い 】 [ 200dpi : 64 x 192ram ( 一 ）） I 巧 〇 消し J f.. 

139 tmp=menu (11,3, message ， "♦♦ け *.., sem) 
if tmp=—1 or tmp=4 then return!) 

8cm=tmp 


140 

141 

142 

143 

144 

145 


els:wipe():txtclr(3,0) 
colortGS(30),C1,C2,C3] 
If scm=2 or acm=3 then 


txtclr(2,-1) 

txtfill(2,O,0,512,512,&HAA55AA55 


146 

147 

148 

149 

150 

151 

152 
下さい 

153 aoan(JS,2,XW(scm),YL(scm)) 

154 88=0： color( 0 ,Cl,C2,C31 


else 


if 8cm=0 or scm=2 then 
else 


txtf111(3,512,0,512,512,-1 
dn8=" 率 （ 200dpi)" 
txtclr{2,&HAA55AA55) 
dn8 = " なおな （ 400dpi )") 
dir=" 上から下へ " 
dir=" をからも， 


meBprint ( しし"巧ね密度を "♦ dn 8 + " じセツトし、 "+ dir +" 巧んで 


155 els : waitmes() : flush() 

156 endfunc 

157 ft 

158 / 拿 = TO 2 COLORS ============================= 三 ======»/ 

159 /* 

160 func bicol() 

161 int i,tmp,sr8=0 

162 str message^ 64] 

163 me88age=righ け （"[ 6 ][ 5 ] [ 4 】（ 3]【2 ][11 [巧消 jr,cu 

rc*5+2) 

164 if 8rm=1 then srs=1:srm=0:waitmes():flush() 

165 act ： 1 : els 

166 tmp=menu( 2,1, message •.. り *♦ 章り " ， int( curc/2 )-1) 

167 act=0 

168 if 8rs=l then srm=1 

169 if (tmp=-l or tmp=curc-l) then { 

170 If sr8=0 then paldef(J:return い 

171 )else { 88=curc—tmp-1) 

172 waitmes() : flush() 

173 endfunc 

174 /» 

175 /*= SAVE FILE ======================================»/ 

176 /♦ 

177 func file() 

178 int tmp 

179 atr 田 esBage【64 ] ,mask 【 10] = .. » 

180 measager" 【 .GSSU.PICU.CUTU 巧淸 】【" 

181 if sr 田 =0 then mask(0)=42 

182 if 8rm=2 then mask(0)^42 : if a8>0 or 8cm=0 or scm=2 then m 
a8k[2]=42 

183 switch menu(11,5,message,mask,0) 

184 case 0 : gsSsave() : break 

185 case 1 : piesave():break 

186 case 2 : cutsavel) 

187 endswitch 

188 endfunc 

189 /拿 

190 /*- .GS3 FILE SUPPORT -•/ 

191 /拿 

192 func gs3save() 

193 int i,j,p,fp 

194 str fnmi32 J 

195 if srm=2 and scm< > 2 then t.xtfilK 1,512,0,256,312 ,&HAA55AA 
55) 

196 fnm=fnminput(14,12,".GS3") 

197 if fnm="" then return{) 

198 if chkdskf(fnm, 13210 0) then return() 

199 clB:mesprint(-l,15, " " + fnm+".GS3 を巧巧しています。"） 

200 ira い ave( fnm+" .GS3..) 

201 if 88>0 or curs=0 then return() 

202 fp=fopen(fnm+".PLS","c") 

203 if fp=-l then fileerr ("パレツト "）；return ( > 

204 cl8:rae9print(-l ， 15," バレットファイル .. 卡 fnra*.. .PLS を巧在 
しています."） 

205 for 1=0 to 31: palbuf(i) =0: next 

206 for i=0 to 6 

207 p=PALSC(curs,i) 

208 palbuf(i«2)=p ¥ 256 

209 palbuf(i*2+l)=p mod 256 

210 next 

211 fwrite(palbuf,32,fp) 

212 fcloae{fpj 

213 endfunc 

214 /♦ 

215 /»- .PIC FILE SUPPORT - ♦/ 

216/* A P I C . R をお待ちの方へ */ 

217 func piesave{) 

218 int ec,fp 

219 str fnm[32] 

220 fnm=fnminput(14,12,".PIC") 

221 if fnm="" then return い 

222 cl8:mesprint(-l ,15," '• + fnm+" .PIC を巧巧しています 。" > 

223 ec=child( "APIC /S .. + fnm) 

224 if ec<0 then errmesC* APIC.R の起 化に 失化しました，"） 
: return() 

225 if ec>0 then f ileerr( "PI C " ) ： returni ) 

226 console 0,31,0 /♦ APIC_G. R は田面モードをな W しない 

*/ 

227 fp=fopen("CON","w"):fwritea(chrS(27) + "(>5h",fp) : fcloseC fp 


228 田 ou8e(2);mouse(4) 

229 endfunc 
230 パ 


231 It- .CUT FILE SUPPORT - 

232 /» モノトーンをお持ちの方へ 

233 func cutsave() 

234 int mx I my•bl , br , fp 

235 str k(l],fnm(32] 

236 cla : mouse(1) ： txthome(44,16) 

237 home(0,0,0) 

238 txtrev(1,86,30,684,2) : txtrev(1,86,612,684,2) /* 

239 txtrev(l,86,32,2,480) ： txtrev(1,768,32.2,480) 

240 txtrev(0,86,30,683,1) : txtrev(0,86,512,683,1) 

241 txtrev(0,86,31,1,481);txtrevJ0,768,31,1,481) 

242 meaprintt 13,3," 巧在する巧 H を巧まして下さい"） 

243 maarea( 0 ,0,88,32):8etmspoa(44,16) 

244 while 1 

245 m88tat(mx, 田 y,bl,br) 

246 if br or bl then kbfree() 

247 mapoB(mx,my) 

248 k=inkey$(0):ak=aac(k) 

249 if ak then { /» 巧いけど高速化のみ 》/ 

250 switch ak 


251 

252 

253 

254 

255 

256 

257 


case 28 : mx = inx- (mx< 88 J - (mx< 87 ) : break 
case 29 :mx=mx+(mx>0J + Imx>1 い break 
case 30 : my=my+(my>0)♦(my>1):break 
case 31:iny=my—( ray < 32 ) — (my< 3 い 



setmspos{mx,ray) 


♦ / 


停*/ 


►今年の•まおの鉄則は「ポピュラス J を巧わないことです。 


巧口友則（18》巧が W 


ハンディイメージスキャナアダプ^の製作 タタ 

















258 txthome(88-mx,32-ray) 

259 if blor ak=13 or ak=32 then fnm=fnminput(14,5,".CUT") : 
break 

260 if hr or ak=27 then break 

261 endwhile 

262 txtcirl0,0):txtclr(1,0):txthome(0,0) 

263 if f 打 mO"" then if chkdskf ( fnm,41000)=0 then { 

264 fp=fopen(fnm+".CUT","c") 

265 if fp=-1 then { 

266 fileerr(" CUT") 

267 ) else ( 

268 cU:mesprint (-し 15," " + fnm+".CUT を巧巧しています。"） 

269 fwrite(MTHEAD,10,fp) 

270 hget(mx,my,85,240,imgbuf) 

271 fwrite(imgbuf, 5100 ,fp) 

272 hget(mx,my+240,85,240,imgbuf) 

273 fwrite(imgbuf,5100,fp) 

274 fclose(fp) 

275 ) 

276 ) 

277 mouse(2) 

278 if sc 田 =2 then home(0,896,0) 

279 endfunc 

280 /♦ 

281 / 章一 CHECK FREE_A 反 EA SIZE - ♦/ 

282 /拿 

283 func int chkdskf(fnra:str,si 之 e;int) 

284 int d ,1,r 

285 if instr(l, fnm,••:••) then { 

286 d=fnm[0】-64 

287 if d>26 then d=d-32 

288 ) else d=0 

289 if dskf(d)>=8ize then return(0) 

290 errines(" ディスクの空き容量が巧りません。"） 

291 return(-l) 

292 endfunc 

293 /拿 


294 /»- INPUT FILENAME - 拿 / 

295 /拿 

296 func str fnminput(xpoa ; int,ypos;int,ext;str) 

297 int xa,xx=0,ak,dmy,bl,br 

298 str fnm[20) = "",k(l】，mes 【 20j：：" フアイル名 ：" 

299 mespri 打 t(xpos , ypos,mes+apaceS(20)+ext) 

300 x8=xpo8+12 

301 while 1 

30 之 locate xs+xx,ypos 

303 color 9 : print" '* ； chr$ ( 29 ); : color 3 

304 k=inkey$ : ak=a3c(k) 

305 switch ak 

306 case 8 /» か j 巧 */ 

307 case 29 

308 case 127 

309 if xx=0 then break 

310 xx=xx—1 

311 color 11 : print'* ; : color 3 

312 fnm(XX)=0 

313 break 

314 case 13 /t が 了 */ 

315 case 32 

316 color 11 : print** " ; : color 3 

317 if xx = 0 then return 

318 mesprint ( xpos + 6 , ypos+2 •" よろしいでずか*? [Y/N] 

319 repeat 

320 k=inkey$(0) 

321 msatat{dmy,dmy,bl,br) 

322 until k<>"" or bl or br 

323 kbfreen 

324 if instr(1,"Yy ン " ， k> or bl then return(fnm) 

325 case 27 

326 return! ••") 

327 default 

328 if xx=19 or ak<32 then break 

329 color 5 : print k;rcolor 3 

330 txtrev{1,(xs+xx 》 *8,ypos 拿 16,8,16) 

331 txtrev(0,(xs+xx)*8,ypos*16,8,16) 

332 fnin[xx]=ak 

333 xx=xx+l 

334 endswitch 

335 endwhile 

336 endfunc 

337 /♦ 

338 />= QUIT ============:===============r=r=============»/ 

339 / 拿 

340 func quit() 

341switch menuni •6,"[ 原画巧な]【原画消ま] I 取り消し j 【 ’V * パ"， 

342 case 0 

343 screen 2,0,I,0 : palinit() : spowerlJS,0)：end 

344 case 1 

345 txtclrt 2,0):txtclr(3,0) : width 96 ： spower(JS,0):end 

346 endswitch 

347 endfunc 

348 / 本 

349 /♦= CHOICE ITEM ON MENU = = = = = = 二 = = = = = = = = = = = = = = = = = :: = = = = ♦/ 

350 /< 

351 func int menu(x;int,y ； int,message;str,mask;str,choice;int) 

352 int dx,dy,bl,br 

353 int i=0,yy=0Ips=2,dlm 

354 int 1,ak,mmax,yl,mwidth=0,xp,xw,tmp 

355 str k[l],me3(10) 

356 xp=x 本 8 

357 while 1 

358 dlm=instr ( ps ,message, " H ••) 

359 if dlm=0 then break 

360 mes(i)=mid$(message,ps,dlm-ps) 

361 l = len(me3(i)):if い mwidth then mwidth 三 1 

362 ps=dl 田 +2:i=i+l 

363 endwhile 


364 mmax=i—1 

365 yl = mmax 本 16 + 23 

366 xw=mwidth ， 8+18 

367 while 1 

368 if mask[choice] <>32 then break 

369 choice=choice+l 

370 if choice=mmax 卡 1 then return(-1) 

371 endwhile 

372 txtfilK1,xp—3,y 本 16 —3,xw 牛 5,yl,0) 

373 txtfill(0,xp-3, パ 16-3,xw+5•yl,0) 

374 for i=0 to mmax 

375 if mask[i]=32 then color 6 else color 5 

376 locate x+1,y+i : print mes(i) 

377 next 

378 color 3 

379 txtrev(1,xp — 3,y 本 16 —3,xw 牛 5 , y1) 

380 txtrevt 0,xp-2,y>16-2,xw+2,yl-3 》 

381 while 1 

382 txtrev(0,xp-l,(y+choice)♦16-1,xw,18J 

383 action(choice) 

384 while 1 

385 k=inkeyS(0) : ak=a8c(k) 

386 m3stat<dx,dy,bl,br) : yy=yy+dy 

387 if yy> 5 then ak = 31 : yy=0 

388 if yy< - 5 then ak=：30 : yy=0 

389 if ak 牛 bl+br=0 then continue 

390 kbfree() 

391 if ak=13 or ak-32 or bl then return(choice) 

392 if ak=27 or br then return!-1) 

393 if ak=31 then { /< Down t/ 

394 txtrev(0,xp-1,(y+choice)*16—1,xw,18) 

395 tmpschoice /» Skip */ 

396 while tmp<(mmax) 

397 tmp=tmp 牛 1 

398 if maakftmpj <>32 then choicestmp:break 

399 endwhile 

400 break 

401 ) 

402 if ak=30 then { /» Up */ 

403 txtrev(0,xp-1,(y+choice)♦16-1,xw,18) 

404 tmp=choice /♦ Skip 本 / 

405 while tmp>0 

406 tmp=tmp—1 

407 if maskC tmp] 0 32 then choices tmp: break 

408 endwhile 

409 break 

410 ) 

411 endwhile 

412 endwhile 

413 endfunc 

414 /♦ 

415 / 拿一 ACTION AT CHANGING LINE - 本 / 

416 /» 

417 func action(ch;int) 

418 int i 

419 switch act 

420 case 1 

421 if ch=curc—1 then paldef():return() 

422 for i=0 to cure-ch-2:palet(i,0):next 

423 for i=curc—ch—1 to cure—1:palet(i,GS{31)>:next 

424 endswitch 

425 endfunc 

426 /♦ 

427 / 本 = PRINT MESSAGE = = = = = = = 二 = = = = = = == = = = = == = = = = == = = = 

428 /» 

429 func mesprint(xpos ； int,ypos;i 打 t,message ； str) 

430 int X,y,1 

431 if xpos=—1 then xpoa=32—(sr 扣 =2)♦16—int(len(messageJ/2) 

432 x=xpos*8 : y=ypos»16 : 1=len(message)>8 

433 locate xpos,ypos 

434 color 目 ： print message こ color 3 

435 txtrev ( 1, ぃ 2, グ -2, い 5,21 》 

436 txtrev(0,x-l,y-l,1+2,18) 

437 endfunc 
438 パ 

439 / 京 — WAIT A MOMENT - ♦/ 

440 /» 

441 func waitmes() 

442 mesprint (• し 15," しばらくお恃ち下さい。"） 

443 endfunc 

444 /♦ 

445 / 本一 CANNOT CREATE FILE - ♦/ 

446 /♦ 

447 func fileerr(fnm ； str) 

448 errmes(" " + fnm+" ファイルが f 乍巧できません。"） 

449 endfunc 

450 /♦ 

451 / 拿一 ERROR OCCURED! - </ 

452 /拿 

453 func errmea(mes : str) 

454 int d,1•r 

455 els ：mesprint (-1,15,mes + ** [ 巧 K ] •• J 

456 beep 

457 repeat 

458 msstat(d,d,1,r) 

459 until inkey$(0) く >"" or 过 or 1or r 

460 kbfree() 

461 endfunc 

462 / 拿 

463 / 拿 = HOUSE KEEPING == = = = = = = = = = = = = :: = = = = = = = = = = = = = = = = = = = 本 / 

464 /拿 

465 / 本一 INITIALIZE & DEFINE CONSTANTS - t/ 

466 /拿 

467 func init() 

468 screen 2,0,1,1 : console 0,32,0 

469 Cl = hsv(0,0,26) /t が遺巧巧のを 》/ 

470 C2 = hsv(0,18,12 》/♦ 文すとがの色本ン 

471 C3 = hsv(0,0,31 )/t 巧幾の色 */ 

472 palinit() 


100 


Oh ! X 1990.9. 


►もを近，腿の調子が悪く，償の腹の中でたくさんの人が i 召にはまっていきます（ゴボシ， 
ゴボシ）。 が知健 （19) を都府 


















plane : 

xl : 
yi : 

xw : 

yw : 

style : 


テキスト面面のほ意の炬お巧城ををりホし 
ます， jrXFILL を巧ぶどけです。 


(void) txthome(x,y ； int) 

x,y :テキスト囲面を示位 a 
テキスト菌面をスクロールします。 

T X T F I しし 

(void) txtfill(plane,xl,yl,xw,.vw,style ;int) 


ij ス h4 


======== :: SCANSUPPORT.S =====r============ 

拿本 ♦ 本本 ♦♦♦♦♦♦♦♦ 拿 ♦♦♦ 本拿本 ♦ 拿 ♦ 本本♦本 ♦ 本 ♦ 本 ♦♦♦ 本 ♦♦♦♦ 本本本本♦家本 ♦♦ 

X - BAS I C 化巧閒巧ライブラリ 
( X C ライブラリお巧 ） 

スキャナードライバーサボート閒をが 

SCANS UPPORT.FNC 


Version し 03 

Presented by Hayashi Art Products 1990 



T X T C L R 


( viod ) txtcir { plane,style ； int ) 

plane :テキストブレーンナンバー 
〇〜3 

style :ペイントスタイル 
&hxx XX XX XX 

r ~ ■ t 

1ライン目…4ライン目 

テキスト画面を style r 巧をされるパターン 
でクリアします。 


TXTPAL 巳 T 


♦ (int) child(cli ;str) 

t 

* cli :コマンドライン 文字列 


» テキスト画面のほなのをが巧巧を反お 
♦します。これも _TXREV を呼ぶだけです。 

本 

♦ 

♦ 

* - .CUT フアイルサボート用〜〜 

t 

♦ H G E T 


2 

3 
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5 
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7 

8 
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26 

27 
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31 
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41 
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46 
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55 

56 

57 
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.include 

FDEF.H 

.include 

lOCSCALL.MAC 

.include 

DOSCALL.MAC 

.globl 

_txtclr 

•globl 

_ t\tpalet 

•globl 

txthome 

.globl 

こ txtfill 

.globl 

-txtrev 

.globl 

hget 

.globl 

—child 


けけ*けマクロを巧けけけ本 


PUSH macro REG_LIST 

mov^.l REG_LIST,-(sp) 

endm 


►ポピュラス本 f 本では空飛ぶじゅうたん，プロミストランドではカニの化け物。マップを 

が断しながら山脈を作っていくこいつらは何をなんでしよう？中—化化さ貝お (22) 神を川 Ml ハンデイイメージスキヤナアダプタの製作 202 


473 mesprint(-1,15," Handy Scanner Driver & Filer vl.OO bv 

.•") 

474 apower(JS,0) 

475 mouse(0) ： mouse(2) ： mouse(4) 

476 for i=0 to 31 : GS(i)=hsv(0,0,i) : next 

477 for i=0 to127 

478 FULLCOL(i 本 2)=i 本 514+1 

479 FULLCOL (い 2+1)=FULLCOL(i*2) 

480 next 

481 for i=0 to 3 

482 for j=0 to 6 

483 PALSC(i,j)=GS(PALSC(i,j)) 

484 next 

485 next 

486 for i=4 to 5 

487 for j=0 to 6 

488 CNVSC(i,j)=GS(CNVSC{i,j)) 

489 next 

490 next 

491 endfunc 

492 /* 

493 / 本 _ TEXT PALET INITIALIZE - ♦/ 

494 /* 

495 func palinit() 

496 int i 

497 for.i=0 to 3 ： txtpalet(i*4,0) : next 

498 for i=0 to 3 : txtpalet(i*4+l,C1) : next 


499 for i=0 to 3 : txtpalet(i»4+2,C2) : next 

500 for 1=0 to 3 : txtpalet(i*4+3,C3)：next 

501 endfunc 

502 /本 

503 /*- GRAPHIC PALET DEFINITION - ♦/ 

504 /* 

505 func paldef() 

506 int i 

507 if curs> 3 then { 

508 for i=0 to 255 : palet(i,FULLCOHi))：next 

509 ) else { 

510 for i=0 to 6:palet(i,PALSC(curs,i >，： next 

511 pale り 15,GS(31)) 

512 ) 

513 endfunc 

514 /本 

515 /*- KEY & BUTTON FREE ? - ♦/ 

516 /* 

517 func kbfree() 

518 int dd,d し dr 

519 repeat : until inkey$(0 )="" 

520 repeat : msstat(dd,dd,dl,dr) : until dl+dr=0 

521 endfunc 

522 /* 

523 /♦= FIN = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = :: = = = = = = = = = ♦/ 

524 /* 
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init_adr 

run_adr 

end_adr 

ay8teni_adr 

break_adr 

input_adr 

reserve1 

reaerve2 

token_adr 

parameter_adr 

exe adr 


return 

return 

return 

return 

return 

return 

return 

return 

token_table 

parain_adr_ tabl e 

exe table 

5 


txtclr",0 
txtpalet*',0 
txthome",0 
txtfill",0 
txtrev",0 
h か t..,0 
child", 0,0 


txtci rjparain_table 

txtpalet_paraiii_tAble 

txthome_parani_table 

txtfill_parain_table 

txtrev_parain_table 

hge t_parara_ tabl e 

child_param_table 


POP macro REG_LIST 

novem.l (ap)+,REG_LIST 

endm 

けけ 《 け V R A M アドレス け♦けけ 

T0RAM equ 化 00000 

GVRAM equ $C 00000 

******* X - B A S IC 巧 ヘッダけけ*け 


.text 
.even 


a n e , sty 


.even 

X-BASIC ェントリ 
txtclr 


拿 C エン 

t 

_txtclr 


move.! 

12(sp)td0 

move. 1 

22(8p),dl 

PUSH 

d0-dl 

bsr 

_txtclr 

lea 

4*2(sp),sp 

moveq.1 
rts 

♦0,d0 

ソ 

LINK 

a6 • が） 

PUSH 

dl-d3/a0 

roovem.l 

8{a6),d0/dl 

andi.1 

#3,dC 

moveq.1 

tl,d3 

Isl.w 

d0,d3 

asl.w 

*l,d0 

swap.w 

d0 

lea 

TORAM.aO 


パ I なブッシュ 


*d3 = コピーブレーン巧を 
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tcloopZ : 


tcLoop4 ： 


adda.l 

dO,a0 

clr.l 

-(sp) 

DOS 

-SUPER 

move.w 

rol.l 

move.b 

dbra 

*128-1,d2 
#8,dl 
dl,(a0 け 
d2,tcloopl 

moveq.1 

#128-1,d2 

rol.l 

#8,dl 

move.b 

dl,(a0 い 

dbra 

d2,tcloop2 

moveq.1 

#128-1,d2 

rol.l 

move.b 

«8,d1 
dl,laO け 

dbra 

d2,tcloop3 

moveq.1 

#128-1idZ 

rol.l 

が , dl 

move.b 

dl,(aO) + 

dbra 

d2,tcloop4 

move•1 

dO,(sp) 


move.w 

move.w 

IOCS 

POP 

UNLK 

rts 


-SUPER 
4{sp),8p 

#$0001, dl 
#256,d2 
_TXRASCPY 

dl-d3/a0 

a6 


♦a0= テキ : 


> と 0 あう 


♦巧〇ラヌ 
* 2 5 6 ラ 
♦下方向じ 


pa 


.even 

拿 

* X-BASIC ェントリ 

本 

txtpalet 



move.1 

12(sp),d0 



move.l 

22(8p),dl 



PUSH 

d0-dl 



bsr 

_txtpalet 



lea.l 

4*2(sp),sp 



move.l 

dO,return val 

» おり值 


moveq.1 

#0,d0 



lea.l 

rts 

ret_val_adr(pc) 

• aO 

拿 




» C エント 
t 

' IJ 



—txtpalet 

LINK 

PUSH 

a6,#0 

dl-d2 



movem.l 

8(a6),dl-d2 



andi.l 

#$F,dl 



IOCS 

_TPALET2 



POP 

dl-d2 



IJNLK 

rts 

a6 


* t X t 

home ( X ■ 

, y ) 



.even 

X-BASIC ェントリ 
txthome 


* C エン I 

♦ 

txthome 


move.1 

12(sp),d0 

move.l 

22( 叩） id 】 

PUSH 

dO-dl 

bar 

-txthome 

lea.l 

4*2(sp),sp 

moveq.1 
rts 

*0,d0 

リ 

LINK 

a6,»0 

R ! 细 

dl-d3 

moveq.1 

♦8,dl 

movem.l 

8(a6),d2~d3 

IOCS 

-SCROLL 


POP 

UNLK 

rts 


dl-d3 

a6 
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►おいですむ。ぉまけに眠いです。巧くて贴いときはやっぱり X 68000 を起動させるべきな 
のではないでしようか？ 巧水を巧 (22) 神を川哄 
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► マジックバス！ 才ークスタ—！ なつかし一。1982ザ-12巧号の表紙には另/兑•えがあり 
ます。あの巧はハドソンのゲームのリストが拇脱してありましたね。倉けり100号，おめでと 
うございます。 船山を±(21)が玉與 
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表現 


少 y チ■-ム DoGAaj ^ v^Ti 


今回は，マニュアルにも載っていない高度なテクニックの第1弾と 
いうことで，表現まをいくつか取り上げました。本誌の Graphic 
Gallery のサンプル画像と並行してご K 〈ださい。 


はじめに 


バージョンアップサービスの申し込み巧際了こ行った本 
連載へのアンヶートを集計してみるし意外にも「マニ 
ュアルにも載っていない高度なテクニック」を希望する 


であり，映り込みさえしていれば，ノ《ソコン CG として一 
人前といった時化もありました。 CGA システムのレンダ 
リングツールである民 END では，スキヤンラインという 
レイトレースより高速性を俊化したアルゴリズムを用い 
ているため，基本的に映り込みを表現することはできま 
せん。ですから，この手法は映り込んでいるかのように 


声が最も多くありました。をこまで CGA システムを使い 
こなしているとは到底思いません（失礼！）力ぞ，知って 
いて損はないし，皆さんの声を反映させるためにも，さ 
っをくさまざまなテクニックをま！：めてみました。 

/映り込み 

まずは，非常に古典的な手法で，床の映り&み （21 ぺ 
ージ•画像 1) です。鏡面などのツルツルな表面への映 
ウ込みは，透明体の屈す斤と並んでレイトレースの十八番 


ごまかすテクニック^いえます。 

図1をご費ください。まず， a ) は物体が床に映り込ん 
でいる様子です。 b ) は a ) から，映り込みはをのままじし 
て物体だけを除いた図です。をして C ) は，半透明の床の 
下に上下逆さまにした物体を置いた図です。よく見る 
と， C ) の床から透けて見える部分と， b ) の床に映ってい 
る部分は同じであることがわかります。 CGA システムで 
は半透明体をサポートしていますので，このような画像 
は備単にできます。つまり，映り这みは，半透明の床の 
下に，上下逆さまじした物体を置くことでをれらしく見 


リスト！ 映り込みのフレームフアイル 
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せてぃるだけなのです。 d ) のように，不要な部分を不透 
巧な面で隠せば， a ) とまったく同じ絵になります。同様 
じ， e ) のように半透明の壁を作り，をの向こうに左右逆 
さまの物体を置くことで，鏡のような効果を出すこ t も 
衙単です。 

さらにをれらしく見せるために，もう少し小細工を施 
しましょう。まず，床の場合，ただ1面の板では気分が 
出ませんので，チェッカーボードのように模様を入れて 
やります。このときのアトリビュートです力3'，透明度は 
0.3 ぐらぃが適当でしょう。をして，模様の中に1種類だ 
け 0.5 ぐらぃの面を混ぜてわくしをこだけ周りよりはっ 
きり t 映り込みをし，床のネオ質感がリアルになります。 

鏡の場合，床よりも透明度を高くして （0.7 ぐらぃ）， 
やや青みがかった色にするのがよぃでしょう。さらに芸 
の細かぃ話です力す，半透明の壁に f ) のような模様を入れ 
てわくと，もっと鏡っぽくなります。この模様はなんな 
んだ心聞かれると困るのです力5'，日本の漫画やアニメで 
は，なぜか鏡にはこんなスジを入れることになってぃる 
のです。 

これらのテクニックだけでも十分に人をだますことが 
できるのですが，よく考えるとウソがあります。 g ) のよ 
うに，本来映り込みの物体は，化の当たり方，陰影のつ 
き方も上下逆になるはずです。しかし床の下に物体を 
置ぃただけでは， h ) のようになってしまぃます。これを 
解決するのも備単で，まず，光源の位置や方おも上下逆 
にして， b ) のような画像を作画し，あとで物体だけの画 
像 L 合成するのです（最新版の民 END では，合成しなが 
ら作画するこ I ：ができます）。さらに，位置関係をよく考 
えれば， i ) や画像1のように映り这みの映り込みなんて 
器用なことらできます。画像1のフレームファイルと， 

民 END の実行の仕方などをリスト1にまとめますので， 
じっくり考えてみてくださぃ。 

しかしこれらのテクニックは，しよせんはごまかしで 

すので，曲面への映り込みなんてできるわけがな L . 

ことはありません。をの曲面から反射方向に見た圃像を 
あらかじめ計算してわぃて，をの画像ををの曲面にマッ 
ピングすればよぃのです。らちろん，やったことはあり 
ませんが……。 

^空気遠近法 

こ れは， ただぃま バージョンアップサービスを巧って 
ぃる最新版の民 END じ新しく加わった機能で，手軽なわ 
りに効果はをこをこあります。 

画像2と画像3 (21 ぺージ）をご黯くださぃ。空気遠 
近法いよ，遠くの建物や山々の大気によるかすみを表現 
して，奥行きを強調する手法です。画像2が従来のらの 
で，遠くの物もはっきり鮮やかなのに対して，空気遠近 
法を用いている画像3では，遠くの物ほど青白くかすん 


でいるのがよくわかるでしよう。 CG らしい鮮やかさは失 
う！ J のの，リアリティ，存を感というものが出ていると 
思います。 

アルゴリズムは非常に惭単で，プログラムの改造も， 
あっという間でした。 CG で隠面消まの計算をする I :きに 
は，必ず視点からをの物体（面）までの距離を求めます。 
をこで，色を計算する心きに，をの距離に応じた大気の 
色を加えてやるだけでいいのです。作画速度もほとんど 
変わりません。しかし，決して霧による散乱などを計算 
しているわけではないので，夜霧の中に}孚かぶぼやけた 
街頭のななどを表現するこ t はできません。 

さて，具体的な使用法ですが，今回配布する FFE はも 
ゃんと空気遠近法にが応してゎり，背景設定の中で指示 
どおりデータを入れていただくだけで設定できます。与 
えるデータは，〈距離〉と <色> 2種類です。〈色〉は上 
図1映り込み 



図 2 空気遠近法の距雕データ 
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し はっきり見えてほしいお圃_し 見えなくてよいお囲 

<距雕 > :はっきり見えてほしい距離の1/2从と 
この図では，2500 -5000 が適当 
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記にむあった大気の色であり，遠くの物体がどんな色に 
染まっていくのかを， RGB で与えます。空の色!：いうの 
は，ある意味で大気の色といえますので，通常この値は 
背景の色 t 同じになります。画像3では民 GB = 0. 2, 0. 7, 


参考コラム AMAP のアルゴ IJ ズム 


実際問題として，手イ乍業でマッピングする方も，まず AMAP で自お発生をさせた 
あとでエディタで手直しするというバターンが多くなると思います。そのためじ 
も， AMAP のアルゴリズムを知ってわくべきでしょう。ちょっと巧雑ですが，図を 
見ながら理解してく ださい。 

•アトリビュートファイルの变更 

マッピングの巧まとなるアトリビュートのを々じ，が下 4 つのデータが加わる。 
mapwind ( 0 0 255 255 ) 

mapview ( 0 0 255 255 ) 

mapsize ( 0 0 255 255 ) 

colormap (< 画像フアイル〉） 

〈画像ファイル> は， AMAP 実行時に指定されるファイル名が入る力《， mapwind , 
mapview , mapsize の名•パラメータは固定値となる。 

-形状ファイルの変更 

貼り付ける画像ファイルは i 256 x 図 a (0.0) (255,0) 

256の固定としている。だから， UV 座 
巧は図 a のようじみをする。 

またマッピングされるポリゴンが 
図 b のとき， AMAP じかける前のおが 
データはが下のようじなっている。 



art test 

prim poly ( 500 100 200第 I 頂点 
600 50 300 第 2 頂点 
650 200 350第3頂点 


第I頂点 


3 D のポリゴン 


第 3 T 頁点 



このとき，が下のようじして， UV ぺ 
クトルを求める。この時点では，原 
点(0, 0) はをまらず， UV 座巧ではない 
ただのベクトルである点じま意（固 
C )。 

U ベクトル：第2頂点一第I頂点 
Vぺクトル：第3頂点一第2頂点のベクトルの, 
U べクトルとの直交成み 



このとき. UV 平面上でのポリゴン 
の各頂点の値をポめ（図 d), 

U のあか値，巧大値 
Vのを小値，ホ大化を得る。 
次に， 

U のを小値を U の0 
U のを大値を U の255 
Vのあか値をVの0 
Vの巧大化をVの255とし， 

この UV 座巧[でのを頂点の UV 座巧を 
得る個6)。 

この結果得られるマッピングは 
図 f のようじなる。 

この例からわかるようじ，貼り 
がけられる画イ荣は，ポリゴンの形 
じよって，縦横に引き伸ばされる。 
また，第 I 〜第3頂点じよって， 
貼り付けられる方向がまをされる 
ため， CAD でお状データを作成す 
る曝.どの頂点から作成するかが 
ホ常にを要となる。図 g じ，この 
例と同じポリゴンじかし，頂点の 
傾番が異なつた場合の例を紀す。 



図 f 




1.0 としています。ただし，夕焼けとか夜とかの場合はま 
た異なる色を設定するべきでしょう。 

をしてちょっと雛しいのが < 距離〉のデータです。こ 
の〈距離〉がたとえば1000とすると，巧点から1000離れ 
た物体は，物体独自のをに大気の色が50%の割合で合成 
されます。では，2000離れた物体は100%大気の色になっ 
てしまうかという^をうではなく，1000からさらに1000 
離れているので，50%のさらに50% (つまり75%)が大 
気の色となり，物 f 本独自の色は25%になってしまうので 
す。ですから，この値よりも視点に近い物体は，あまり 
空気遠近法の影響がなく，この値の2倍よりも遠い物体 
は，かすんではっきり見えないといえます。つまり，こ 
の値が小さいとスモッグの濃度が濃くなるわけです。図 
2を参考に値を決めてください。 

FFE など使わずに，フレームソースをエディタで制作 
するノタワーユ_ザ_のためじ，フレームソ_スの書式を 
記します。空気遠近法のデータは，環境义 （ env 卜•り 
で指定します。 

depth (〈距離 >〈色 >) 

画像3の例では， 

env { back ( rgb ( 0. 2 0. 7 1. 0 )) 

depth ( 2500 rgb ( 0.2 0.71.0 )) 

} 

となっています。 

さて，この手法には意外なメリットがあります。遠く 
のほうはかすんで見えなくなるので，背景まで細かくつ 
くる必要がないことです。画像2では，いちばん奥の建 
物が，ただの直方体（あるいはただの板）であることが 
すぐばれてしまいます力 3 '，画像3では，なんら違和感が 
ありません。大きな都市をデザインする場合は，遠景な 
ど，ビル街の景クのおをした板を1枚用意するだけでよく 
なります。 

しかし，手軽に遠近感が強調できるからといって，か 
たっぱしから利用するのはいけません。たとえば，自分 
の部屋の中をシミュレートするのに使っても不自然にな 
るばかりです。もっとも，自分の部屋がドームが場より 
広いと力、，火事で煙が充満している t ころを描いてみた 
いという趣味でしたらご自由に。 

/マッピング 

大部分の方がご存じのことし酉、いますが，マッピング 
^は，木目や大理石の模様の画像データを3次元物体の 
表面に貼り付け，リアルなが質感を得る手法です。アン 
ヶートでもマッピングの使用法をを開してほしいという 
要望をたくさんいただきました。現在の CGA システムで 
は，マッピングに関するツールがまったくなく，操作が 
非常に難しいので，禁じ手とされていました力す，本日こ 
こに解禁したいと,思います。 
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理由は，今回のパ'—ジョンアップサービスのために， 
AMAP (自動マッピングツール）を制作しているからで 
す（"制作したからです"と現在完了形で書けないところ 
が悲しいのですが，をのへんの事情は「各読者通達事て頁」 
の コーナーを ご監ください）。 

f 追ホマッピングを行うためには，どの画像のどの部分 
をどの方向にどのように貼り付けるかということを，1 
つひとつの面ごとに指をしてやる必要がありました。 
AMAP では，アトリビュートと画像ファイルの一覧が表 
示されますので，マウスでこのアトリビュートの面には 
この画像を貝もり付けると指定するだけで，マッピングに 
必裳な形状ファイル，アトリビュートファイルを生成し 
てくれ……る予定です（よっ弱い）。これさえあれば，誰 
にでもわ手軽にマッピングができるようになる……はず 
です（まだ試したことがない）。 

こんなに便利な AMAP です力3'，細かな指定がなくな 
り，すべて自動でやっている U 上，微妙な表現ができな 
くなっているのも事実です。をこで，今回は手作業でマ 
ッピングをするのに必要な情報を公開しましよう。まず， 
画像4 (21 ページ）をご覧ください。凶惡なゴジラの出 
現によって，帝都来京が恐怖のどん底に叩き落とされて 
いる雾囲気がよくなわってくるでしよう（ウソ）。この画 
像（特にゴジラの顔など）は，本来マッピングの使い方 
とは異なります力す，表現方法しては面白いと思います。 
私は，今回初めてマッピングを使ってみました力す，この 
画像の制作がほんの数時間（大部分は 2 D の画像データの 
作成）なのですから，手作業でら意外 t 実用性があると 
いえるでしよう。 

マッピングを実行するために必要なデータは，アトリ 
ビュートファイルと形状フアイルの2つじ記述されます。 
もちろん貼り付ける画像ファイルを用意する必要はあり 


ます力 S '， 作画時（民 END 実斤時）には，この画像を指定 
する必要はなく， / G オプションをつけるだけでマツピン 
グが行われまず。 

•例 REND GOJIRA . FRM * • SUF * • AT 民 /G 
まず，アトリビュートファイルに記述されるのは下 
の4つのデータです。 

mapwind ( ul vl u 2 v 2 ) 
mapview ( ul vl u 2 v 2 ) 
mapsize ( ul vl u 2 v 2 ) 

図 3 MOYOU.PIC 



V 


図 4 [ UVPOLY ] GOJIRA . SUF 



図 5 マッピング例 



.. .，，、‘、：公 V ••が:ムイ •:'•た一‘.‘ み; 左 

今月は，マニュアルにも載っていないなをな 
表現の特おということで.ネット上で巧おされ 
た FFE の応用例を紹介しましょう。 

Graphic Gallery のウネウネとした アニメー シ 
ヨンをごおくださし、。 D5GA 内で「気を悪い」「趣 
ホ悪い」と絶巧された代物です。このようなサ 
イン曲面や巧などの規則的な形巧を CAD で制作 
するのはなかなか面倒なのですが，実は，この 
形がデータ，なんと FFE で制作したものなので 
す。 

FFE は従来フレームファイルを制作するツー 
ルとして利用してきました。 しかし，マニュア 
ルを読んでみましよう。どこにもフレームファ 
イルの妃述じ曲する部みがありません。 FFE は， 
¥〜¥の数がを計ち[するだけで，それが外のと 
ころには何を♦いてもそのまま出力されます。 
ですから，フレー厶データを*けばフレームフ 
ァイルが出力され，形状データを書けば形がフ 
ァイルが出力されるのです。もちろんそれが外 
のファイルでも，インタプリタ型の C を使う感 


モデラー高まの LOGIN 

觉でなんでもできます。 

巧単な例として，九九の表を出力させてみま 
しよう。か ep と# endrep の間を， x が I から 9 ま 
で繰り返されます。¥〜¥の部みが計ちされて出 
力されますから，このファイルを FFE じかけると 
かけ巧の九九の表ができるわけです。 

例九九の表 

@ 2 . 0 @ 

#rep( X, し 9 ) 

¥ I 本 X, 2 本 X, 3* X, 4 本 X, 5 本 X, 6 本 
X, 7 本 X, 8 本 X, 9 本 X ¥ 

#endrep 

Graphic Gallery のサイン曲面は，中'むからのキ 
径に対するコサインを Z 値とし，ホ線ベクトル 
も計算して， スムースシエーデ イングがかけら 
れるようになっています。高さをミ夫める関数 f 
(X. y ) を変えればいろんな曲面を表現でき 
るでしよう。今回のサイン曲面のリストは，掲 
載すると大きくなりすぎますので，ご希望の方 
はネツトじアクセスしてください。 


さて，今月のアップデータはかまたデザイン 
のビッグウィンドウワゴンです。今ならピーチ 
バラソルとビキニ GA しもついてきます。 

今年の春の「見化験フ I ア J で，自動車メー 
力一 のデザイナーの方から， "新車のプレゼンテ 
ー シ ヨンに使えるた•ろうか"という輿問を受け， 
"努力すればできないことはないでしょう"と 
いいかげんじ答えました。大阪じ戾ってから本 
当じそんな本格的なイまい方が可能だろうかとム 
配になって，自みて•制作してみたのがこのワゴ 
ンです。ですから， 15 秒の CM 風の アニメーシヨ 
ンになっています。おがデザインも 3 時 Pb3 程を 
ですし， CM の完成度もプレゼン テーシヨ ン用に 
は十みなデキでそこそこ満足しています。 

ところで，この GA し（をは LUNNA と申します） 
は平面でできていますが，こういった表現もな 
かなか面白いと思います。制作も楽ですし，へ 
たじ 3 D で作って不気ホなアンドロイドとなる 
よりはイラストチックな仕上がりじなります。 
皆さんもかわいがってやってください。 
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colormap (〈画像フアイル名〉） 
colormap で貼りかける画像フアイルを指定するとい 
うのは容易に予想できます力ほかの3つはさっぱりわ 
からないでしよう。ここではとりあえず，ただ単純に 
256 X 256 ドツトの画像を貼りかける設をとして， 
mapwind ( 0 0 255 255 ) 
mapview ( 0 0 255 255 ) 
mapsize ( 0 0 255 255 ) 

という値を入れてわきましよう。まず最初の注意として， 
これら4 つの データはアトリビュートフ アイルの 中で1 
度記述すればよいのではなく，民 GB の指定と同様に各ア 
トリビュートごとに必要であることを理解してください。 
•例 GOJIRA . AT 民 

atr dou { col(rgb (111)) 
amb ( 0.5 ) 
dif ( 0.5 ) 

mapwind ( 0 0 255 255 ) 

mapview ( 0 0 255 255 ) 

mapsize ( 0 0 255 255 ) 

colormap ( MOYOU . PIC ) 

} 

この例は，ゴジラの啊体部分に，図3のような模様 
( MOYOU . PIC ) を貼りがけようとしています 。 tra (透 
過率）や spc (スぺキュ ラー）を省略しています力 S '， 特に 
意味はありません。ちゃんと指定してやれば，マツピン 
グ&半透明も可能ですし，もちろん amb ， dif , spc のみえ 
方で陰影が変わるのはいつもと同じです。 

特に注目が必要なのは col です。 rgb が （ 1，1，1 ) つまり 
黃っ白になっています力す，よく考えるとをのポリゴンの 
色は貼りかける画像の色になるはずです。ですから，画 
用紙が白いの！:同じ理おで，をの面の色は文字どぉり白 
紙の状態じしてわくわけです。ここで何か色をつけてわ 


くと，色画用紙の上に絵を揃くように色が混じってしま 
います。正巧 i にいうと，民， G ， B ごとに and を取りますの 
で，赤いポリゴンの上に青い画像をマッピングするし 
真っ黒になってしまう (1X0 = 0) わけです。貼り付ける 
模様を白と黒だけで描いて，ホい面，青い面にマッピン 
グし，ホいゴジラ，青いゴジラを作るという使い方もで 
きます。しかし，ホ，青の模様の画像を用意するほうが 
わかりやすいので，マッピングをするときは，無を件で 
白にすると觉えてわいてまず問題はないでしょう。 

ホに形がファイルです。 CGA システムで扱う形状デ_ 
夕はポリ ゴン ですが，実はこのポリ ゴン にも4種類があ 
ります。 


poly 

:通常のポリゴンデ ータ 

shade 

:スムースシェーデイングができるデ_ 

夕 

uvshade 

••マッピングとスムースシェーデイング 

ができるデータ 

uvpoly 

:マッピングができるデータ 


poly は， 各頂点の3 次元座標( X ， y ， Z ) の値が羅列して 
いるだけのもっとも基本的なデータです。逆にいうし 
polyia 外のデータは，民 END じ [外のはとんどのプログラ 
ムが対応していないので，たとえば MIR 民じかけて，左右 
反転するなどといったことはできません。 

shade は， CAD でス ムースシエーデイ ングをかけると 
生成される デー タです。3次元座標のほかに，各項点で 
の法線べクトルが必要となります 力す， この法線ベクトル 
を エディ タでみえるのは，よほど単純なお状でない限り 
人閒ホ支では ありません 。 CAD のシエーディ ングの機能は 
バグがあるままですし，操作性も惡いので使いものにな 
りません。これら AMAP が完成してから使える デー タと 
いえる でしよう。 

uvshade は， スムース シェーデ イング ^ マツ ピングを 


繁編知.‘ぞ秘も絲 ’， 含4 ‘ 


如さふ 



CGA コンテストのビデオ配ホは予定より早く 
発送してきたので，的 GA も発送にれてきた 
んどなあ"と油断しているユーザーの皆さん， 

ご安'むください。バージョンアップサービスは， 
しっかり遇れる予をです。 

実は，せっかくのバージョンアップなのだか 
ら，夏休みで余裕もあることだしし2回生の 
修斤も兼ねて，もう少しいろんなツールを制作 
しようということじなったのです。画なデータ 
の左右を反おさせるというような，ホ常に巧単 
なものから，マッピングやスムースシエーデイ 
ングのデータを瞄単にを成するというパワフル 
なものまでを種制作中です。 

が下.制作中のプログラムとプログラマを紹 
介いたします。もし，バージョンアップのデイ 
スクじそのプログラムが入っていなければ，誰 
が巧としたのかひとめでわかるさらし者のコー 


る読者通達事項 

〈八ージョンアップサービス遅れる!〉 

ナーです。 

本 

AMAP :アヤシゲな屋……スムースシエーディ 
ング，マッピング用データ生成’ソール 
•難易を No . I 頭を抱えながらも果がに制作 
中 

REP :が育的寺田……画像データのをを定換 
したり，を明ビットの操作ができる 
•すでに巧お中。なかなか実用けがないと好 
評 

WIRE : GAVAN み田……ワイヤーフレームア 

ニメーシヨン 

•先日バイクで巧かり，包帯まきまきじて， 
落とす候補 No . I ! 

MFONT : ちま……义字データをお状データじ 
変換する 

.アルゴリズムもまピ考えていない。これで 


はたして完成するか？ 

HEDRO :小立……正多面体作成ツール 

.楽勝。もう完成したから，マッピング巧応 
おが中 

WIPER :中田……シーンのつなぎ目のワイプ 
が)果を成ツール 

-結巧マンマシンインタフェイスがたいへん。 
完成をぶまれる 

BW :中西……画像データを白黒に2化化する 
-楽勝！ どけどブログラム経験0の初心者。 
大丈夫ピろうか 

TURNS :不明……画像データの左右を裏返し 
じする 

S 巳 PIA : 不明……回想シーン用に，カラー画イま 
を白黒，セピア調に変換する 
-上級生がやれば I 日でできる。新入生のだ 
れかじやらせよう 
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兼ね備えたもので，3次元座標，法線ベクトル， UV 座標 
のすべてが必要となります。しかし，法線ベクトルを求 
めるのが人間おではないの J :.， このデータも手作業で扱 
うわけじはいきません。 

というわけで， uvpoly が今回のメインなります。通 
常の poly のデータと比べてみましよう。 

•例 [ poly ] GOJIRA . SUF 
atr dou 


prim poly (50 

-50 250 


50 

50 250 


50 

100 0 


50 

-100 0 ) 


)[ uvpoly ] GOJIRA . SUF 


atr dou 



prim uvpoly (50 

-50 250 

0 0 

50 

50 250 

255 0 

50 

100 0 

255 255 

50 

-100 0 

0 255 ) 


座標のことなのです。 

つまり，形状データの各項点に UV 座標を与えるという 
のは，各項点に画像データのどのドットが対応するかを， 
いちいち指定してやること•なのです。上記の例のアトリ 
ビュートとおがデータで作画させる t 図5のようになり 
ます。このように，貼り付ける画像が長方形で， 3 D のポ 
リゴンが台形だった場合，模様はポリゴンの形に応じて 
引き伸ばされるわけです。 

la 上がマッピングの基礎でず。なん L いっても UV 座標 
をみえるのが大変なので， AMAP を使用せず全部手作業 
で行•うのでしたら，ポリゴンは四角形力角形にとどめ 
てわく必要があります。 

/続マッピング 

基礎編で今回は終わろうし野っていたのですが，をれ 
では AMAP ii 大差ないので実用編を続けます。少しずつ 
雛しくなってきますので，がんばってついてきてくださ 


まず ， prim poly を prim uvpoly に置換します。ひとつ 
の开夕状データのなかで， poly と uvpoly が'混在していても 
閒題ありませんから，マッピングしたいポリゴンだけ行 
って < ださい。 次に，各頂点の座標値 X ， y ， Z の後ろ 
じ UV 座標を与えます……。ところでいままではぐらかし 
ていましたが UV 座標ってなんでしよう力，。 

UV 座標は，貼り付ける画像の座標です。一般では， 3 D 


い 0 

まず，王巧おです。 UV 座標の設定が問題でずが，ゴジ 
ラが襲っている來京タワーの例で解説する^図6のよう 
になります。タワーのてっぺんの UV 座標が問題です。 
•例 TOWER . SUF 
obj suf tower { 
atr tower 


の座標は X ， y, z で， 2 D の座標は X， y を使います 
が，マッピングのように 3 D と 2 D の両方を同時に扱う場 
合， X 座標といってもどっちかわからなくなってしまい 
ます。ですから， U は貼りがける画像の X 座標， V は y 


prim uvpoly ( 0 

0 500 

127 

0 

200 

0 

0 

0 

255 

-200 

0 

0 

255 

255) 






畫い……。ごめんね，いきなり暑苦しいセリ 
フで。姫はまよりをが巧きなもので，暑さに姫 
の頭はすっかり沼けてます。数学のテストがひ 
どいのも，英語の出席日数がをういのもみんな 
このホさが……と，つい悪いことは全部まのせ 
いじしたくなるんですよ。けど，お便りもきて 
いることピしがんばってやろうかな ぁ。 

(早速わ便りをもらってうれしい姫） 

本 

Q : I 力月ほど前に，コンテストのビデオのお 
をを郵便振替で私ったのですが，まど届きませ 
ん。もし，このあとまどやることがあるんピっ 
たら，教えてくださし、。 

姫：あ近 ， CGA システム， ビデオ， バージョンア 
ップそして追加カンパなどいろいろな名目で 
D 6 GA の口座に振り込んでいただいています。で 
すから，何が目的で振り込んだのかを明記して 
わかないと，不巧な担当者がみんな追加カンパ 
と見なしてしまう恐れがありますのでご’;ををく 
ださい。 それから，わる前と連絡先（電話）も 
おちれなく。 

(名なしの苦•巧ハガキを手に途方に暮れる姫） 


Q : CGA コンテストのビデオのカンパを仏って 
ないんですが，どうすればいいでしようか。 

姫：あくまでカンパということですので，気に 
することはありません。もし送ってくれるのな 
ら，締め切りはありませんのでわをと暇のある 
ときじいつでもどうぞ。カンパはわをでも物で 
も，もちろん肉体お働でも歓迎します。ちなみ 
じいままでに届いたカンパの一端を披强します 
と，サニーレタス I 箱，ササニシキ I 袋，ハー 

ドデイスク I コ，なぞの飲料水 I ケース . な 

どなど。 

(お金のほうがいいそ•という会計係を無視する 
姫） 

Q : 袖姫とあき姫，どちらがかわいいですか？ 
姫：世の中，見なきやよかった，夕日らなきやよ 
かったということは多々あるものです。ど一し 
てもというのなら大阪まで会いにきてくれても 
いいですけどね。 

(こんなわ巧りがせなきやよかったと思う姫） 
Q :バージョンアップサービス申し込みます。 
ところでカンパはこのハガキ（カモメール）で 
当たる巧品というのはいかがでしよう？ 


姫：バージョンアップサービスで送るディスク 
にプログラムが入っていたら当たり，入ってい 
なかったら巧をですが，次のチャンスを待って 
てくピさい。 

(しょせん人生はバクチだと思う姫） 
Q : D 5 GA のメインスタッフの方々は京大 or 阪 
大生だそうですが，どうすれば京大 or 阪大に入 
れるでしょうか （ Oh ! X って，受験雑誌でしょ 
ぅ？)。 

姫：京大に入るじは語学として，英語のほかに 
ま言葉の I ま験があります。また阪大に入るじは 
実技として’;曼ホが課せられます。がんばって大 
阪のボケとつっこみを勉強してく ださし、。 

(実技は;節点ピった姫） 
Q :化しくて CGA を制作する時間がなかなか取 
れないのですが，皆さんはどのようじして時間 
を作られているのでしようか？ 

姫：あなたの周りじ灰をの服を着た男たちがい 
ませんか。そうです， D 5 GA では，まかの合間に 
「時間銀行」の経営も行っているのです。 

(映画版「モモ」の笑顔が好きな姫） 
わ手紙お待ちしてます！ 
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もなみにこれを図 7 のような 11 角形にすると，途中の 
点の UV 座標をホめるの力 3', 非常に面倒になってしまうわ 
けです。ポリゴンの大きさを，縦横256にするしポリ 
ゴンの 3 D 座標と画像データの UV 座標が一致して，怖単に 
ボめることができます力す，制限が多くあまり実用的では 
ありません。 

次にゴジラの顔です。この場合，ゴジラの顔の勵像フ 
ァイルが 256 X 256 で横長なのにがしてマッピングする 
ポリゴンが正方形なので，をのままやると横方向が縮め 
られて，面長でかつ左右に黒の余白ができてしまいます。 
これを解決する方法は3通りあります。 

まずひとつめは，ゴジラの画像を描くとき左右いっぱ 
いまで使った横長にひしゃげた顔にしてゎく方法です。 
これだと形状ファイル，アトリビュートファイルを書き 
換える必要はありません力3'，描きにくいのは事実です。 

かは，おがファイルの UV 座標を修正する方法です。 UV 
座標は，貼り付けたい画像の位置ですので，画像の隅で 
ある必要はないわけです。 

.例 GOJIRA.SUF 
atr kao 

prim uvpoly (140 60 250 40 0 

140 -60 250 215 0 

140 -60 370 215 255 

140 60 370 40 255 ) 

をして最後はアトリビュートファイルを修正する方法 


です。 

mapwind K ul vl u 2 v 2 ) 

この mapwind は，貼りかける画像ファイルの有効範囲 
を設定しています。ですから， 
mapwind ( 0 0 255 255 ) 

とすれば，256 X 256の画像ファイルの隅から隅までをマ 
ッピングのが象とすることになります。今回の場合，貼 
り付けたいのは，（40，0)~(215， 255) なので， 
mapwind ( 40 0 215 255 ) 

とします （ mapview , mapsize は変更しない）。このよう 
な mapwind の使い方は，よくあるでしよう。たとえ 
ば，ゎ絵描きソフトで，木目模様を描こうとしたが， 256 X 
256の大きさに描くのは面倒で，真ん中辺に小さく描いて 
しまったというときも，をの部分だけをマッピングのが 
象にすれば問題ありません。ただ，あまり貝占り付ける晒 
像データが小さいし大きなポリゴンにマッピングした 
際，ドットの粗さが露骨に出てしまう場合があります。 

また，貼り付ける画像として， 512 X 512 の画像ファイ 
ルを使いたい場合（メモリはたくさん消数します）， 
mapwind ( 0 0 511511 ) 

のように設定しなければいけません。 

しかし， mapwind で512までの範圍を指定している 
のに，をの画像が256 X 256の画像ファイ ルだつ た場合， 
「ウインドウの指定が不正です」とエラーになってしま 
います。 




図8 ゴジラの顔（を本） 


因11アトりビュートフアイルを修正する巧合 




-( u 2 jv 2) 


mapwind (ul vl u 2 v 2) 


(40, 0) 



逸 







(215,255) 


mapwind (40 0 215 255) 
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さらに，応用編として次のような特殊効果 {) できます。 
いままでの例では，貼りがける画像がゆがんだりしない 
ように，矛盾のない UV データを与えていました。をこで 
今度は，わざと変なデータを与えましよう。 

•例 BUIL . SUF 
obj suf buil { 
atr buil 

prim uvpoly ( 0 —100 300 0 0 

0 100 300 255 0 

0 100 0 255 0 

0 -100 0 0 255 ) 

} 

この例では，ポリゴンの 2 つの頂点が同一の UV 座標を 
持っています。をの結果，画像ファイルの一部が引き伸 
ばされて，ゆがんでマッピングされます。この‘性質を利 
用するしゴジラの放が能火炎によって半分溶かされた 
ビルを表現できます。 

さらに，が応する UV 座標がねじれるようにマッピング 
するしもう予想もできないような絵になります。 

•例 TEST . SUF 

prim uvpoly ( 0 —250 500 0 0 

0 250 500 255 255 

0 250 0 255 0 

0 -250 0 0 255 ) 

こんなねじ曲がったマッピングの仕方，どのようなと 
図12マツピングのための木目模様の例 


(65,105) 



(205,195) 


きに役に立つかといえば，たぶんなんの役にも立たない 
でしよう。面白いから紹介してみただけです……。 

さて，あんまりいいかげんなことを書いている i ： 怒ら 
れをうなので，実用性のある使い方を紹介しましよう。 

アトリビュートのデータは標準どわり， （ 0 0 255 255 ) 
のとき，形がデータの UV 座標を255より大きな備にして 
みます。 

•例 TEST . SUF 

prim uvpoly ( 0 —250 500 0 0 

0 250 500 511 0 

0 250 0 511511 

0 -250 0 0 511) 

この例では縱横 2 倍の値にしました。するし貼りイ寸 
ける画像の模様が縦横2個ずつ並んだ絵ができます。511 
を400にすると，縦横に1個半並んだ絵になります。 

つまり， UV 座標というのは，0〜255である必要性は 
まったくありません。 UV 座標は，貼り付ける画像が，縱 
横に無帳に繰り返されているものなのです。 

たとえば，-大理石の模様を貼り付ける場合，小さなポ 
リゴンと大きなポリゴンの両方に同じマツピングをして 
いては，きめ細かさが異なって，不自然になってしまい 
ます。大きなポリゴンは，をれに比例して UV 座標を大き 
くしてやれば，大理石の模様が連続して，きめ細かさを 
一定にすることができます。ただこの場合，速続しても 
模様の境固が目立たないような画像ファイルをつくって 
やる必要があります。 

じ I 上が开列犬データの UV 座標の応用です。をれでは最後 
に，アトリビュートの中で無ネ見されていた mapview , 
mapsize について解説しましよう。まず， 
mapview ( ul vl u 2 v 2 ) 

ですが，これは気にしないでください。本来はちゃんと 
した意味があるのですが，民 END では手を拔いて無視し 
ています 。 （ul vlu 2 v 2 ) には， t りあえず mapsize と 


図 13 ゆがみを利用した巧合（その〇 


図 15 マッピング利用例 



図 14 ゆがみを利用した巧合（その 2) 


図 16 図けの応用 
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同じ値を入れてください。ほかの値を入れてもなんの変 
化もありません力';, mapview 自体を省略すると，償をう 
に「マッピングデータがわかしい」 t 文句をいってきます。 
かに， 

mapsize ( ui vl u 2 v 2 ) 

ですが，これは uv 座標の固盛りのかけ方を設定していま 
す。すでに解説した mapwind は貼りがける画像の有劾 
範囲を指定しています力す，この時点では UV 座標が設定さ 
れた訳ではありません。この mapsize によって，貼りイ寸 
ける画像の左上隅の UV 座標し右下隅の UV 座標を指定す 
ることによって， UV 座標を体が定義されるのです。 

•例 TEST . AT 民 

mapsize ( 100 200 300 400 ) 

TEST . SUF 

prim uvpoly ( 0 —250 500 0 0 

0 250 500 256 0 

0 250 0 256 256 

0 -250 0 0 256 ) 


この例では，貼り付ける画像の左上隅が（100,200)， 
右下が(300, 400) という座標になり， UV 座標の原点(0,0) 
の位置も大きく変わってしまいます。 UV 座標系が変わる 
のですから，おがデータの UV 座標もをれに応じた値じす 
る点にご注意ください。 


この mapsize の使い方は2通りあります。まずひとつ 
めは， UV 座標を正規座標系で記述することです。 

•例 TEST . AT 民 

mapsize (00 11) 

TEST . SUF 

prim uvpoly ( 0 —250 500 0 0 

0 250 500 1 0 


0 250 0 
0 -250 0 


図 17 mapsi 之 e と mapwind の関係 



図 18 mapsize の使い方（反お例） 


(0,255) 


(255,0) 


(255, 0) 

- (255,255)1 - 

-(0,255) J - 1(0,0) 


このようにすると， UV 座標を生成するプログラムを制 
作する場合など楽になるケースが多く， ますこ ，上記のよ 
うに，形状データの UV 座標が美しく記述できます。 

もうひとつの使い方は， mapsize の値を変えるだけで， 
上下左右を反転することです。 

•例上下反転 

mapsize ( 0 255 255 0 ) 

左右反転 

mapsize ( 255 0 0 255 ) 

上下左右反転 

mapsize ( 255 255 0 0 ) 

U 上がマッピングに闡するテクニックです。今回用い 
た貼り付け用の画傑は，ゴジラの顔から テスト パターン 
まで，すべて Z ’ sSTAFF で描きました （ Z ’ sSTAFF の画 
像データのままでは使用できません。バージョンアップ 
サービスに 付いてくる ツール じよって ， CGA システムの 
画像データに変換しています）。マッピングするときかな 
りゆがみますので，きっちりした絵より少しぼやけたよ 
うな絵のほうが仕上がりはきれいです。文字を描いたよ 
うな画像データを貼り付けてむ，ほとんど読めません。 
Z ’ sSTAFF で描いた絵だけでなく ， CGA システムの 3 D 
の画像をマッピングすることで，面白い効果が出せるよ 
うな気もしますので，皆さんもいろいろやってみてください。 

产ねりに 

アンケートを集計してわりますし"もっ！:具体的に" 

と力，，"図を用いて解説してほしい"というご意見がかな 
りあることに気がつきました。をこで今回は，できるだ 
け図を用意し具体的にファイルのリストも掲載するよう 
にしました。少しはわかりやすく むった k は思います力す， 
紙面の都合上，本文の量が減り，内容的には物足りない 
ような気がしまず（というより，マッピングの解説に手 
間取ってしまった）。表現を増すテクニックは，まだまだ 
ありますので，今回掲載できなかった分については，ま 
た次の機をじ回したいし野います。皆さんも，何か面白 
いアイデアがありましたら，ザひわ便りください。 

今回を開されたテクニックはあくまで道具でずので， 
目的になってしまわないようにご注意ください。意味も 
なく，映り&みや空気遠近法を用いたカットを作ってい 
ても，作品にはなりません。空気遠近法は現在制作中の 
作品の中で，グランドキャニオンの化大感を出すためじ 
設けられた機能です。これらのテクニックは，あくまで 
も作品制作のなかで生かしてください。 

さて，この^ころ隔巧連戦 I :なっています力す，ホ巧は 
今月大阪で開かれましたあるイベントのレポートを少し 
だけ巧う予定です。をして巧ホ巧では，やっぱり使えな 
い人のために， MAX 田口君力 s ' 「宇宙要塞 CAD の逆襲」を 
わをりします。わ楽しみに。 
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化卜]化載したアンチエリアシングかきが i 
闽間数は，標準のグラフィック脚数に比べ 
れば乂きな可能性を持ってはいる力す，なん 
といっても使いにくし、。あのままでは，機 
能はともかく，操作性はおホのグラフィッ 
ク I 約数からーホも邀化していない。 

サンプルで載っけた女の子の（ような） 
颜は僕が作ったものだ。あんな使いにくい 
ものを誰かに使わせるような仕ネ了ちはさす 
がにできなかった。で，方眼紙に下絵を描 
いてぽちぽち t 座標を巧ち达んでいったの 
である。ぉわ，これではまるで人閒デジタ 
イザではないか。まったく於低であった。 

をしてできあがった絵はどうかというとご 
览のとわり。よくいえばシンプル，率阳;に 
いえば描き込みが化りない絵。らちろん根 
気が統かなかったせいである。僕の晒术な 
どたかがしれているものだが，をれでもド 
絵のはうがまだましな絵だった（ともかで 
は思っている）。 

しかし，この方ぶのいいところは，いっ 
たん輪郭のデータを作ってしまえばあ！：は 
極楽という点にがきるであろう。髮の-でを 
どんな色にしようしスクリーントーンに 
しよう！：肖けし裝の毛を少しずらしてスク 
リーントーンにして貼れば影のような効お 
も化せる。わずかな畔閒でアンチエリアス 
のかかった絵を何枚でも作れる。手をがえ 
品ををえして，いろんな絵を堪能できた。 
をれに比べて前半の作業は地獄地獄。 

をこで思った。师倒なことは計算機にや 



これが点列エディタ 


らせてしまえと。わが X 68000 にはマウス t 
ぃう強刀なポインティングデバイスが標準 
装備されてぃるではなぃ力 >。離樵をとるの 
さえ巧な単になれば，もう少しましな絵が揃 
けるかもしれなぃ。さらにはらっ！：たくさ 
んの人にも使ってもらえるからしれなぃと。 

さて今回は 

今心 J は脯倒な人間デジタイダの作業を計 
就機に肩代わりさせることをたくらむ‘こと 
にする。マウスで,なをポイントすれば，あ 
とはプログラムのほうで必紫なデータを計 
赏:してくれる。要するにグラフィックエデ 
ィタだ。 

とぃっても，站悄れたグラフィックエデ 
ィタとは少し速う。どもらかとぃえばドロ 
—系の ツール だ。点をつなぃでぃって絵を 
作る。途中の点をちょっとずらしむり，ひ 
と地りが i ぃたあとに線の太さをぶえむりと 
ぃったことが自かにできるわけだ。 

姑後に BASIC のがけ巧プログラムを化す 
ようにしてゎけば，化ををえてみたり，塗 
りつぶしてみたり，スクリーントーンにし 
てみたりとぃった楽しぃ作業だけが待って 
ぃる。ぃってみれば作業の巧ぃ部分は計な 
機に押しつけて，ゎぃしぃ部分だけを人 II リ 
様がかっさらゎうとぃう魂胆なのである。 

名づけて点列エディタ。 

使い方の前に作り方 

前閒に咪をしめ， X-BASIC の外部 I- 划数を 
作ることにした。ただ揣闽間数が則よりも 
少なぃので，今い】 I も採用したか削コンパイ 
ルが师削な作業に感じられるからしれなぃ。 

点列 エディ タにはテキスト I 邮怖‘に線を引 
くための関数を使う。線かゎよび点列をテ 
キスト關面に描く関数で，前 I 到の anti.fnc 
とペアで BASIC に組み这んで使う。をの 
名ら tline.lnco 

コンハ〇イルの架領は前回と閒じである。 


本格的な CG には1600万色が必要？ァナ 
ログ RGB 画像が持つ可能性を過ル郭価し 
てはいないか？ これまであまりにち古い 
概念に縛られていたよラな気はしないか？ 
オーバーサンプリングと桌野式ァルゴリズ 
ムザ 導く 2D グラフィックの世界を見よ。 
2D の可能性をさらに追ってみよラ。 

環境も前1"1と同じで構わなぃ。ド駆け足 
で説りパする。次のリストをテキストエディ 
夕です—]‘も込む。 

• tline.s ( 外部間数ヘッダ） 

• anti.h (マクロを籍ファイル） 

- main.c (引数リスト宣言） 

- tlines.c (点列が綱） 

これらのうも， 

• anti.h (マクロ •去義ファイル） 

. main.c (引数リスト宣言） 

の2っは前 | u ] のものと问じである。 

がち込んだら，それぞれをコンパイルわ 
よびアセンブルする。つまり， 
as /u 〜 .s 
cc /L 〜 .c 
gcc —c 〜 .c 

のようにする。詳しくは前叫の説明をご锭 
いただきたい。 

がけ多にリンクフェイズ。 

11く /〇 tline.fnc tline.o main.o tune 
s . o % lib %¥ clib . a(?^lib %¥ gnulib . a )% lib % 
basiib.a 

あとは X - BASIC に組み込んで起動すれ 
ばよい。まず BASIC ディレクトリじ，い 
ま作った外部間数を転送する。 
copy tline.fnc a : basic 2 
をれ力*ら BASIC デイレクトリ上のコンフ 
イギュレーシヨンファイル（標準では basic . 
cnf ) をがき換える。たとえば， 


FREE 

= 

128 

WIDTH 

= 

64 

BEEP 

= 

ON 

CAPS 

二 

OFF ' 

FUNG 

= 

GRAPH 

FUNC 

= 

MOUSE 

FUNC 

= 

PIC 

FUNC 

二 

ANTI 

F'UNC 

二 

TUNE 


のようにする。今パの点列エディタには， 
マウス閒係の脚数を使っているので ， mo 
use . fnc も忘れずに組み込んでわくこと。 
なわ，がち込んでもやん！:動くょぅじな 
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ったらフアイル入,中，力の前後に ERROR 
ON ./ OFF を加えてわいてほしい。 

先月のフォロー 

ここでちょっとした拡張をしてわこう。 
先巧の自邮曲線のプログラム （pts _ curv 
e . c ) 中に，単位べクトル化する闡数 nor 
malize () があったカミ，をれに次のように 
1行かけ加えてコンパイルし庶してわくこ 
とをすすめる。別にバグというわけではな 
いのだが，この変更をしてわくし点列エ 
ディタでちょっ t した技が使えるようにな 
る。をれはあのお楽しみ。 
void normaliz が vl , v 2) 
vector vl , v 2; 

{ 

double 1; 
l = length ( vl ); 

if ( Kl . Oe - lO )1 二 1.0; ^ この 1 巧 
v 2[0] 二 vi [0]/ l ; 
v 2[0]= vl [0]/ l ; 
return ; 

} 

これは，表面的には零ベクトルの化理を 
きちんとするというだけの意味しか巧たな 
い力す，実は曲線の表現力を若干（かなり？） 
上げる効果があるのである。をれはわいわ 
図1 


い説明することになるであろう。 

点列エディタ使用上の注意 

さて BASIC 力':立ち1•.力 S ったら，さっを 
く点列 エディ タを打ちをんで走らせよう。 
BASIC のリストとしてはやや長めだが， 

行番号を使いをうな命令は避けてあるので， 
巧番号おきのリストを，使い ' t 巧れたテキス 
トエディタで入力してから loacl @ 命令で 
言売ませても いい。 

キーボード^マウス併用である。キー操 
作は表1に示す。はっきりいって，機能ら 
表に書いてあることをのままである。操作 
についてはをのうちに‘的れてくるだ'ろう力， 
ら，ここでは，特に気をつけるべきことや 
ちょっとしたテクニックを宵いてわこう。 
•マウスを動力、すと，ラバーバンドを引っ 
張りはする力 f ， をれだけではぶの座標は確 
定しない。たとえば，この時点でなにか 
キーを押すとラバーノでンドは キャンセル さ 
れる。をの点は，マウスの左ボタンをク 
リックして初めて確をする。備定した点と 
来雜定の点（ラバーバンド上の点）は色が 
違うのですぐにわかる。 

. 点列の終点を編集しているときに左クリ 
ックするしすぐにかの点を作ってラバー 
バンドに乘せる。がして，点列の途中の点 


を編集しているときにおクリックすると， 
をの点の位弱が変わるだけで斬しい点はで 
きない。こうしたほうがおがな被作感党が 
借られるであろう。点列の途中に新しく点 
を作りたい場合は i ( insert - point ) キーを 
使ぅ。 

•どうしてら巧（かど）のある曲線を揃き 
たい場合が化てきた場合の化蘭は次のよう 
にする。1力所に点を2度巧つのである。 
プログラム 上， 曲線 はここで 一度 切れたよ 
うなかたちになり，した力ぞって的ができる。 
点の重ねがもをするためには，点列の終点 
であれば左クリックを2网することになる 
だろうし，をうでなければ i キーを使うこ 
とになるだろう。 i キーは，をの場に点の 
コピーをひとつ作る働きをするので，1圃 
师すだけでいいはず。またここでうっかり 
マウスを動かしてしまっても，左クリック 
するまでは確をしないので，あわてずに P 
( previous - point ) や n ( next - point ) などの 
キーで 逃げるとよい。 

.さらに応用な i ： して，贈線と1111線をひと 
つの点列に同居させるこ^もできる。重ね 
巧‘もした点を2組作り，隣接させる。する 
しをのあいだの線は必ず耽線になる。こ 
れを使えばサーキットのコース図だって備 
単に描けるけ）。 

.揣阔 コマンドには，カレントの 点列だけ 


点の重ね巧ち 


表1点列エディタのコマンド 



2) 直線と曲線の同居 







ふつうの場合 


矢印の点を重ね打ちした場合 


(力ーソル移動） 

P previous-point 

同じ点列内の前の点じ移る 

n next point 

同じ点列内のこ次の点じ移る 

P previous-pts 

前の点列【こ移る 

N next-pts 

次の点列に移る 

(点列のパラメータ操作） 

t thinner -point 

力ーソルの指す点を細くする 

f fatter -point 

カーソルの指す点を太くする 

T thinner-pts 

現在の点列を体を細くする 

F fatter-pts 

現在の点列を体を太くする 

c toggle-curve 

現をの点列の自由曲線モードを切り替える 

C toggle-cyclic 

現在の点列の循環モードを切り替える 

(点および点列の追加-削除） 

a append - point 

現在の点列にひとつ点をかけ加える 

A append-pts 

新しい点列を作る（点列名を入力すること） 

1 insert-point 

カーソル位运の点を複製する 

k kill-point 

力ーソル位愛の点を削除する 

K k 川 一 pts 

現在の点列を削除する 

(描画） 

d draw-current—pts 

現在の点列を描く 

D draw-all-pts 

全点列を描く 

(ファイル入出力） 

それぞれファイル名を入力すること 

w write-pts-file 

点列ファイルをセーブする 

r read-pts-file 

点列ファイルをロー ドする 

0 output-basic-program 

BAS にプログラムを出力する 

s save-pic-file 

画面を P にファイルにセーブする 

1 load-pic-file 

円 C ファイルを画面じ口 ードする 

(終了） 

q quit 

画面をクリアして終了する 

e end 

画面をクリアせずに終了する 


1) 巧のある曲線 
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をが i ぐ d ( draw - current - pts ) キーとを点 
列を描く D ( draw - all - pts ) キーが' ある力す, 
あまりが i 顾速度は速くない。特に後者は， 
線の数が多くなってくるとだんだんユウウ 
ツになってくることだろう。だから，適巧 
なところで s ( save - pic - file ) キーや1 ( load 
- pic - file ) キーを使って， PIC ファイルを 
アンドゥバッファの化わりに使う。こうす 
ればいちいち全部揃きがす必變もない。 

. 现かやっている作業の続きを次凹も統け 
むいのなら，必ず W ( write - pts - file ) キー 
で保なし，次阿は r ( read - pts - file ) キーで 
お化すること。 o ( output - basic - file ) キー 
でり ijj する BASIC のプログラムは，实巧 
可能にはなっている力;' (巧-ホ号がつかない 
ので1〇3づ@で読み込むことが必變），点タリ 
エディタに巧び読み込むことはできない。 

み 

夹は，胃頭で自化1111線のルーチンに拡-張 
を巧ったのは，点の.歌ねがちを許すためだ 
ったのである。これにより角のある曲線や， 
曲線と麻線の同居が可能にむる。点が®ね 
巧ちしてある t いうことは，をこで零べク 
トルが発生することをな睐する。先巧の 
バージョンでは，零ベクトルを許していな 
力，ったのだ，というより，ゎかしな動作を 
してしまう。別にバグではなく，をれが仕 
様だったのだ（しつこいぞ）。 

絵を揃くスタイルはみ人の r 川 I である。 
気に入った線が揃けるたびに PIC ファイル 
にセーブする人， PIC ファイルをアンドゥ 
用バッファとして使う人， PI ' S ファイル 
をまめに保存する人， BAS ファイルにが 
としてから本格的に加にする人，どんなス 
タイルをとってもいいと思う。 

む山課題 t して，バージョンァップをホ 
えてらいいだろう。たとえば点列をお义. 
縮小.移動.网転する t いうのは，あると 
とても便利であろう。基本的には，点ゎよ 
び点列を削除/追加しないなら，特別な操 
作はいらない。座標をがえるだけだったら 
をれほど阴雛をがわないし砂われる。ほか 
にもペイントくらいは系 II .み込む‘べきだ^力％ 
改以の余地はいくらでもある。ツリー構造 
を群入するのは相当な火化:がになるかもし 
れない。あると便利だろうけど。 

ホ 

どうも X - BASIC には，「もうひといきの 
ところだったのにねえ」という i ： ころが多 
々ある。をれが点列エディタのリストにも 
ちらほら反映している。いちばん的ったの 
は，再ミ摘搁されているこ t だが，せっか 
く 口ーカルを数を文法的に許しているのに， 
配列を引数としてとる I 划数が嘗けないこ t 


である。ゎかげで祀列を グローバルを 数に 
とって転送するような泥縄的解決法を使う 
はめになった。ほかにら print using 力':表 
示するデータをひとつしかとれなぃだと力’， 
配列じした义字列は linput や freads 心梢性 
が'班 U 、 と力‘，ぃろぃろある。 

をれ力 > ら，このプログラムはコンパイル 
できなぃ。つぃでにぃうと， 点列 ェディタ 
で 0 コマンドを使って化化する BASIC プ 
ログラムらコンパイルできなぃ。理山のひ 

とつは，削1"1と今い!で作った外部 I 划数と同 
じ機能を持ったラィブラリを IU なしてぃな 
ぃこし^うひとつは2次元が列への化入 
を多) II してぃるこしなどである。 

この点列ェディタの操作忡.は決してほめ 
られたものではなぃ。な化よくなぃ。を 
れにらかかわらず コンパイルし ようと考え 
なぃのは，速度の点で化をぃばん引っ張 
ってぃるのが実は描 I 叫脚数をのらの （ aa 
_lines ( )1 划数）だからなんだよねえ。う 
—んゎ柳ホ。 

今月は2本立てだ 

さてここで趣向ををえて，「遊べる 2 D グ 
ラフィック」に手をつけてみよう。 

ひとつは 65536 色のハンデをはね返す， 
マッ ハバンドフリーの高品,位グラデーシヨ 

ン。らうひとつは偶が性と道:外性を楽しむ， 
ランダムフラクタルによる n が物ジェネレ 
—夕。気楽に使ってぃただきたぃ。 

これまた X - BASI じの外部脚数である。 
むだ，ここまでの内がとはまったく脚わり 
がなぃので独立して使える。巧するに ant 
i . fnc を持ってぃなくてむ使える。外部関 
数のお前は maP . fnc とした。 

をれではれ:•り方を。例によってテキスト 
ェディタ で化 ドのファイルをがちをむ‘。 

- map.s ( 外部 I 划数ヘッダ） 

• map.h (マクロを範フアイル） 

- main.c (引数リスト寬言） 

• grad _ b 〇 x.c (な iVi 化グラデーシヨン） 

• crush.c (ランダムフラクタル） 

これらのうち， 

• main.c (引数リストな言） 

はのものと同じで'ある。 

あ！：は||り様。それぞれをコンパイルわよ 
びア七ンブルする。 
as /u 〜 .s 
cc /し 〜 .c 
gcc —c 〜 .c 
リンクフェイズら | ii ] じ。 

Ik /〇 map.fnc map.o main.o grad 
_ box.o crush.0 % lib % ¥ clib . a (% lib 


% ¥ gnulib . a ) % lib % baslib.a 
X - BASIC にを II み込んで起動する。 
copy map.fnc a : ¥ basic 2¥ 

コンフイ ギュ レーシヨンフアイルは，た 

とえば， 


FREE 

=128 

WIDTH 

= 64 

BEEP 

= ON 

CAPS 

= OFT 

FUNC 

二 GRAPH 

FUNC 

= PI じ 

FUNC 

=MAP 


のようにする。 

アルゴ U ズムの/こ、 

まずグラデーション。 

例によって従来のむのをこきわろす！：こ 
ろから入る（ああ恶い性格）。 2 D グラフィ 
ック ツールの 最商峰である Z ’ sSTAFF は， 
お高峰であるがゆえにいろいろと苦情も多 
くなる。化巧はアンチエリアシング対応で 
ないことを攻學した力;'，今パはマッハバン 
ド無策をあげつらっていじめてしまうので 
ある（つくづく恶い性格)。 

Z ’ sSTAFF に触!ってみた方はご巧じだ 
ろう力':，結構遊べてしまう機能のひとつに 
グラデー ションが ある。 Z ’ sSTAFF を使 
ってみてなかなかやるなと思ったのは，道 
興を選ばずグラ デーションカけられる と 
ころである。ボックス フィルは 当がのこと， 
ペン，ペイント，スキヤンコンバージョン， 
などほとんどすべての道具の色おをにグラ 
デーションが 使えるのた4。グラデを使いま 
くった絵を描いた絳験は，誰でも持ってい 
るのではなかろう力>。 

グラデーションは，手辟な操かでをこを 
この巧感が化せるのでなかなかに巧;葉であ 
る。しかし使いすぎるとがに姑巧しくなる 
だけなので，をのうもだんだん t 使わなく 
なっていくようで'ある。 

さて，グラデーションは確かに便利だが， 
化ってみるとどうも神統に牌るところが 
あった。をれが'マッハバンド。あの ioL 苦し 
い締々である。 U 前に^何がかいってきた 
こ t ではある力;' (これ ばっかり），少ない 
I が開 数で^って沿らかに巧化する也を表现 
しようとしてぶち叫たる職がこのマッノ、ノ ;• 
ンドなのである。まったく人 I 川嫌の U I ：い 
うらのはよくできているもので，ちょっと 
した輝 腹の雙化 でら 化 事に拾い化す。 弊 段 
は不化を感じない6日536色らこのときばか 
0は不満の極である。 

先パのエリアシングは，解像度の不おか 
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ら生じる不自然さで，今月のマッハバンド 
は階調の不足から生じる不自然さ。をれで 
は階調が十分にあればマッハバンドは消え 
るというのだろう力 >。 これが消えるのであ 
る。たとえば業務用の CG システムだ民 
GB それぞれ8ビット （256 階調)，合計24 
ビット（約1670巧色）が標準であるが，こ 
れくらいあれば十分といわれている。事実 
このレベルになれば支降はまったくない。 
しかし X 68000 は民 GB 各5ビット （32 階調）， 
合計15ビット （32768 色)，輝度ビットをど 
ううまく使っても16ビット（655%色）で 
ある。これを輿っ正直に使ったのでは，と 
てと J マッハバンドは解消できない。 

をれではどうす る。 先月は，解像度の不 
おから生じたエリアシングを，多階調表現 
によるアンチエリアシングで補った。をこ 
でらのの道理として，今巧は階調の不足か 
ら生じたマッハバンドは解像度でもって 
補ってやることにしよう。 

!:いってらをの正体は，最近とみに出番 
の多い棠野式アルゴリズムの応用（オリジ 
ナルは655%色を2色に落 t すものだった 
が 、これはフルカラーを32768色に落とす 
ように改造してある）である。色を滑らか 
に変化させようとして失敗するのだから， 
細け、な揺らぎを持たせてやれば目をだます 
こ！：もできるであろう。棠野式アルゴリズ 
図2おめグラデーションの描さ方 

(I)基礎：点と直線の距離 

I : ax + by+c = 0 と 

P(x,，y,) との距離 d は次ホで表される。 

j」axi + byi + c| 

d - ん 2+が 


ムの説明については，らうすっかり有名だ 
ろうからパス。 

グラデーションを髙晒質にするだけでは 
あまりに芸がないので，斜めグラデーショ 
ンらつけてみた。斜めグラデーションは Z ’ 
sSTAFF にはなかった機能だ力す，敵近見 
た PDS のグラ フィック ツールに搭載され 
ていたので，さっそくいただくことにし 
た。ただいただくだけでは圃白くないの 
で，架野式アルゴリズムを使って品質の高 
いものを作ったというわけ。まあ速度が少 
し遅いのはご愛敬。斜めグラデーションに 
ついては，わり真面间に色を計算してい 
る（だから遅い）。点と鹰線の距離をホめ 
るを式を使い，開始をと終了をのあいだで 
補間する。この補間した色の精度を高めに 
とってわき，画面に化力する段階で装:野式 
アルゴリズムを使って階調の不足を補う。 

求 

次はランダムフラクタル。 

フラクタル図形はごがじであろう。自己 
相似構造を持った図形を総称してこう呼ぶ。 
フラクタル図形は再帰呼び出しを使って生 
成するのが定石である。たえば樹木の生 
成には，まず幹を作り，をの先の枝には少 
し細い木を，さらにをの化のホ支にはもう少 
し細い木を……，という具合に次々と下請 
けのルーチンを呼び化し，より小さな木を 


作らせる。をして最後にできあがる図形は 
木じよく似ている。このあたりのことは少 
し前の C 言語の特集で僕が取りあげている 
話題だから，少しは参考になるかもしれな 

い 0 

をこでランダムフラクタルであるカミ，を 
の名の t ゎり乱数を使って生成するので， 
厳密にいえば自己相似性のある図形とはい 
いがたい。しかし長い目で見れば（らう少 
し雛しくいえば統計学的には）自己相似性 
が見受けられる， t いうことで，これもフ 
ラクタルの仲間に入れる。やはり再帰呼び 
化しを使って生成するのが常道である。 

もっとも瞒単なランダムフラクタルは1 
次元のランダムフラクタルである。まず始 
点と終点を決める。をの2点間を結ぶ線分 
をく、、しゃく、、しゃに曲げるというのがもっと 
も槪感的な説明だろう。具体的には，まず 
線分ををの中点で2つにかける。をしてを 
の中点を適当にずらす。この中点の変位を 
乱数で決める。こうしてできた2本の線分 
を，それぞれさらに2分割して中点にラン 
ダムな変位を加えて……，と，あとはこの 
繰り返し。できあがる図形は，まるで稲妻 
のようになるであろう。 

これをちよっ t が:張したのが2次'元のラ 
ンダムフラクタル。今回使うのもこれであ 
る。まず1枚の平面を用意する。それを縦 


(2) grad_box (Xi, yi, X2, た， gx, gy, Cs, Ce) を実行したとき 



し： g*x + gyy- (gxXs+gyys) = 0 
Is と Pe との距離 do は 

do 」 gxXe+ 8 グ 6~ 、 8* 乂 5 卡 gyVs) I 
/gxHgy^ 

しとあ形領域内の点 P との距滕 d は 
.|gxX+gyy — 、 gxXs+&rys)| 

d - ぶん/ 


C= 管 Cs+ お， 

でポめることができる。 


※ドミも Pe も Po も， Is に関して同じ側じあるので， 

C をボめる際に d も' よび do の絶対値をとる必要はない。 
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.横に 2 か割する （4 枚の小さな平面がで 
きる）。する t 巧す点が5側新たにできる。 
この5イ闲の格子点の高さを，やはり乱数を 
使って変えてやる。あとは同じことで， 4 
枚の小平面にがして巧帰分割を繰り返して 
いけばよい。こうしてできる図形は，よく 
山の表現のモデルとして使われる力5'，自然 
な山に見せるためには，上の説明だけでは 
やや不十分である。格子点の高さを変える 
際に， 

1) をの格子点と隣り合った格子点の高さ 
の平だ]をまずとる。をのあとに乱数で変位 
を加える。 

2) 巧帰が深くなる t 分割ら細かくなる。 
だから変位の振幅むをれにしたがって小さ 
くしてやる。 

いった工夫が必要であろう。 

さて，2次元のランダムフラクタルは ih 
の表現に向いている t いった力す，今回はを 
れとは違った利用のしかたをしよう。自然 
界にはフラクタルの構造が多く見られると 
いわれる。そこで，計算機にフラクタルを 
導入することで自然物を擬似的に表現しよ 
うという試みがあちらこもらでなされてい 
る。ランダムフラクタルもをのひとつなの 
である。 

ここに1枚の絵がある^しよう。これを， 
ランダムフラクタルを使って変形する。 
たったこれだけのことなのだが，かなり閒 
図3ランダムフラクタル 


おいタカ果が出るので驚きだ。絵をどう変形 
するのか。各格子点の変位（つまり山の高 
さ）を，歪みの度合いと考えるのである。 
山が嵩いほど歪みむ大きい。出の-起化が激 
しいほど絵の舌しれ方も派手になる。 

山の高さや起伏の様子は，パラメータと 
して巨 ASIC 侧から好きにみえられるよう 
にした。どんな変形が起こるの力、，実行し 
てみるまでわからないが，偶然と意外性を 
楽し tj ' のも風流なものである。 

さて使い方 

くどい説明はさっさと終わって，ぉいし 
いところを味わうほうに進む*ことにする。 

本 

グラデーションからいこう。斜めかつ高 
画質のグラデーションだが，残念ながら矩 
形領域（つまりボックス フイ ル）のみのが 
応である。先ち制作した揃顾間数のタイル 
パターンの化わりに組みをむ*ことは十分巧 
能なのだが，それには大幅な改造が必要を 
うだったのであきらめた。をれよりら単独 
で使うこ t のほうがメリットが夕をうだ。 
使い方は至って節単。 
grad _ box ( xl , yl , x 2, y 2, gx , gy , cs , ce ) 
( xl ， yl )-( x 2， y 2): 矩形領域 
(がぶ y ): 色が変化する方向 1 のベクトル 
cs ， ce : 閒始色と終了色 


lpp ^‘1 脚 


に m 

金’1 

ふ:漏 


除^^ 

HI 


圓 


ランダムフラクタルの"雲" 


2〜3凹試せば，使い方はすぐにわかる 
ことと把、う。少しデキる人なら，マウスで 
方向と領域を指定してグラデーションを揃 
かせるプログラムも簡単に書けることだろ 
ラ D 

本 

をしてランダムフラクタル。 

使い方は2段階に分かれる。 

1) ランダムフラクタル格子を生成する。 

random fractal ( L 0; float , 夕 ; float , 
seed ) 

LO : 初めの振幅 
夕:振帖の減衰係数 
seed : 乱数系列の初期値 
L 0 と夕は実数で指定する。 L 0 は歪みの 
度合いのけおで100〜200が標準のな値であ 
ろう。夕は 0.1 〜 0.5 がいい線だろう力、。こ 
の辺は，経験がらのをいうし，第一いちば 


(1) 1次元ランダムフラクタル 




y 



画像 So を，ランダムフラクタル格子 
D ( x , y ) を用いて画像 S , じ変おする。 

,、 S ,( x . y )= So ( x , y + D ( x , y )) 

S ,( x , y ) 


今回はランダムフラクタル格子の大きさを128 X 128とし 
たので，それより大きな画像をを形する際にモザイク横 
株が出るのを避けるためじ補間を巧っている。 
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ん劾果的な値など，僕にもわからない。を 
こらランダムのよさなのだけ）。りあえ 
ずは前記の備で始めて，いろいろと値を変 
えて試すのが無雛な線であろう。 

2) ランダムフラクタル格子を使ってグラ 
フイツク画晒を変形する。 

crush け1, yl ， x 2, y 2, k ; float ) 
( xl ， yl )-( x 2， y 2): おお領域 
k : 歪みの倍率 

k は类数で指をする。夹はこの値ができ 
あがりをいもばん-火-きく左右する。だから， 
ランダムフラクタル格子を生成するのは起 
動時の1凹だけにしてわいて，刚像を生成 
するたびに違う k の做を指定すればをれで 
十分なような気がする。なにぶん乱数相手 
なので，なにが起こっても不思議はない。 

* 

ここでわすすめの使い方があるので，紹 
かしよう。さきほどのグラデーシヨン^コ 
ンビにして使うのである。 

1) ランダムフラクタル恪子を化成する。 
random fractal (200.0, 0.1, 1234 

5) 

2) 青むのグラ デーシヨンを端<。 

grad _ box (0, 0, 255, 255, 2, —5, rgb 
(0,0, 31 )， rgb (31， 31，31)) 


3) 闽像をを形する。 

crush (0, 0,255, 255,0 .5) 

もっとも重要なパラメータは 3) の k の値 
(この例では 0.5) である。これをいろいろ 
おえて効果を試したい場合は，お [Hi フレッ 
シュなグラデーションを川意すべきだろう。 
すなわち 2) 〜 3) を繰り返す必要があるのだ。 
ここで 3) だけ繰り返してら，励像がどんど 
ん刷れていくだけだ（をれはをれで师むい 
が)。 

で，案巧結梁だが，雲のような絵が化て 
きたのではないかと思う。元絵はグラデー 
ションだから，かなり规刖的な絵のはずな 
のに，一度ランダムフラクタル化娜を力，け 
てやるだけで，結構がむい劾果が化せる。 

2) のグラデーションをむっと複雑なパター 
ンにしてみたり， 色を叟;えてみたりして， 
いろいろなテクスチャの表现に挑戦してみ 
てもらいむい。 

元絵やパラメータしだいでは，炎，火理 
石，なども作れをうである。レイトレーシ 
ングのテクスチャマップにをのまま使って 
もいいくらいの画質は保証する。化川範閱 
はにい。化理が遅いのが玉にキズ t いえよ 
う力’（もっ t もこれは僕が觀速化をさぼっ 
たせいだが)。 


終わりに 

今回はネタが散漫になってしまった。点 
列エディタは化巧のフォローみたいなもの 
だが，あとの2つは，化理速度をもゃんと 
したうえで，今後化てくるグラフィックツ 
ールにも組み込んでほしいくらいの機能で 
ある。このか野では PC -9801 シリーズじ 
化ている2次元グラフィックツールに一日 
のおがある。とりわけ，自然物の表現とい 
うか， 表情鹽かな2次元グラフィックを作 
るための游如を惜しんでいないツールがい 
くつかあり，尤実した環境といえる。 

X 68000 ならそれらと同等の1上のものが 
作れても少しむ不思議はないのだが，こう 
いうアプローチをとったグラフィックツー 
ルは不思議 t おかけない。 Z ’ sSTAFF が 
他の追触を許さないのなら，をれはをれで 
よい。別の方师から超えればよいだけのこ 
と。をんなツールの出現を願ってゃまない 
のである。 

参考文献 

ランダムフラクタルを則いた木1—]と乂现がおお技 
術愤か巧槪•岡山稔， PIXEL ， 1988 .8, pp .87- 
92 


リス hi 


10 りり 0 いぶ列ェ子 f 夕 

10010 key ] , '"conso 1 〇 U , :U • I w’T’ 

10020 /♦ 

10030 s t r cr 1 f , oo1' 

10040 cr 1 f = chrS ( i H!) I +i、hrS J HA ) 

1005(， eof = ch rS 化 H 1A I 

lOOGO dim str f I a« ( I ) = (** LINES " , Cl RVE ..1 
10070 dim str type(1)=I" NORMAL ..，..(、.しし l 〔） 

10080 dim str pts_name I ： 11) い 各 . 与 . 列のみが j 
10090 dim rhar pts_flag (: M) い 曲揀として愉脚する力、 

1010() dim int が s け I, 99, 2) /* 点列 

10110 dim int, tmp 1 (99,2) , tmp2 { 1999 ,2) 

10120 dim int pts_cur’ （ 31) 

1013() dim int ptslist(3l,l) 

101. !0 dim int freelist. (311 

10150 int first,1ast,fre 

10160 int i,j,K 

10170 char c 

loiao /» ，真列リストの巧が化 

10190 first=-l ： last=-l : fre=0 

10200 for i=0 to 31 

10210 freelist(i)=i+l 

10220 ptslisKi,0)=-l 

10230 ptslist(i,1)=-1 

10240 next 

10250 freelisU 31)=-l 

10260 i = 0 ： j=I /♦ i あ白の . ち列の j 街 H の点を化理ずる 
10270 /* 酬などの欄化 
10280 screen 1, 3 , し 1 
10290 mouse( 1 ) : mouse( 4 ) 

10300 msarea(0,0,511,511) 

10310 setmspos(256,256) 

10320 open_mini but*fer() 

10330 /* メインループ 

10340 while 1 

10350 c=se し point(i,j) 

10360 /* レふレ 3 な列がなくてもよいコマンド 

10370 if (c=>q，) or (c= ， e') then break 

10380 if ( c=12 ) then wipe ( ) ： cont inue / ♦ •CM'K* キー 

10390 if (c=*s*) then save_pic() : continue 

10400 if (c= * 1')then load_pic( ) : continue 

10410 if (c=,r,) then { 

10420 wipe() 

10430 close_minibuffer() : els:open_minibuffer() 

10440 read_pts() 

13450 i=first:j=pts_cur(i) 

10460 setmspos(pts(i,j,0),pts(i,j,1)) 

10470 continue 

1048 白 } 


10490 if ( 巳 : ： * A，）then { 

10500 if first>-1 then tdraw(i,1,0) 

10510 k = append_pf.s () 

10520 if k> -1 then i = k : .j = append_point I i ) ： pts_our ( i ) = j 

10530 continue 

10540 ) 

10550 I 、 レベル 2 : 点則が 1 本 W 上必要なコマンド 
10560 if (first=-1)then { 

10570 els : print "There is no pts. Try * A * command...; 

10580 pause() 

10590 continue 

10600 } 

10610 if (c=*N' ) and (pis I i s 1.(i , 0 ) > -1)then { 

10620 tdraw(i,1,0) 

10630 i = ptslist( i ,0) : .j = pts_curl i ) 

10640 tdraw(i,1,1) 

10650 setmspos(pts(i,j,0),pt sIi,j,1)) 

10660 continue 

10670 ) 

10680 if (c= ， P*) and (ptsl ist.( i ,!)>-]) then { 

10690 tdraw{i,1,0) 

10700 i = ptslist(i,1)：j = pt s cur(i) 

10710 tdraw(i,1,1) 

10720 setmspos ( pt, s ( i , j , 0 ) , pt s ( i , j ,1)) 

10730 continue 

10740 ) 

10750 if (c = 0 ) and (pts(i,0,0)=1)then { 

107 60 j=append_point(i) : ptscur ( i)=j 

10770 continue 

10780 ) 

10790 if (c='a') then { 

10800 k=append_point(i) 

10810 if k>-1 then j=k : pts_cur(i)=j 

10820 continue 

10830 ) 

10840 if {c='K*) then I 
10850 tdraw(1,1,0) 

10860 k=delete_pts(i) 

10870 if ( first>-l)and ( い - 1)then | 

10880 i=k 

10890 j=pts_cur(i) 

10900 setmspos(pts(i,j,0),pts(i,j,l)J 

10910 tdraw(i,1,1) 

10920 ) 

10930 continue 

10940 ) 

10950 if (c= ， c ，） then ( 

10960 pts_flag( i )=l-pts_f LagU) 

10970 continue 
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10980 
10990 
11000 
110 10 
11020 
110 こい） 
110 1 0 
1105() 
11060 
11070 
11080 
1 ioy«) 
moo 
11110 
11120 
1113U 


!. I r = •し’ • > then I 

t d r, ル. (1,1,0) 

p» s ( i , 0 ,1 ) =1-p t s ( 
tdrawI i ,1,1) 
f'ont i nil 户 


. 0 . 


f { c = ' D ' ) then 1 
w i po ( I 
い ！ .i rst 

wh i 1 ■ 户 1 

if k =— 1 theii hr 一;'、 li 
lira'. { h ) 

k = p t s J i s 1 I k , 0 ) 
endi'.h i 1 e 
f'oiit. i uue 


11.1 10 I 

11150 if ( <• = ' w * ) then wri te_pt s ( ) : font i luic- 

11160 if ( c= ' o ' ) then out pu し program い： <’ou t. i nii ゎ 

11 i • w / * レ ’ ； ル i ; w.y'j"’ i よ U し、点 1 | れ > んし .£. 【妄 ^^ コ r 

11180 if (pts( i,0,0X2) then | 

11190 els 


11200 


t-but ton 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 


print "There is no point . Try 'a' comman«i or press 1ef 

pause() 
continue 

f (c = 0) then { 
if j=pts(i,0,0) then ( 
k 三打 ppend_point(i) 
if k > -1 then j = U ： pts_cur I i ) =.j 

) 

continue 


11310 if (c= *n ' ) and ( j<pt.sl i , 0,0 ) ) then { 
11320 j=j+l : pt3_cur(i)=j 

11330 setmspos(pts(i,j,0),pts{i,j,1)) 

11340 continue 


11350 I 

11360 if (c=，pM and しい IJ then { 

11370 j=j-1 : pts_cur(i)=j 

11380 setmspos{pts(i,j,0),pts(i,j,1)) 

11390 continue 

11400 J 

11410 if (c='f) and (pts(i,j,2)>0) then I 
11420 pts(i,j,2)=pts(i,J,2)-l 

11430 continue 

11440 ) 

11450 if (c= ， f，）then pts{i,j,2)=pts{i + l : continue 

11460 if (c='T') then { 

11470 for k=1 to pts(i,0,0) 

11480 if pts(i,U,2)>0 then pts{i,k,2)=pts(i,k,2)-1 

11490 next 

11500 continue 

11510 ) 

11520 if (c='F') then I 
11530 for k=1 to pts い， 0,0) 

11540 pts(i,k,2)=pts{i,k,2)+1 

11550 next 


11560 continue 

11570 ) 

11580 if (c=»i') then { 

11590 k=insert_point(i,j) 

11600 if k>-1 then j = k:pts_curIi)=j 

11610 continue 

11620 ) 

11630 if (c='k») then { 

11640 tdraw(1,1,0) 

11650 k=delete_point(i,j) 

11660 if k>-l then j=k : pts_cur( i ) =J ： t.draw( i ,1,1) 

11670 continue 

11680 ) 

11690 if (c= ， d>) then draw(i):continue 
11700 endwhile 
11710 /t 巧了 

11720 close_minibuffer{) : els 

11730 if c= て q' then wipe( ) /» • e • のときは苗面を消さず!こお了 

11740 mouse( 0 ) : mouse{ 2 ) 

11750 end 

11760 パ点列の HWi を表示する 

11770 func prin し status( 1 , j ,X, y( 

11780 if first=-1 then return!) 

11790 els /* pts(i,O,0) あ目の戚ホラバーバンド上（末確を） 

11800 print pts_name(i);flag(pts_flag(i));type{pts{i ,0,1 )) ; 
11810 print j-1;.V";pts(i ,0,01-1 け；.....； y;..) " ； pts ( i , j , 2 )； 

11820 endfunc 

11830 /* エラー巧あ時などの人力待ち 
11840 func pause() 

11850 int rx , ry , bl , br 

11860 str s 

11870 beep 

11880 while 1 

11890 rosstat(rx,ry,bl,br) 

11900 s=inkey$(0) 

11910 if rx or ry or bJ or br or (s<>"" ) then break 

11920 endwhile 

11930 endfunc 

11940 /* ラバーバンドのま示 

11950 func rubber_band(i , j ,X, y , p , m) 

11960 int n,t 

11970 if first = - I then return!) 

11980 n = pts(i ,0,0) /* な列の JM な 


11990 
12000 
12010 
12020 
12030 
1 2010 
1 2050 
12円6け 

12070 
12080 
12090 
12100 
12110 
12120 
12130 
12] 'H) 
12150 
12160 
12170 
12180 
12190 
12200 
12210 
12220 
12230 
12240 
12250 
12260 
12270 
12280 
12290 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
12380 
12390 
1 ) 

12400 

12410 

12420 

12430 

12440 

12450 

12460 

12470 

12480 

12490 

12500 

12510 

12520 

12530 

12540 

12550 

12560 

12570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 

12670 

12680 

12690 

12700 

12710 

12720 

12730 

12740 

12750 

12760 

12770 

12780 

12790 

12800 

12810 

12820 

12830 

12840 

12850 

12860 

12870 

12880 

12890 

12900 

12910 

12920 

12930 

12940 

12950 

12960 

12970 

12980 

12990 


if n<2 t hen return() 

t=pts( i ,0,1) /♦ .鸟列の々イブ 

if j=l then I /* 帖ぶ 

tl i ne ( \ , y , pt.s{ I , .J+ 1,0 ) , pts ( i , / + 1,1),p, m ) 
if t 三 1 then I /♦ cvn.K なれが r 

t line I pts ( i, n , 0 ) , pt s ( i , n ,1),\*, y , p I m ) 

I 

return() 

I 

if j = n then 1 / ♦ 巧ぶ 

II ine ( pt s ( i , j-1, 0 ) , pts ( i , j -1,1)i i y, Pi m ) 
if t=1 then I /♦ CYCI.H ： な W も 

11ine( X,y,pts(i,1,0),pts(i ,1,1),p,m ) 

I 

return() 

) 

11ine( pts(i ,j-1,0),pt s(i,j-1,1),x,y,p,m ) 
tline( X,y,pts(i,j+1,«),pts{i,j+l,l),p,m ) 
return() 
endfunc 

/* マウスおボタンかキー入力を巧る 
func char set point(i,j) 
int X,y,r\,ry,bl,br 
str s 

mspos(X,y) 

prin し status(i,j,x,y) 
while 1 

rubber_band(i,j,x,y,0,O) 
s=inkey$(0) 
if s<>"" then break 
mspos(X,y) 

rubber_band(i,j,x,y,0,1) 
msstat(rx,ry,bl,br) 

if ( rx<>0 ) or < ryOO ) then pri n し status い ， j , x , y } 
if bl<>C then I 

if first=-1 then break 
rubbe し band(i,j,x,y,0,0) 

rubber—band(itj»pts(i,j,0),pts(i,j,l),l,0) 
pts(i,j,0)=x:pts(i,j,1)=y 
rubbe し band(i,j,pts(i,j,0),pts 

if (pts(i,0,1)=1)and {pts(i,0,0)=3) then tdraw(i,1, 

while (bl <>0 ) : msstat(rx,ry,bl,br)：endwhiie 

if (rx<>0) or {ry<>0) then print—status(i,j,x,y) 

break 

) 

endwhile 

return{ asc(s) ) /* マウスのボタンカ ^|^ されたお合は （） を返す 

endfunc 

/ ♦ draw-current-pts : i 器目のお列 ^?)^M 画 
func draw(i) 
int j 

for j=0 to pts(i,0,0)-1 
tmpl{j,0)=pts(i,j,0) 
tmpl(j,1)=pts(i , J ,1) 
tmpl{j,2)=pts(i,j,2) 
next 

tmp1(0,0)=tmp1(0,0)-1 
ptg_oversample(tmpl) 
if (pts_flag(i)=1)then { 
pts_curve(tmpl,0,0,tmp2) 
aa_lines(tmp2,65534) 

} else aa_lines{tmpl,65534) 
endfunc 

/* draw-a 丄 1-pts : 全点列の描画 
func tdraw(i,p,m) 
int n,j 

n=ptsii,0, 日） - 1:if n=0 then return() 
for j=0 to n 

tmpl(j,0)=pts(i,j,0) 
tmpl(j,1)=pts{i,j,1) 
tmpl(j,2)=pts(i,j,2) 
next 

tmpl(0,0)=tmpl{0,0)-1 
pts_oversample{tmpl) 
tlines(tmpl,p,m) 
endf unc 

/* append-point ; 点を追力げる 
func int append_point(i) 
int n,X,y 
n=pts(i,0,0)+1 
if n=100 then { 
els 

print "append-point : no new point is available."; 
pause{) 
return(-1) 

) 

pts(i•0,0)=n 
if n=1 then { 
mspos(X,y) 
pts(i,n,0)=x 
pts(i,n,1)=y 
pts(i,n,2)=16 
)else { 

pts(i,n,0)=pts(i,n-1,0) 
pts(i,n,l)=pts(i,n-l , 1 ) 
pts(i,n•2)=pts(i,n-1,2) 

) 

return(n) 
endfunc 

/* inser ぃ point : 点を巧乂する 
func int inser し point (—i , j ) 
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13000 

int n ,X, y 


11020 

return(fw) 


13010 

n=pts(i,0,0) 


14030 

) 


13020 

if n=99 then [ 


1.104 0 

ptslist(hk , け J 二 fw 


13030 

els 


14050 

ptslist(fw,1)=bk 


13040 

print ■* insert -point : no n 户 、、 • point is ava i 1 ah 1 r • * ； 

14060 

return(fw) 


13050 

pause() 


14070 

endfunc 


13060 

return(-1) 


14080 

/» メッセージ表ホ領がをがる 


13070 

1 


14090 

Func open_minil)uffer ( 》 


13080 

n = n+ 1 


14 100 

console 30,1,1 


13090 

pts(i,0,0)=n 


141 10 

cls 


13100 

if n=2 then { 


14 120 

endf unc 


13110 

mspos{X,y) 


14130 

/♦ メッセージ表示ががを閒じる 


13120 

pts(i,n,0 ) =N 


14 140 

func close_minibuffer{) 


13130 

pts(i,n,] ) = y 


14150 

cls 


13140 

pts(i,n,2 )=16 


14160 

console 0,31,1 


13150 

)else 1 


14170 

endfunc 


13160 

while 1 


14 180 

/♦ ファイル名に拡张子をつける 


13170 

pts(i,n•0)=pts{i,n-1 ，け） 


14 190 

func str pu し extend( ri lename ； str, 

ext;str 1 

13180 

pts(i,n,1)=pts{i,n-1,1) 


14200 

int i 


13190 

pts(i,n,2) 三 pts1i,n-1, 2) 


14210 

i = instr(1,filename, ) 


13200 

n=n-1 


14220 

if i>0 then filename =1eftS( fi1 

ename, i—1) 

13210 

if n=j then break 


14230 

return{ filename+ext ) 


13220 

endwhile 


14240 

) 


13230 

} 


14250 

/♦ write-pts-f ile :点列データをセーブずる 


13240 

setmspos( pts(i•j,0),pts{i," 

j.1)) 

14260 

func write_pts() 


13250 

return(j) 


14270 

str Iilename 


13260 

endfunc 


14280 

int fp,i,j 


13270 

/* delete-point : 点を削除する 


14290 

dim int tmp(299) 


13280 

func int delete_point(i,j) 


14300 

cls：linput "write-pts-fi]e : "；filename 

13290 

int n,x,y,k 


14310 

filename = pu し extend( filename, 

.1 • PTS..) 

13300 

n=pts{i,0,0) 


14320 

fp = fopen( filename, "c") 


13310 

if n=1 then { 


14330 

cls : print using "writing pts-ti1e 

• @' . • •; f i lename ; 

13320 

cls : print "delete-point: no point exists."; 

14340 

i=first 


13330 

pause() 


14350 

while i>-1 


13340 

return(—1) 


14360 

fwrites{ pts_name(i)+crlf, fp ) 


13350 

) 


14370 

fputc( pts_flag(i), fp ) 


13360 

for k=j to n-1 


14380 

tmp(0) = pts(i,0,0)-1 


13370 

pts(i,k,0)=pts(i,k+1 ，日） 


14390 

tmp(l)=pts(i,0,1) 


13380 

pts(i,k,1)=pts(i,k+1,1) 


14400 

tmp(2) = pts(i,0,2) 


13390 

pts(i,k,2)=pts(i,k+1,2) 


14410 

for j=1 to pts(i,0,0)-1 


13400 

next 


14420 

tinp( j*3 ) = pts ( i , j , 0 ) 


13410 

n=n—1 


14430 

tmp(j»3+l)=pts(i,j,1) 


13420 

pts{i,0,0)=n 


14440 

tmp ( バ 3 + 2) = pts ( i , j , 2 ) 


13430 

if j>n then j=n 


14450 

next 


13440 

setmspos(pts(i,j,0),pts(i,J, 

1 )) 

14460 

fwrite( tmp, 3+(pts{i,0,0)-1)♦3 

,fp ) 

13450 

return(j) 


14470 

i=ptslist(i,0) 


13460 

endf unc 


14480 

endwhile 


13470 

/* append-pt3 : 点夕 q を追カロする 


14490 

fclose{ fp ) 


13480 

func int append_pts() 


14500 

print "done "； 


13490 

int fw 


14510 

endfunc 


13500 

str stmp 


14520 

/* read-pts-file : お列データを口ードする 


13510 

if fre=-l then { /♦ これ WJ 诚列を作れない巧合 ，， 

14530 

func read_pts{) 


13520 

cls : print "new—pts: no new pts is available."; 

14540 

str filename , stmp 


13530 

pause() 


14550 

int fp,i,j 


13540 

return(-1) 


14560 

dim int tmp(299) 


13550 

) 


14570 

cls : linput "read—pts—file: ";filename 

13560 

if first = -l then { /* 点列リストが巧の巧台、巧規じ作る 

14580 

filename 三 put_extend ( filename, 

...PTS") 

13570 

first=fre ： last=fre 


14590 

fp = f open ( filename, "r" ) 


13580 

fre = freelist{f re ) 


14600 

cls 


13590 

ptslist ( last,0)=-1 


14610 

if fp=-1 then { 


13600 

ptslist(first,1)=-1 


14620 

print using "no such file as *@ 

* .; filename ； 

13610 

1else { /* 点列リストにがしい点列を追力げる 

14630 

return ( ) 


13620 

fw=fre 


14640 

) 


13630 

fre=f reelist ( fre ) 


14650 

print using "reading pts-file ，み ' 

.• . ; filename ; 

13640 

ptslist ( last,0 ) =fw 


14660 

i=0 : first=i 


13650 

ptslist { fw,0 ) =-1 


14670 

while ( feof ( fp)=0 ) 


13660 

ptslist ( fw,1)=last 


14680 

freads ( stmp, fp ) 


13670 

last=fw 


14690 

pts_name ( i ) =stmp 


13680 

} 


14700 

pts_flag { i ) =fgetc(fp) 


13690 

cls : linput "new-pts: "； stmp 


14710 

fread( tmp, 3, fp ) 


13700 

pts name ( last ) =stmp 


14720 

pts ( i,0,0 ) = tmp(0 ) 


13710 

pts flag (last )=1 /t デフオルトは 曲诗 とする 

14730 

pts ( i,0,1 )= tmpl1 ) 


13720 

pts (last, 0,0 )=0 /* まだ点列【错 

14740 

pts ( i,0,2 ) = tmp ( 2 ) 


13730 

pts ( last, 0, 1)=0 /» CYCLIC 

でない 

14750 

freadi tmp, pts(i,0,0)*3, fp ) 


13740 

pta ( last, 0,2 ) =0 /* 才ーパーサンプリングなし 

14760 

for j=1 to pts ( i,0,0 ) 


13750 

return ( last ) 


14770 

pts(i,j,0) = tmp('j»3-3 ) 


13760 

endfunc 


14780 

pts ( i, j ,1 )= trap(j«3-2 ) 


13770 

/* delete-pts : 点夕 1 格削除する 


14790 

pts ( i , j , 2 ) = tmp (パ 3-1) 


13780 

func int delete_pts ( i ) 


14800 

next 


13790 

int fw, bk 


14810 

j=append_point ( i ) : if j >- 1 then 

pts_cur ( i )= j 

13800 

if first=-l then { 


14820 

ptslist(i,0 ) =i+1 


13810 

cls：print "delete-pts : no 

pts exists."; 

14830 

ptslisti 1 ,1 ) =i-1 


13820 

pause () 


14840 

tdraw(1,1,1) 


13830 

return (- 1 ) 


14850 

i = i+l 


13840 

} 


14860 

endwhile 


13850 

fw=ptslist ( i,0 ) 


14870 

last=i-1 


13860 

bk=ptalist ( i,1 ) 


14880 

ptslist ( first,1 )=- 1 


13870 

freelist ( i ) =f re 


14890 

ptslist ( last,0 )=- 1 


13880 

f re=i 


14900 

fclose ( fp ) 


13890 

if (fw=-l ) and (bk=-l) then 

1 

14910 

print "done"; 


13900 

first=-1 


14920 

endfunc 


13910 

laat=-l 


14930 

/» 点巧の 1 単位のはを：巧巧リじする 


13920 

return ( f re ) 


14940 

func str pta_at(i,j) 


13930 

} 


14950 

str stmp 


13940 

if (fw=_l) then { 


14960 

stmp = itoa(pts(i, j ,0) )+" ••牛 itoa(pts(i, j , 1))+ , +itoa(pt 

13950 

last=bk 



,2)) 


13960 

pt8list(bk,0)=-l 


14970 

return ( stmp ) 


13970 

return(bk ) 


14980 

endfunc 


13980 

} 


14990 

/拿 output-basic-program : BASIC ブログラムを出力ずる 

13990 

if (bk=-l ) then 1 


15000 

func output—programi ) 


14000 

first=fw 


15010 

str filename 


14010 

ptslist ( fw,11 =-1 


15020 

int fp,i,j 



120 


Oh! X 1990.9. 


►今巧で100巧か々。うちの Oh 议 （ MZ ) も901•じなりました。祀なにが用の本棚をけって 
やろうと化ってます。 み口充弘 （17) おが都 


============= . times.c ================== 

/ けけけテキスト酬の点列描画けけけ/ 

# include "anti.h" 

tdefine TXVRAM OxE 00000 

tdefine PLSIZE 0x020000 

が efine RASTER 0x80 

unsigned char OVERSAMPLE_NOTYET[ 】=" 才ーバーサンプリンク•座巧じを巧して < ださい"; 
unsigned char BAD_PLANE [ドブレーンを号には 0-3 を船してください"； 

void c_tline( xl,yl,x2, y2, plane, mode ) /% 1 医間だけく巧分 ■1 本）描く 

int xl,yl,x2, y2; /♦ 座巧 */ 

int plane ； /* テキスト VRAM のブレーンホ号*/ 

int mode ； /* |10モー ド （ 0;reset, l:set, 2：xor ) */ 

{ 

int dxZ, か 2, sx, sy,i,e, ssp ； 

unsigned short *address, pat; 


か 2 


sy 


: ABSI 
ABSI 


x2-xl 


y2-yi 
=SGN( x2-xl 
=S(2J( y2-yl)♦ (RASTER/sizeof (short ))； 


ssp = B_SUPER{ 0 )； 

address -= (short *) (••TXVRAM+plane*PLSIZE+yl«RASTER+(xl/16)*2 )； 
pat = ( 0x80OO>>{xl%16) 


if ( clx2>=dy2 ) { 
e = -dx2 ； 
i = dx2; 
dx2 本:： 

か 2 »= 2; 

for ( ； i>=0 ； i--)( 

if { roode<2 ) ^address,|= pat ； /♦ set 

if ( ! (modd&U ) *address A= pat ； /* reset 
e += か 2; 
if ( e>=0 ) { 
address += sy ； 
e -= dx2 ； 


•. OR */ 

•. OR+XOR */ 


if {sx>0) { 
pat >>=1; 
if ( pat==0 ) { 
pat = 0x8000 ； 
address-f-f :’ 


I else 



} else { 
e = -dy2 ； 
i = か 2; 
dx2 »= 2 ； 
dy2 »= 2 ； 

for ( ； i>=0; i-- ) { 

if ( inode<2 ) ^address | = pat; /* set ... OR */ 

if ( !(inode&l))taddress "= pat; /♦ reset ... CW+XOR */ 
e += dx2; 


if ( e>=0 ) { 
if (ax>0) { 
pat >>=1; 
if ( pat==0 ) { 
pat = 0x8000 ； 
address ++； 

) 

)else { 
pat <<=1; 
if ( pat==0 ) { 
pat = 0x0001 ； 
address--; 


e —= か 2; 

) 

address += sy; 


B_SUPEK{ ssp ) : 
return ； 


FUNC dummy ) 

DUtW dummy ； 

/* int xl,yl , 地 y2, plane, mode ♦/ 

I 

unsigned int xl , 曲 yl,y2, plane, mode ； 

ARGSET( dummy )； 
xl =IVALUE(1 )； 
yl =IVALUE(2 )； 
x2 =IVALUE(3 )； 

か =IVALUE(4 )； 
plane=IVALUE(5); 
mode =IVALUE{6 )； 

if ( plane〉3 ) 

#ifdef _GNUC_ 
asm ("lea.l 
#else 
#aam 

lea.l _BAD_PLAN 
#endasm 
#endif 

return (1 )； 

) 

c_tline( xl, yl,x2, y2, plane, mode )； 
return ( 0 ); 


tlines{ dummy ) /* 酿本化、全点列を麵する */ 
dummy ； 

/* PTS Cpta ; int plane, mode */ 

{ 

PTS か ts; 

unsigned int xl,x2, yl,y2, plane, mode ； 
int i, n ； 

ARGSET( duireny ) : 

ARYSETd )； 
pts =PARYT0P(1 )； 
plane=IVALUE(2 )； 
mode =IVALUE け）； 



-BAD—PLANE,a1"); 

ミ ， al 


►編集部の巧お先がが給とはこウゃオドロキ！ということは泉を寺の駅で編化部の人と 
すれ七がっているのかな一。 木村な （17) がな都 


15030 els : linput "output-basic-program; filename 
15040 filename = put_extend( filename, ".BAS") 

15050 fp = fopen( filename, "c") 

15060 els : print using "writing basic-program •@filename: 
15070 fwrites( "/* " + t.ilename+crlf, fp ) 

15080 fwrites( "screen 1,3,1,1"+cr1f , fp ) 

15090 fwrites( '•dim int tmpC 99,2 ) "+crlf , fp ) 

15100 irfirst 
15110 while i>-l 

15120 fwrites( "dim int "+pts_name { i ) + "( 1999 ,2 ) *'+cr 1 f , fp ) 

15130 fwrites( "tmp={", fp ) 

15140 pts{i,0,0)=pts(i,0,0)-1 
15150 fwrites( pts_st(i,0), fp ) 

15160 fwrites( crlf, fp ) 

15170 for j=l to pts(i,0,0) 

15180 fwrites( " ,fp ) 

15190 fwrites( pta_st(i,j), fp ) 

15200 if j = pts(i,0,0) then fwrites( ")", fp ) 

15210 fwrites( crlf, fp ) 

15220 next 

15230 pts(i,0,0)=pts(i,0,0)+l 

15240 fwrites( "pts_oversample( tmp )"+crlf, fp ) 

15250 if pts_flag(iT=l then { 

15260 fwrites{ "pt8_curve( tmp,0,0,"+pts_name(i)+" )"+crlf 

,fp ) ~ 

15270 } else { 

15280 fwrites( "pts_raove{ tmp, 0•0•" + pts_name(i ) + " )"+crlf, 

fp ) ■ 

15290 ) 

15300 fwrites( "aa_lines( " + pts_name(i) + ",rgb(31•31,31))"+c 

rlf, fp ) 

15310 i=pt8list(i,0) 


15320 endwhile 

15330 fwrites( "end"+crlf, fp ) 

15340 fwrites( eof, fp ) 

15350 fclose( fp ) 

15360 print "done"; 

15370 endfunc 

15380 /« save-pic-file : グラフィック画をセーブする 
15390 func save_pic() 

15400 str filename 

15410 els：linput "save-pic-file: "；filename 
15420 filename = put_extend( filename, ".PIC") 

15430 els : print using "saving pic-file ..." ； filename ； 
15440 pic_aave( filename,0,0,511,511) 

15450 print "done"; 

15460 endfunc 

15470 /»load-pic-file : グラフィック酬を口ードする 
15480 func load_pic() 

15490 str filename 

15500 int fp 

15510 cla : linput "load-pic-file ： ";filename 
15520 filename = pu し extendf filename, ...PIC") 

15530 fp = fopen( filename, "r") 

15540 if fp=-l then { 

15550 els : print using "no such file as '@;filename; 

15560 pause() 

15570 return() 

15580 ) 

15590 fclose( fp ) 

15600 cls:pri；nt using " loading pic-file • @ f i lename 

15610 pic_load( filename,0,0 ) 

15620 print "done"; 

15630 endfunc 


リス 


56789012345678901234567890123456789012345678901 

66666777777777788888888889999999999000000000011 

11lx 1 n 11111111 


2345678901234567890 

22222222223 

11 u 11111111 


111111111 1C 

IX 1* 1A 1i 1A 1* 11 1A 1J 12 1 


特集 2 デジタルペインテイングへの道 
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X_INIT ： 

X_RUN 

X_END 

X_SYS 

X_BRK ： 

x_crrRL_ 

X_RES1 ： 

X_RES2 ： 


1«^«：ちテーブル 


dc.b 

dc.b 


,tline,,0 
*tlines*,0 


けけけ外部削がヘッダ ****** 

* tlines.c 

* time I int xl,yl,x2, か、 plane, mode ) 

* tlines( PTS *pts, int plane, mode ) 

» イン フオメー シ ヨン-テー ブル 


IJ ス S 3 


dc.b 

.even 


» パラメータ.テーブのポインタ 


PTR_PARAM ： 

dc.l 

dc.l 


TLINE_PAR 
TLINES PAR 


ハ • ラメータ.テーブル 


48 

int_val : 

equ $0002 

本 

int 

49 

PTS_ary: 

equ $0052 

% 

ID-array of 

50 

void—ret : 

equ $ffff 

t 

void 

51 





52 

TLINE_PAR: 




53 

dc.w 

int_val 



54 

dc.w 

int val 



55 

dc.w 

int_val 



56 

dc.w 

in し val 



57 

dc.w 

int_val 



58 

dc.w 

int—val 



59 

60 

dc.w 

TLINES_PAR ： 

void_ret 



61 

dc.w 

PTS_ary 



62 

dc.w 

int._vai 



63 

dc.w 

int_val 

void_ret 



64 

dc.w 



65 





66 

♦ 冉拍[へのポインタ 




67 





68 

PTR_EXEC ： 




69 

dc.l 

_tline 



70 

dc.l 

_tlines 




2D-array of int 


リス h 4 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


/ けけけ化用マクロなどのを巧 ****** / 

#define N_PIXEL 512 /* スクリ ーンの サイズは 512x512 ビクセル ♦/ 

パ X-BASIC 力、らの引がをアクセスする */ 

typedef int FUNC ； /* X-BASIC の外部削な：房り備れラーコード 》/ 
typedef int DU^MY ； /» C と死剧がの受けおしの速いを吸収するダミー引な V 

1 unsigned short *par ； /* 一時めな引なリスト */ 

1 short *ary(10+l] ； /♦ 一時めな配列リスト： X-BASIC が | な{が大化 


個*/ 

12： 

13 ： #define ARGSET( A 
14 ： 

15 
16: 

17: 

18: 

19: 

20 : 

21: バその他、座がなマクロ V 
22 : 

23: 

24 ： 


#define l 
#define ATOP( I 
#define TYPE( I 
#define IVALUE( 
#define CVALUEI 
#define FVALUE( 


par=(unsigned short ♦)(&A);) 
par 【 0]) 

(I) 巧 - 4 ) 
par[ATOP(I)]) 

Mint ♦)( & (parlAlX)P(I)+3]))) 
par[ATOPm+4]) 

♦ (double *) 化 （ par 【 ATOP(I) + U)) 


/* 引な*/ 

/* 引おの備技 V 
/* 巧 I 引をの M 
/* 引なの型 ♦/ 

/* int のが */ 

/* char の愤 ♦/ 
/♦ float の怖 */ 


#define ABS( X ) (( け） >0)?(X) : (-(X) )) バ X ♦/ 

#define SGN( X ) ((けい0)?1: (( け） <0)?(- い： 0)) バXの巧号（正負または巧 ）*/ 


25 ： 

26 ： 

27 ： 

28: 

29 ： 

30 ： 

31 ： 

32 ： 

33 ： 

34 ： 

35: 

36 ： 

37: 

38 ： 

39 ： 

40 ： 

41 ： 

42 ： 

43: 

44 ： 

45 ： 

46: 

47: 

48: 

49 ： 


#define MIN( X, Y ) (( はいけ） ）？（ Y) : (X) ) /♦ X, Y のつち大きくないほう */ 
#define MAX( X, Y ) ({(X) >( Y) )?(X) ： (Y)) /* X,Y のうち小さくないほう */ 

/* R.g.b ごとの巧 ! 巧を巧るためのマスクとビットシフト */ 


#define VMASK_B 
#define VMASK_R 
#define VMASK i 


#define SHIFT_B 
#define SHIFT_R 
#define SHIFT—G 


62 /» 0b 0000000000111110 ♦/ 
1984 /» 0b 0000011111000000 »/ 
63488 パ 0bll111 0000000 白 0()0 V 


/* r.g.b 力、ら々ラーコードを計 » する */ 

#define RGB(R,G,B) ((B)«SHIFT_B| |R)«SHIFr_R| (G)<<SHIFT_G) 
/» カラーコードから R,G,B 成分を取り出す V 


#define BLUE(C) 
♦define RED(C) 
#define GREEN(C) 


((C)&VMASK_B) >> 甜 IFT_B 
((C)&VMASK_R) >> SHIFT R 
((C)&VMASK_G) 〉> 甜 IFT_G 


#define IMAX 31 /* R,G,B の巧をのせ 大 f 占 */ 


U ス h 已 


: zz==rrrr== map.S 三 ================= 

けけパ外舒稱蹤ヘッダけけけ 

* grad-box.c 

* grad_box( int xl,yl, 化が， gx, gy, cs, ce 


6: % 

I 】 ） 


random—fmetai( float 10, b し int seed し dO0, dOl,dlO, dll 
♦ crush( int xl,yl,x2, が， fLoat k ) 

* インフオメーシヨン-テーブん 


131 ： 

132 ： if ( plane>3 ) { 

133: #ifdef _GNUC_ 

134 ： asm ("lea.l —BAD PLANE,al"); 

135: #else 
。 6: fasm 

137: lea.l _BAD_PLANE,al 

138: tendasm 
139: #endif 
140: return (1); 

141 ： ) 

142 ： n=pts[0][0 ]； 

143 ： if ( pts[0]I2]!=OVERSAMPLE )( 

144 ： #ifdef _GNUC_ 

145 ： asm ("lea.l _OVERSAMPLE_NCm'ET,a 1 ")； 
146: #else 
147 : #asm 

148 ： lea.l _OVERSAMPl£_NOTYET,a 1 
149; #endasm 


150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 


fendif 

return 


)； 


for { i=l;i<n ； i++ ) { 
xl=PIX( pts[i][0]); 
yl=PIX( pts(i][l]); 
x2 = PIX( pts[iH][0]); 
y2 = PIX( pts(i+l][l]); 
c_tline( xl, yl,x2, y2, plane, mode ); 

) 

if ( pts[01(l]==CYCLIC 
xl=PIX( ptsInJIO] ) 
yl=PIX( pts[n](lj ) 
x2 = PIX( pts [ 川 0] ) 

が =PIX( pts(l][l] ) 
c_tline( xl, yl,x2, が， plane, mode ); 

) 

return ( 0 )； 


い点列が醜している船、巧点とお点をつなぐ */ 



おかかかか蓋若おかか 


122 Oh! X 1990.9. 


► II 本俯の波化では MZ - 2521が9,8001りで， MZ -80 B 力巧 80 f りでなられていました。がの流 
れはがい。 木ド递 01(18) 巧離昭 
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12 

13 

M 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

63 

54 

55 

56 


X_INIT 
\’_腳 
X—END 
X_SYS 
X_BRK 
X_CTRL_D 
X_RES1 
X_RES2 
PTR_TOKEN 
PTR_PARAM 
PTR_EXEC 
0 , 0 , 0 , 0,0 


U ス h 己 


========== grad_box.c ================== 

/ttttt* なめグラデーシヨン（マッハバンドなし）けけけ / 

# include <graph.h> 

# include "map.h" 

#define SC 256 /* 色の巧度を巧 ( 呆するための倍率 */ 

unsigned char OUTOF_SCREEN 【ド • 指をした座括がスクりーンの範邸外です"； 


FUNC grad_box( dummy ) 

IXMIY dunrny; 

/* int xl,yl,x2, y2, gx, gy, 


ce ♦/ 


int xl,yl,x2, か、 gx, gy, cs, ce ； 
int d0, d, w; 

int tmp, X, y, xs, ys, xe, ye, か，か， yy; 
static int xx[ N_PIXEL 】 ； 
unsigned int r, g, b, rs, gs, bs, 
unsigned int Ic,lb, c ； 
unsigned int eg, cr, cb, お， dr, db 
static unsigned int bg[2][ N_PIXEL 
static unsigned int br{2]( N_PIXEL 
static unsigned int bb(2][ N_PIXEL 
static unsigned short slbuf[ N_PIXEL ]; 


ge, be; 



if ( xl<0 II x2>=N_PIXEL |I yl<0 I I y2>=N_PIXEL 
#ifdef _GNUC_ 

asm("lea.l _OUTOF_SCREEN, a 1 ’.）； 

#else 
#asm 
lea.l 
#endasin 
#endif 

return 


84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 


dx 
か： 


x2-xl ； 
y2-yl; 


if ( gx>=0 
X3=0 ： 
xe=dx ； 

)else { 
xs=dx ； 
xe=0 ； 


if ( gy>=0 
ys=0 ； 
ye=dy ； 

)else { 
ys= か； 
ye=0; 


77 

rs : 

: RED{ 

CS 

)*SC 

78 

79 

が : 

bs : 

: GREEN( 

: BLUE( 

CS 

CS 

パ sc 
)*SC 

80 





81 

re : 

: RED{ 

ce 

)*SC 

82 

が : 

: GKEEN( 

ce 

い sc 

83 

be : 

: BLUE( 

ce 

バ sc 


for { x=0 ； x<=dx ； X++ ) bgtOJlx] = br[0](x] = bb[0][x] = 0 ； 
w = gx*xs+gy 本 ys; 

d0 = gx*xe+gy か乾が值をとる必要はない ( 巧が内の觀こがする d と巧 ! ： : 巧巧ち） ： 

for ( x=0 ； x<=dx ； X++ ) xx[x] = gx*x: 

Ic = 0; 
lb =1; 

for ( y=0 ； y<=dy ； y++ ) t 
Ic =1-lc; 
lb =1-lb ； 

eg = cr = cb = 0; 
for ( x=0; \<=dx ； X++ ) bgI 1b)( \ ) 


brlIbllx] = bblIbllxl 


yy = gy * y - w ; 

for ( \=0 ； x<=dx; X++ ) { 
d = xx[x)+yy ； 

cr += ( ((d0-d)<rs+d*re)/dl0 + br(IcJ lx) 
eg += ( ((d0-d)*gs+d*ge)/d0 + bg|ic]Ix) 
cb += { ((d0-<l)*bs+d*be)/d0 + bb|lcj[.\| 

r = cr/SC ； cr -= パ SC; 
g = cg/SC ； eg -= g*SC ； 
b = cb/SC; cb -= b*SC ； 


slbuf(X]= 
brllbjlxj 


RGB( r, 宜 ， b ); 
に cr/8 ； 


* 關 K : 名テーブル 

PTO_T0KEN ： 

dc.b 

• b 

• b 

dc.b 
.even 

* パラメータ.テープポインタ 
PTR_PARAM ： 

dc.l GRAD_BOX_PAR 

dc.l RANDOM_FRACTAL_PAR 
dc.l CRUSH_PAR 

> パラメータ.テーブル 

float val ： equ $0001 * float ( 引な ) 


• grad_box *,0 
Irandom_fractal',0 
•crush,I0 
0 


int_val : equ $0002 
float_val_omt ： equ $0081 
int_val_omt : equ $0082 
void_ret : equ $ffff 


int val 
in し val 
int_val 
in し val 
int_val 
intval 
int_val 
in し val 
void_ret 


FRACTAL-PAR: 
dc.w float_val 

dc.w float_val 

dc.w i n t_va し omt 

int_val_omt 
int_val_omt 
int_val_omt 
int_va し orat 
void ret 


int ( 引な） 
float ( 省巧可） 
int ( 省獅 ） 
void ( 戻り値） 



dc.w 

dc.w 

dc.w 

dc.w 

dc.w 


CRUSH-PAR: 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

» [へのポインタ 

PTR_EXEC ： 

dc.l 
dc.l 
dc.l 


in し val 

int_val 

int_val 

int val 

float_val 

void_ret 


_grad_box 
random_fractal 
crush 


d 加 dddd 化か dddd 


丽 I 雜 


►傑の W * る限りではビデオボード （ CZ -6 BV 1) のピンは6本しかないようになえる力則 
のせいだろう力‘。 か旧智宣 （16) 巧り UU 


特集2 デジタルペインティングへの道 


123 




















x2, y2； float k ♦/ 


int 

int 

double 

int 


xl,yl,x2, 
idx, idy； 
k； 

y. yf. wy 


y2; 


tmp ； 


double d, d00, dOl, dll, dl0; 
double dx, か， ix, iy； 
int ixO, ixl, iyO, iyl； 

static unsigned short slbuf0[ N_PIXEL ], albuf11 N_PIXEL ]； 

ARGSET{ dunmy )； 

xl=IVALUE{l)； 

yl=IVALAJE{2)； 

x2=IVALUE(3)； 

y2=IVAUJE(4)； 

k=FVALUE(5); 


if ( x2<xl)( 
tmp=xl； 
xl=x2； 
x2=tmp; 

J 

if ( y2<yl)( 
tmpryl; 
yi=y2; 
y2=tinp； 

) 

idx = x2-xl; 
idy = y2-yl; 
dx = (double) idx； 

か =(double) idy； 
wy = idy+1; 

if ( xl<0 II x2>=N_PIXEL II yl<0 II y2>=N_PIXEL 
#ifdef _(»JUC_ 

asm("lea.l _OUTOF_SCREEN,al")； 

#elae 

#asm 

lea.l -OUTOF—SCREEN,al 
tendasm 
#endif 

return (1)； 


for ( x=0； x< 三 idx; x++ ) { 

get( xl+x, yl,xl+x, y2, slbufO, sizeof{short)»wy 
ix = (double)x»(double)M/dx ； /» OT じ使う巧が >/ 
ixC = (int)ix ； 
ixl=ix0+l; 
ix -= (double)ix0; 
for ( y=0; y<=idy; y+4 

iy = (double)y*(double)M/ か ;/* 谢 U] じ巧う座が 》/ 
iy« = (int) か； /» 巧なが（切り巧て ）*/ 

iyl = i が+1; /» ffiK： が（切り上げ ）*/ 

か -= (double )iyC; /< 'J かが */ 


/» © a が（切りおてい/ 
バ拉お M 切り上げい/ 

/» V 


/* ランダムフラクタルが子を》/ 
/♦ 抹お顯する ♦/ 


d00 = (double)Dliye][ix01; 
d01=(double)D[i が] [ixl]; 
dl0 = (double)D[iyll[ix0J； 
dll=(double)DIiyl][ixl]； 
d =(1.0-iy)»((1.0-ix)«d00+ix*d01)+iy»((1.O-ix)»dl0+ix»dll)； 

が =y+(int)(k»d)； 
if ( yf>idy ) yf=i か； 
if ( yf<0 ) が =0; 
albufl[y] = slbuf0[yf]； 

) 

put( xl+x, yl,X い X, y2, slbuf1,sizeof(short)<wy ); 

) 

return ( 0 ); 


U ス h 曰 


113 

bgllb](x] += cg/8; 


114 

bb[ibj(x] += cb/8； 


115 

br(lb][ 

(x>0)?(x-l):(x)] 

+= cr/‘1; 

116 

bg[lb][ 

(x>0)?(x-l):(x)] 

+= cg/4； 

117 

bb[lbj[ 

{x>0)?(x-l):{x)) 

+= cb/4； 

118 

briibjt 

{x<cLv)?(x+l):(x) 

1 += cr/8； 

119 

bgtlbll 

(x<dx)?|x+l)：(x) 

)+= cg/8; 

120 

bb 【化り 

(x<dx)?(x+l):(x) 

]+= cb/8； 

121 

巴 r /= 2; 




U ス h7 


=============== main.c ================== 

1：/ けけけバラメータ巧けなし用仮変致のま化 tttttt / 

2： 

3: unsigned short <par ； /* 一時的な引もリスト */ 

4: unsigned short 化び【10+り；/ ♦ 一時めながリリスト： X-BASIC が|放巧大10 
瓶*/ 

5 ： 

6： /tttttt コン バイラを巧ずためのダミー （ ま巧されない ） ****** / 

7 ： 

8: void inain() 

9 ： { 

10 ： I 


eg /= 2； 
cb /= 2; 

1 

put( xl,y い y, xl+dx, バ +y, slbuf, sizeof (short )*(d\-+l)); 


============== crush.c ================== 

1; / tttttt ランダム•フラクタルじよる自巧柯 J (?) のま現けけけ/ 
2： 


3：れ nclude 
4: # include 
5: #include 
6: # include 
7: #include 

9: #define GAUSS(X) 
andO )/(4*65536)) 


<stdlib.h> 
<basic0.h> 
<graph.h> 
<math.h> 
"map.h" 


((X)*(rand()-rand()+rand()-rand{)+rand{)-rand()+rand 


/* mij£m£L V 


♦define M 128 
#define R 7 

int D[M+1][M+1J； 
int L(R+1J； 
int S[R+11; 

void rf{ n, x, y 
unsigned int n, x 


unsigned int s, s2; 


/* ランダム•フラクタ巧リのサイズ ♦/ 
/* 騰レペル； log M V 


/* ランダム•フラクタル配タリ》/ 

/* mm */ 

々刺面の夕 


/* 


0 大きさ */ 


S = S[n] ； 
s2 = 8/2； 

while ( D[y ][x+s21==0 ) 

D[y ]tx+32] = (Dly l【x ]+D[y ]Ix+s])/2 + GAUSS(L[nJ)； 
while ( D[y+s ]Ix+s21==0 ) 

D[y+8 】【x+s2i = (D(y+s][x ]+DIy+s][x+s])/2 + GAUSS ル [n り； 
while ( D[y+s2i[x 1==0 ) 

D[y+a2][x ] = (D[y ][x ]+Dty+s](x J)/2 + GAUSS(L[n])； 

while ( D[y+s2][x+3 ]==0 ) 

D[y+ 日 2】【x+s ] = (Dly 】 [x+s]+D【y+s】Ix+s])/2 + GAUSS(L[n])； 


while ( D[y+s2][x+s2]==0 ) 

D[y+821[x+s2] = (D(y][x+s2]+D[y+s)Ix+s21+Dly+s2][x]+D[y+s21[x+s])/4 
GAUSS(L[n])； 

38: if < 3>2 )( 

rf( n+1,X , y 


39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 
B6 

87 

88 


rf( n+1,x+s2, 
rf( n+1,X , y+s2 
rf( n+1,x+s2, y+s2 


FUNC randoin_fractal(dunmy ) 

DUMiY durmy ； 

/« float 10, b； (int seed し d 00, d 01, dl 0, dll )) ♦/ 


double 10, b; 

int seed:1234, d00=O, 

int i, X, y； 


d01=0, dl0=0, dl1=0; 


IVALUEO )； /♦ W 下は省巧巧 《/ 


ARGSET( dummy ) ; 
10=FVALUE(1)； 
b=FVAUJE(2)； 
if ( ARGO2 ) seed： 
if ( ARfiC==7 ) I 
d00=WALUE(4) 
d01=IVALUE(5) 
dl0=IVALUE(6) 
dn=IVALUE(7) 


for ( i=0; i<=R； i++ ) ( /* を總する 》/ 

L[iJ = (int)(10»exp(-b»(double)!))； 

S[i) = (M»i)； / t 風*^刺面の大きさ ♦/ 


for ( y=0； y<=M; y++ ) 
for ( x=0； x<=M； X++ 
D[yj(xl=0; 

1 


/« 讓ヒ本/ 


D[01l0]=d00； 

Dl0][M]=d01； 

D[M][0]=dl0； 

DtMl[M]=dll； 


/» Wfjfi ♦/ 


rf( 0,0,0 )； /t ちか分机じよるランダム.フラクタル*/ 


extern unsigned char 0UT0F_SCREENt ]； 
FUNC crush ( dunny ) 


111111111111111111111111111111 ix 111111111111111111 n 111111111111 


2 2 2 2 2 2 2 
<1 —A 11 1* n 11 


J24 Oh! X 1990.9. 





















X 郎邮 OCARD.FNC 用力ードグ- 


bugou Masaru 

菅生勝 


赤黒 (SPEED) 
BLACK JACK 


Mounai Toshiyuki 

毛内俊行 



グぶ^ 


CARD . FNC を使ったヴームシ U —ズ第3，4弾。今回はかなりポピュラーなゲーム， 
赤黒 （ SPEED ) と目 LACK JACK ①登場た。せっかくの CARD . FNC , 目一衙:使 
つてみよラじやないか。まだまだネタはつさないぞ。みんな，どんどん授稿して<れ。 


リアルタイムカードグーム 


CA 民 D . FNC を使ってトランプゲーム 
を作ってみました。6巧号の化録ディスク 
のわかげで全国のユーザーが CA 民 D.FN 
C を持っていることと思います。 CARD . 
FNC は Oh ! X 日巧号で発表された X-BASI 
C 用のカードゲーム支援闕数群です 。力一 
ドのグラフィックデータを巧臘しているの 
で，誰にでも手軽に力ードゲームを作るこ 
とができます。 

今四発表するゲームは「ホ黒」です。知っ 
ていますか？もしくは 「 SPEED 」 と呼ば 
れることのほうが多いかもしれません。卜 
ランプを酷使するゲームとして有名ですね。 
私は小学校のヒ员よくやっていたもんです。 


ルール 


一応，ルールを解説してわきます。力一 
ドをホ黒の2つに分けてわき，プレイヤ 
一は黑のカードを持っています。闽面には 
手ホしのうちの4枚ずつが表示されています 
ね。 マウスの ボタンを押す とゲームスター 
卜です。 

ゲームが始まる^手ネしのうちの1枚ずつ 
が画面中央に現れます。これらの上に4枚 
の台化のうち数上がりまたは数ドがりのシ 
ーケンスを組むものを重ねていきます。台 
ネしの空いたところには手ネしから新しいカー 
ドが補充され，先に手持ちのカードすベて 
をなくしたほうの勝ちになります。なわ， 
台本しはマウスボタンの左右でどちらの山に 
秘んでいくかを指定します。台ネしを化す際 
にはスート（記号）や左右の位轟は関係あ 
りません。 

が方とも出せるカードがなくなったら手 
ネしから新しいカードを台ネしとして1枚ずつ 
山に秋みます。カードが出せる状態なら， 
いつでもカードを出すことができます。要 



赤黒 


するじ手の速い人が勝つ t いう，トランプ 
には珍しいリアルタイムゲームなのです。 

が方の手ネしがなくなった場をは，残った 
台ネしの数で勝敗が決まります。同数のとき 
は数ぞの合計が少ないほうが勝ちとなりま 
す。をして， コン ピュータかプレイヤーか 
どちらかが3勝した時点で1ゲーム終了で 
す。 

求求ネ 

できるだけ短いプログラムにしようと思 
ったのですが，プログラムを作るのが下手 
なもので，やはり300巧を少し超えてしま 
いました。 

プログラム 中の シャツフルルー チンは5 
巧号の「99」のものをそのまま使わせても 
らいました。 （ M . S .) 


BLACK JACK 


こんにちは。 CA 民 D . FNC はもう BASIC 
に組み込みましたか？ 先巧の HEART 
に引き続き，今巧ら SPEED が投稿され， 
予想り、卜-の反を蝶に驚いています。なにを隙 
を う奥は私ら SPE 巨 D を作って編集室へ持 
っていったのですが「投稿が米てるよ」の 
一言でボツになってしまいました。「ガー 
ン！ しまったあ……」といってもあとの 
祭り アフターフェステイバル。 でも， を こで 
引き下がっては巧の名がれ。このショック 
を エネルギーに巧え て，わずか3円で 作っ 
てしまつたのがこのブラックジャックです。 


BLACK 

ね夕ん ♦ 

JACK 

■田 

r が •• • 

圆 

■ 


BLACK JACK 


ルールの 説明 


人数は2人の J :.， 使うカードはジョーカ 
一を除く 52枚です。化には，次に示すよう 
にそれぞれ点数がついています。 

A ……1点または11点（任な） 

絵札……10点 

数ネし……数字どおりの点数 

ゲームは嚴ネ刀に，ベット（脱•けを）を場 
に山して始まります。 デイーラー がベット 
を化した人のところにカードを配ります。 
力ードは1枚目を伏せて，2枚 [1 は表じし 
て配られます。カードが2枚配られたら， 
伏せてある1枚巧のカードを ri かだけで见 
て，1枚目と2枚 I !のカードの点数を足し 
合わせます。この点数がハンドの-盤本,なと 
なります。このあ！: デイーラー がもう1枚 
カードを引く力>間いてくるので，必要なら 
1枚もらいます。もちろん，をの3枚口の 
ネしらハンドの点数に加算されます。 

ここで注意しなければいけないのは，ハ 
ンドの点数は21点を越； I てはいけないとい 
うことです。ハンドの点数が21点を1点で 
も才ーバーしたら，ハンドの点数は0点に 
なってしまいます。たとえばハンドの点数 
が19点もあるのに，もう1枚カードを引く 
ということは，危険きわまりないことだと 
いうことを念頭にわいて， 3枚目を取るか 
どうかかめます。 

最後にディーラーが3枚目を取るかどう 


赤黒 . BLACK JACK 125 



















か決めてから，ゎぶ:いに伏せてあった1攸 
回の力ードを見せない，強いハンドを持っ 
ていたほうが場のベットをららいます。デ 
イーラーはゲームのあいだじゅう變わるこ 
とはありません。 

なゎ，本おブラックジャックでは21点を 
作ったときのハンドのかたちによって，腑 
け金のイ宵払いや3倍私いというルールがあ 
るはずなのです力;'，誰に間いてもいうこと 
が全が違うので，今回は倍私いルールはつ 
けませんでした。 

プログラムでは，コンピュータがデイ— 


ラーになってあなたと1対1で対戦します。 
お初にわ;瓦いにコインが日枚祀られ，1ゲ 
—ムじつき1枚ずつベットとして支化いま 
す。ゲームは相ホのコインをすべて巻き上 
げたほうの勝ちになります。ゲームはほと 
んどむ動的に進行します。途中，3枚目の 
カードを引くかどう力，間いてくるので，マ 
ウスを操作して， YES または N 0のところ 
でクリックしてください。 

最かはコイン20枚くらいでが戦させよう 
と思っていたのですが，あまりにもコイン 
が多いとゲームが終丫するのに1〜2時閒 

リス hi 赤黒 


もかかってしまって訴になりませんでした。 
コインの枚数を変えたい人はリストの口•ホ 
号90のを数 kazu の俯を変えてみてください。 

ネネ 本 

99から始まって， HEART ， SPEED し 
すでに CA 民 D . FNC 対応のゲームは4本 
も揃ってしまいました。しかしトランフ。 
ゲームは奥力;'深い。まだまだたくさんのゲ 
ームが X 68000 で動く F 1 を待っています。 

説巧の皆さんのなかで「我こをは」と思う 
人は，どんどんゲームを作って投稿しまし 
よう。符ってます。 （ T . M ) 


10 
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220 
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/♦ 力 ー ドゲ ー ムホお < 巧 CAKD.FN で） 

/* 

dim int aka( 25 ),kuro( 25 ) 

dim int akn_te<3>,kuro_tfH 3> 

tnt し card,r_card,r_od=0,h ort=0 

int r_sheel =26 , b sheet = • む , \-1 ご =(>,d 尸 f 三 U 

int mxI my•x,y•rb,J b 

int man=385 ，ご om=32,see=0,pa3s = け 

int g_end=0,begLn=1,endr=0 

sir level="t 20018 rrrrrrrrrrr" 

init() : mro し init() : card init() 

い — " 

while ( endf = 0 )/* メインフログラム 
nv_init( 》 : shuffle() : card_place() 
while (g_end = 0J 

message(1,0):open_card(I 
whi le(begin=1) 

man_piay() : com_play() 
endwhiIe 
endwhile 
endwhile 
end 
/♦ 

rune man—play( )/ ♦ 人が ] 
int ps,ch 

mspos(mx,my):msstat(x,y,Ib,rbI 
if (lb or rb) then { 

p3=(mx-138) ¥ 60 : pass=0 
if (lb=-l)then { 

kuro_nokori(cd_check(ps,0,kuro_te(ps),man),ps) 
)else { 

kuro_nokori(cd_check(ps,1,kuro_te(ps),man),ps) 
I ~ 


func com_pJay{ )/ ♦コンヒュータ 
int i ,ca,ch 

if (m_stat(l)= け and puss=0) then I 
for i=0 to 3 

if (aka_nokori(cd^cherk{set • ，け , aka to(see I ,rom),see )) 
return{) 

if (aka_nokori t cd_f:heck ( see , I , aka _ t. e ( see ) , com } ，只 ee 》 J 
return!) 

see=(see+I) mod 4 
next : pass=1 

if (vic_check( )) then ret urn () 
if Iman_check()=0) then ( 

if (r_od = 26 and b od = 26) then jud がい 
1 一 


func int aka_ 打 okori l ch ; i nt • ps ; i nt > / ♦力ードカ' 夕 5 つている力、 
if (ch= 1 )then I 

shee し dsp(0 I : m play(1) 

if (r_od<26j then card_put け s,0 I else aka te(ps)=-1 
if (r_sheet = 4) then r 户 verse い 
return(1) 


return(0) 
endfunc 

/» 

func kuro~nokori(ch;int,ps ； int )/♦ 力 
int dm 

if (ch=l)then I 
shee し dsp(1) 

if (b_od<26 J then card_put(pa,1 
kuro_te(ps > =-1:dm = \ic rheel … 
I 


int i,cd 
for i=0 to 3 

cd=(kuro_te(i)-1 I mod 13+1 

If (l_card=cd+I or l_card=cd-1)then return(1 
if (r_card=cd+1 or し card=cd—1)then return(1 
if ( ace_kinK (し card ) or ace_k i n 巧 （ r_f'ard , cd 


830 
840 
850 
860 
870 

880 if ( ace_kinK (し card ) or ace_k i n 巧 （ r_f'ard , cd ) ) then re 

turn{1) 

890 next 

900 begin=0 : return(0) 

910 endfunc 
920 /t 

930 func int cd_check い、； int,1r;int, c— num;int,p 。； i nt )/» 出せる力 
ードか 

940 int cd,cl,c2 

950 cd=(c_ 打 um-1) mod 13+1 

960 switch Ir 

970 case 0 : i f ( し card=cd+l or し card=cd — い then { 

card_cir ( n , pc , 0 , c__num ) : 1 — card = cd : return (1)) 
if <ace—kingti_card.cd>) then I 

card_clr(n,pc,0 ,c— num >: し car わ cd:return( 1 )I 
break 


ドが巧っている力、 


f unc sheet _dsp( sw;int)/* 巧 0 の巧なを表弔 
swjtch SW 

case 0 : r_sheet=r_sheet- 1 

locate 10,3： print using " タロ " ； r_sheet 
break 

case 1 : b_sheet=b_sheet-1 

locate 55,28 : print using •• s#" ; b_shpet 

endswitch 
endfunc 

/♦ 

func int man_check ( >/ ♦出せる力ー ドがある力、 


case 


I :iV 


{r card=cd+l or r_card = cd-1)then 1 
card clr(n,pc,1,c_ 打 um}:r_card=cd:return(1 
f <ace—kingir—card,cd)) then ( 
card_c I r ( n , pc , I , c_num I : r_c?ard 三 cd : return {1 


980 
990 
000 
010 
020 
030 
040 
050 

060 endswitch 
070 return{0) 

080 endfunc 
090 /♦ 

00 func int ace_king(1 r_c ； int, cd ; i nt ) / * 巧が A か K の巧合 
10 if (lr__c=l or lr_c=13 ) then { 

20 if (ir_c= I and cd=13) or (Ir c=13 and cd=1)then return 

) _ 

30 ) 

*10 return t 0 > 

50 endfunc 
60 /♦ 

func card—clr(n;int,pc;int, I r;int,c — num;int 》 /* カー K を出ず 
int w 

w=n 本 60 十 143 

window(w,pc,w + 48,p じ + 96 > : wipe() 
window(0, 0, 511, 511) 

c_put (lrM21 + 172 牛 （ rnd( > ♦10-5 J ,208+( rnd( いい )- 目） ， c_num} 
endfunc 
/♦ 

func card_put ( n ； int, sw; i nt) / ♦ホの力ードをお加 
int ps 
ps=n<60+143 
switch SW 

case 0 : c—put(ps,com,aka(r_od)) 

只 ka_te(n)= 打 ka(r_od 》 ： r_ od = r_od+1 
break 

:c_put(ps,man,kuro(b_od)) 

kuro_t e( n ) =kuro( b_oci ) : b od = b od+ 1 


Lc_check( )/t カードがなくなれ：丈 I ちち 
380 if (r_sheet = 0) then defeat(} ： loop_out() : return(1) else 
390 if (b_sheet = 0 ) then victory() : loop^out():return( 1 ) 

400 ) — 

410 return(0) 

420 endfunc 

-no / 本 

440 func judge ( )/* カードが处つている斯むの判を 
450 int i , j , rs , bs , rc , b 。 

460 for i=0 to 3 



470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 m 

620 100 p_out 

630 endfunc 


if (aka_te(i)<>-I) then | 

rs = rs+1 : rc = rc+{( aka_to(i)-1)rood 
j=i<60+143 ： c_put(j,com•aka—te(i ) 》 


13+1) 


if (kuro_te(i> <>- 1)then { 

bs=bs + T : bc = bc+((kuro_te( i)- 1)mod 13+1) 

) 

next 

if ( rs<bs) then defeat( ) else 1/* け巧での巧を 
if (rs>b3) then victory() else ( 
if (rs=bs) then { 

if (rc<bc) then dereat< )/» お[すでの料を 
if ( rObc ) then victory() 
if (rc=bc) then message(4,0) 


126 Oh! X 1990.9. 





1640 It 

1650 func victory(》/Mg ち 
1660 vic=vic+1 

1670 levei = left$I level,len(level)-vie) : mml_init{) 

1680 if (vic=3) then { 

1690 game_end( vic,det.,0) : message ( 5,0) : quest ion I I 

1700 ) else message(3,0) 

1710 endfunc 
1720 /♦ 

1730 func defeat()/*0 け 

1740 def=def+l 

1750 if (def=3) then i 

1760 Kame_end(vie,def,1):message(H,0) : question( I 

1770 ) else message(2,0) 

1780 endfunc 
1790 /t 

1800 func question( )/ ♦巧削 

1810 message バ ， 1) : msareal292,236,373,259) 

1820 ^repeat 

1830 mspos(mx,my):msstat け， y,lb,rb) 

1840 until(lb=-1) 

1850 if (mx<333) then { 

1860 100 p_out():level = "t 20018 rrrrrrrrrrr" 

1870 ():msarea(137•379,377»4H7| 

1880 vic=0:def=0:mess_clr() 

1890 } else loop_out():endf=1 

1900 endfunc 
1910 /t 

1920 func ioop_out ()/< ループを巧ける斯な（ゲーム巧お } 
1930 pas 3 二 1: begin=0 : g_end= 1: wipe() 

1940 endfunc 
1950 /t 

1960 func open_card( )/ ♦ ホ黒 1 蚊ずつ巧！こ荣示 
1970 if (r_od<26) then ( 

1980 c_put(172,208,aka{r_od)) 

1990 l_card={aka { r_od)-1)mod 13+1 

2000 r_od=r_od*l : sheet_dsp(0) 

2010 if Ir_sheet=4) then reverse() 

2020 ) — 

2030 if (b_od<26) then ( 

2040 c_put{293,208,kuro(b_od)> 

2050 r_card=(kuro(b_od)-1 》 mod 13+1 

2060 b od = b od + 1:sheet. dsp(1) 

2070 ) — 

2080 m_play(1):be な in=1 : pass 三 0 

2090 endfunc 
2100 パ 

2110 func shuffle! )/♦ シャッフル 
2120 int i,j.k.l 

2130 message(6,1) 

2140 for i=0 to 50 

2150 j = rnd( )*25:k = rnd( い 25 

2160 l = aka(j) : aka(j)=aka(k) ： aka(k )=1 

2170 j = rnd()<25:k = rncH )*25 

2180 l=kuro(j) : kuro(jl=kuro(k) : kuro(k)=l 

2190 next 

2200 mess_clr() 

2210 endfunc 
2220 /t 

2230 func init () パか巧殺を 
2240 int i, j 

2250 screen し 1,1,1:console ,,0:vpag6(13) 

2260 mouse(4) ： mouse(1):palet(1,0):apnge(3) 

2270 fill(0,0|51 し 511,8) 

2280 fiil( 24• 40,127, 72,1 》 

2290 fill( 384,440, 487, 472,1) 

2300 box( 26, 42112 5, 70,1 5) 

2310 box(386,442,485,470,15) 

2320 locate 4, 3:print " 巧 0= 26 巧 " 

2330 locate 49,28: print " 歹ぶ〇三 26 巧 " 

2340 apa«e(I) : fi 11 (I 30,227, 380,267,1) 

2350 box( 132,229 ,378,265,15) : apage(2) 

2360 msarea(137,379,377,487) 

2370 for i=0 to va1(right 重 （ tim 户 $,2)):rnd( J:n 尸 xt 


2380 endfunc 
2390 /t 

2400 func mmi — init( )/t F M のかが化 
2410 m_init():ra_alloc( 1,50) 

2420 m_asaign(1,1):m_trk(1,level) 

2430 endfunc 
2440 /» 

2450 func nv—init ( )/* 巧をのか期化 
2460 r_od=0 : b_od=0 : g_end=0 : bogin=1 
2470 see 三 O:pass = 0:r_sheet = 26 : r2B 

2480 endfunc 
2490 /* 

2500 func rard initt )/ ♦ ，ホと， • 巧 ！ こかける 

251 0 int i , j , 8r= 1, sb=0 

2520 repeat 

2530 for i=l to13 

2540 aka(j) =sr 車 13 争 i 

2550 kiiro{j)=sbtl3fi：j = j + l 

2560 next 

2570 sr=sr+1 : sb=sb+3 

2580 untillj=26) 

2590 endfunc 

2600 / 木 

2610 func card_place( )/ ♦ 姑かの 4 けをまホ 
2620 int i , j=3 

2630 for i=0 to 3 

264 0 card_put(i,1) こ card put(j,0)：j = j-1 

2650 next 

2660 endfunc 
2670 /本 

2680 func reverse (》/* 力ードを巧向ける 
2690 int i,j 

2700 for i=0 to 3 

2710 j=i*60 牛 143:c—put(j,com,0) 

2720 next " 

2730 endfunc 
2740 /t 

2750 func message ( 打； int,rt;int)/* メッセー ジ 棄示 
2760 str m 


2770 

switch 

n 






2780 

case 

1 


Push button to start!! 


break 

2790 

c 扛 se 

2 

m =" 

3 ン 

ビユーターの巧ちです 


break 

2800 

case 

3 

m =" 


巧ガの巧ちてす 


break 

2810 

case 

4 

m = H 


弓 1 さみけ 


break 

2820 

C 凸 SP 

5 

m =" 

巧 

方はホ烘の天ネでず 


break 

2830 

case 

6 

m =" 

シ 

ヤツフルしています 


break 

2840 

case 

7 

m = ••も 

ろ 一 

巧やりますか 1 Y 11 N 

)•* 

Dreak 

2850 

case 

8 



巧までした 




2860 endswitch 

2870 vpage(14):locate 18,15:print m 
2880 if rt then return() 

2890 button_on() : mess_clr() : button 一 ofn J 
2900 endfunc 
2910 /t 

2920 func game_end(v;int,d;int■pc;int >/» お张表示 
2930 str p,c,m,vd(1)=| •• 巧ち " •••巧け • J 
2940 p=chr$(130)+chr$(79+v) 

2950 c=chr$(130) 牛 chr$(79+d) 

2960 m=p+ • 巧 " +C + " 化で W 方の " +vd(pc い " でず " 

2970 vpage(14):1ocate 20,15:print m 
2980 button_on( ):mes8_clr( ) : but ton_of f() 

2990 endfunc 
3000 / 本 

3010 func button_on{) 

3020 repeat:msstat(x,y,lb,rb):rndI ) : unti I (1b=-1) 
3030 endfunc 
3040 /t 

3050 func mess_c I r( )/* メッセージ消去 

3060 locate 18,15:print spaces(28):vpage(13) 

3070 endfunc 
3080 /本 

3090 func but ton_orf ( )/* ボタンがされるまて 
3100 repeat : mast at ( x , y , I b , rh ) ： iint. i 1(1 b = 0 ) 

3110 end func 


U ス BLACK JACK 


10 / »=============r=rr======================= 

20 /t 巧化の card.fnc 巧力ードゲーム 

30 /» 

40 /* ブラックジャックだよ一ん！！ 

50 /本 

60 /♦ by T.Mounai 

70 /»=============================== 三 ======== 

80 /家 

90 int pnum,ct , Kazu=5•i , round 
100 str pasa="@59v15c",win="@56v15o4132cegb8g" 

110 str iost = "e53v 15o4c<c*', pico= ぃ @56vl5o4 i20aeae" 
120 str wake="®56vl5c",ti 打 ="@50vl 506164 cc" 

130 str nam 

140 dim int card(51),hand(5),kane(1 》 


340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


150 dim int syohai(1)=(0,0) 

160 dim str plr(2) = (" うさぎさん"，"きつ 
170 dim char coin(127)=1 


180 

中 0 , 

0, 13,22 し 22 し 0, 0, 

0, 

190 

+ 0, 

0,220,204,204,208, 0, 

0, 

200 

+ 0, 

13,205,221,221,205, 0, 

0, 

210 

+ 0, 

13,205,220,221,205, 0, 

0, 

220 

牛 0, 

220,221,204,201,220,208, 

0, 

230 

+ 0 , 

220,220,220,221,220,208, 

0, 

240 

+ 0, 

220,220,220,221,220,208, 

0, 

250 

+ 0, 

220,221,204,205,220,208, 

0, 

260 

+ 0, 

2201221,220,220,220,208, 

0, 

270 

♦ 0, 

220,221,220.220,220,208, 

0, 

280 

♦0, 

220,220,204,205,220,208, 

〇 » 

290 

+ 0, 

13,205,220,221,205, 0, 

0, 

300 

40, 

13,205,221,221,205, 0, 

0. 

310 

+ 0, 

0,220,204,204,208, 0, 

0, 

320 

♦ 0, 

0,13,221,22 し 0, 0, 

0, 

330 

♦0, 

0 , 0 , e, 0 , 0 , 0 , 

0 


480 

さん " ， " ねこさん " J 490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 


dinit() 
while 1 

aite{ ) : for i 三 0 to1 : kane(i ) =0 : syohai(i)=0 : next 

kinit() : round=0 

repeat 

els ： wipe() 

sf 1() : betse … ： round=round+ 1 
deal() : edmoreC) 
hantei(syobu()) 
until kane(0)=0 or kane(1)=0 
goverU 
endwhile 
end 
/♦ 

func aite( ) /t がが巧ホの；夹を 

apage(3) ： fill(8, 112,87,127, 2) 
pnum=rand() mod 3:nam=plr(pnum) 
symbol{8,112,nam,1,1,1,15,0) : apage(1) 
endfunc 


func kinit() 
int i ， j 
for i=0 to1 

for j=0 to kazu- 
kput(i•j,1) 
next 
next 
endf unr 


ンのを示 


func oto(a;str) 
m_init( ) : m_trk t1 
endfunc 


):m_play い 


巧架を 


ホ黒- BLACK JACK 127 














670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 


f unc wtm( n ) / ♦ 時 （ II ) 時ち 

int i 

for i=0 to n*500 : next 
endfunc 

/♦ 

funo dinit い / ♦ 脚西 i か期化 

randomize(vai(mids(times ,4,2 )I♦100 + vaJ(rights(times , 2 ))) 

ra_as3ign(1,1):m_alloc(1,100) 

screen 1,1,1,1:console ,,0:paJet(1,0J 

凸 page(3) 

filKO.O, 511,511,2) 
fiil(120, 100,391 ,411,8) 

symbol( 31,31,B LACK J A C K'•,1,2,2,0,0) 

symbol I 30,30," BLACK J A C K M,2,2,15,0) 

symbol( 8 • 304 ," あなた " •しししけ • 0 } 
mouse( 1 ) ; mouse(4) : setmsposl3-13,39()) 
endfunc 

/ 本 

func cdput(x,y ,n) /♦ 化の画面を示 I 

c_put(x*60+17O,y#180+120,nl 
oto(pasB) 
endfunc 


funo oc_card(pl ,n,of ) / » 化のが ！ 面を吊 2 

int cn 

if of=1 then cn=hand(pi♦3+n) else cn=0 
cdput(n,pl,cn) 
endfunc 
/♦ 

func sf1() / ♦シャッフル 

int a,b,c,i 

for i=0 to 5 : hand(i)=0:next 
for i = 0 to 51 : card(i) = i + l : next 
for i=0 to 99 

a=rnd()*52 ： b=rnd{)*52 

c=card(a) : card(a)=card(b) : card(b)=c 


next 

endfunc 

/♦ 

func dealt) 
int i=O,j=0 
repeat 

if i=2 then i=i+l 
hand(i)=card{j) 
i=i+l ： j=j+l 
until i=5 

oc_card(0,0,0):wtm(1) 
oc_card(1,0,0) : wtm(1) 
oc_card(0,1,1):wtm(1) 
oc_card(1,1,1) : wtm(10) 
oc_card(1,0,1) : ct = 4 
endfunc 
/» 

func askpt(n) 
int a 

if n=0 then return(-l) 
a=n mod 13 
switch a 


/» ft かじ力ードを酷る 


/» 点お巧 ® 


: a = 10 
: a= 10 
: a= 10 
: break 


break 

break 

break 


I 、 ハシドの巧化 （ a=l 


case 0 :占 
case 1 1: a 
case 12: a 
default : h 
endswitch 
return(a) 
endfunc 
/» 

func handptl(pl) 
int a,i,n=0 
for i=0 to 2 

a=a3kpt ( hand{pi«3+i) 
if a=-l then break 
n=n+a 
next 

if n>21 then n = 0 
return(n J 
endfunc 

I 、 

func handpt2{pi) 
int a,i,n = 0,af = 0 
for i=0 to 2 

a=askpt(hand I pi♦3 + i い 
if a=-1 then break 
if a=l and af = 0 then a=11；af =1 
n = n+a 
next 

if n>21 then n=0 
return(n) 
endfunc 

/♦ 

func cdmore() / ♦々ードの jfl 加 

if yesno() then hand{5)=rard(ct) : ct=ct+l ： oc_card(1,2, 
if dcoml) then hand!2)=card(ct) : oc_card(0,2,1) 
endf unc 


/» ハンドの巧饰 t a=lOJ 


func yesno( ) / ♦ もう 1 巧引く （人閒》 

int a,x,y, 1, r 

rasgC もう 1 巧引く ？ "） 

apage( 0 ) 

fill! 310,383,338,401 ,3) 
fill(350, 383,378,401 ,5) 
locate 39,24 :print..yes no" 
repeat 

mspos(X,y):i=rnd() 
a=point(X,y) 
if a=4 or a=l5 then a=0 
ms8tat{x,y,l,r) 
until l + r<>0 and aOO 
apage(1) 
switch a 

case 3:a=1:break 
case 5 ： a=0:break 
endswitch 


1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 


cla : msg (...') 

filK 182,236 .296,276,0) 

return(a) 

endfunc 


パもう 1 牧引く （コンビ Mi¬ 


fune 过 com() 
int a , pl»p2 , pt , p3 , rr 
pl=handpt1(0) : p2=handpt2 ( 0) 
if pi>p2 then pt=pl else pt=p2 
rr=rand() mod 5+3 : ps=21-pt 
if pa>7 then return!1) 
if pa<3 then returnl0) 
if ps>rr then return(1) 
return(0) 
endfunc 

/拿 

func ayobu() 巧な！！ 

int pi,p2,m,c 

msg (- I 巧 負！"） 

oto(pico) : wtm 120 > : m3g(""> 

oc_card(0,0,1) : pirhandpt1(0) : p2 = handpt2(0 I 

if pi<p2 then c=p2 else c=pl 

pi=handpt1(1):p2=handpt2(1) 

if pi <p2 then m= ： p2 else m = pl 

locate 45,10:print c : wtm{10 I 

locate 45,2 0:print m ： wtm(5) 

if c>m then return(0) 

if c<m then returni1) 

return(-1) 

endfunc 


ッセージま示： 


,15• け） 


/* W 利巧を 


func msg(m ； 8tr) 
if m="" then { 
apage(0) 
wipe() 
apage(1 》 

)else { 
apage(0) 

filld 90,244 ,316,276, 
symbol(198,252,m,1,1, 
apage(1) 

} 

endfunc 

I 、 

func hantei(n) 
switch n 

case 0 :msg(" 仏の )! 巧ち " ） ： oto( lost) : wtm(10) 

kput(0,kane(0),1):hetclr(0):wtm(3) 
kput(0,kane(0),1) ： betelr(1) 
syohai(0)=syohai{0)+1:break 
case l:ms が " あなたの） ! 巧ち"）： oto t win ) : wtra(10 ) 

kput(1,kane(1),1):betclrl0) ： wtm(3 ) 
kput(1,kane(1),1):betcJ r(1) 
syohai(1 》 = syohai(1)+1：break 
case — 弓 I をかけ " ）： oto(wake) : wtm{10J 
kput(0,kane(0),1):betclr(0) : wtro{3) 
kput(1,kane(1),1) ： betelr(1):break 

endswitch 
wtm(20) : magC ‘"） 
endfunc 

/本 

func kput(pi,n,f) f 、コインを示 

int X,y 
apage(2) 
switch pi 

case 0:y=128:break 
case 1 : y=320 : break 
endswitch 
x=(n mod 5) り 6 + 8 
y=y+(n/5)»16 
if f then { 

put(X,y,x+15,y+15,coin> 
oto{tin) 

kane(pi)=ka 打 e(pi) +1 
)else I 

fill(x,y,x+15,y+15,0) 
kane(pi)=kane(pl)-1 

) 

apage(1) 
endfunc 
/♦ 

func betaet() 

kput(0,kane(0)_l,01 : apage(2) ： oto{tin) 
put(96 I 112,111,127.coin) : apage(1) : wtm{3) 
wtm(3) : kput(I,kane(1)-1,0) ： apage(2) : oto(tin) 
put(96,304 ,111 .319,coin) : れ page 川 : wtm(3) 
endfunc 

func betclr(n) /♦ がけをを消ず 

int y 

if n=0 then y=112 else y=304 
apage(2) : fill(96,y,111 ，パ 15,0);apage(1) 
endfunc 


/< 巧けをを表示 


ザーしーホ、 


パ • 


r,x,y 


func gover() 
int a,win•lost«ave , し 
str winner 

cls ： apage(0) : filJ(150,150,361,361,3) 
win=syohai(1):lost=syohai(0) : winners" あなた " 
if kane(1)=0 then { 
a=win:win=lost:lost=a 
winner=plr(pnum) 

) 

ave= ( win* 100 )/(round-(round—win-lost)) 
locate 22,11 rprint winner;" ろ《巧ちました " 
locate 22,13 : print" ラウント • お"； round 

locate 21,15 : print win ;" | 巧"； lost ;" 敗"； round—wi 打一 lost •••• み " 

locate 22,17:print" 巧ホは " ； ave;"X でず " 

locate 22,20:print"click mouse button ミ ！" 

repeat:msstat(X,y,l,r):until l+r<>0 

wipe ( ) : els ： apage(2) : wipe() : apage(1) 

endfunc 


128 Oh! X 1990.9. 
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風の谷のナウシカ 
ラジオ体操第— 


毎曰暑い曰ガ続きますね。さて今月は ，X 
68000用には「風の谷のナウシカ」を，そし 
て X 1 用にはこの時期ならではの「ラジスが 
操第一」です。さすヴじをラ近所の小学校 
じはいきづらいでしよラし，朝っぱらから 
ラジス体操なんて元気はさらさらないでし 
よう巧ら，これを巧ち込んで密かに部屋で 
ラジスが操して < ださい。 


Ando M 曰 S 曰 hiro 

安藤正洋 


Kamio Souichi 

神生総一 


待ちに待ってたま田成美のデビュー® 


かなり前の話 （1990 年3巧号）で恐縮な 
のですが，「風のをのナウシカ」が聞きたい， 
それら女:旧成美さんが歌ってたやつ力 3' いい， 
てなことをこのぺージで嘗いたんです。な 
んてわがままなお願いなんだろうと 思いつ 
つも，催促3なんて書いたんですよ。をし 
たらね，嬉しいじゃありませんか，常速の 
を藤君が一肌脱いでくれたんですよ。なん 
といっても6年も前の曲だし，サントラと 
違って イメー ジソングだからテープだって 
入手阳雛だったでしように……。「参考にし 
たらの H 刊明星1984年7巧号が録 YOUN 
GSONG 」 っていうのが泣かせますよね。 

类は4巧に投稿していただいてたのです 
が，諸般の事情により褐賊が延ばし延ばし 
になっていたのでず。ごめんなさい。もと 
らとの曲がをんなに派手ではないために， 
近頃の OPMA SONGS i 比べるともよっ 
!：寂しいような気がするからしれません力;'， 
確かにこういった葬闕気の曲でした。1阳人 
的にはバックのオカリナが細野さんらしく 
てとっても好きでず。 


今曰は泉岳寺からお送りしまず 


「夏」っていったら海や山^いいけど， 
子供の顷にやったラジオ体操ってのもいい 
むんですよね。まあ，やってた頃はめんど 
くさいらんだったように記憶してますけど 
も。スタンプ集めて，最後の日に何かをも 
らうってのはどこでもやっているものなの 
でしようか？ 私は化火七ツトかノートだ 
ったように記憶してるんですけど。今現を 
でラジオ降操をやっている人，何をもらっ 
たかはっきり觉えている人は「ラジオ体操 


-私はこれをもらった」係までよろしくわ 
願ぃします。 

しここまで書けば曲は自然に聞こえて 
きますね？をう，ラジオ体揀です。タイ 
ムリーでしよ？もなみに第一です。ラジ 
才体操第二を「ラジオ体操」ってぃう[山の 
2 がだと思ってぃる人もぃるようです力 S '， 

をれは問違ぃです。作曲をが違うのです。 
第一は服部正さん，第二は刚が秋磨さんな 
のです。よく觉えてわきましよう。試験に 
化るか^しれません（んなこたね一）。を 
れでは最近のカラオケブームにあやかって 
今回は特別に歌詞 （？） を載せてしまぃま 
しよラ。 

-腕を前から上に学げて，のびのび巧仲 
びの運動から，はぃ， 

-1234567手足の逃動 
-12345678 

-1234567腕を回します 
-外回し r 勺圆し5678 
. 123456胸の逃動姐:を關ぃて 
-樹振りななめ上5678 
-123456体を横に1111げる逃動 
-12345678 

-123456はぃ下に曲げましよう 
-3回〜手と腰後ろに 
-123456腕を振って作をねじる逃動 
-左を左右左に大きく 78 
-右左右左56おを戾して手足の逃動 
-12345678 

-123456足を横に川してななめ下に 
-正面で起こし〜78 
• 〜34〜腕をす振って体を岡す逃動 
•い34〜78 

-〜34〜足を戻して両足跳び 
• 1 .34 柳ぃて閉じて開ぃて閉じて 

-關ぃて閉じて手をの逃動 

-12345678 



安田成美 


. 123456のびのびと深呼吸 
-〜34〜78〜34〜78 

* 指•導/柳川英縣 

注：上記で‘‘〜’’とある！：ころでは蝶って 
いません。2扑 i 分ですのでタイミングを取 
るときに注意してください。同様に"1 • 
34" では‘‘ 2 ’’ の音 （ 1拍分）を化していな 
いことを表しています。惯れないと‘‘123 
…… " を後ろのピアノにあわせて音程を取 
ってしまいがちです力す，練销すればちゃん 
と歌える （？） ようになります。曲切れよ 
く，元気に，おかを擒て去って歌うのがコ 
ツです。ちゃんとテープから採詞したので 
間違いはないはずです。あとは，「今りは 
千化巧区のま珍小学校の校庭に2年 C 組の 
皆さんに集まって扛らいました」のような 
ノリのものをアタマにかければ，ほぼ完璧 
といえます。なゎ，この曲は XI の MUSIC 
BASIC 用です。音色データは VIP に入っ 
てきた 「PLUCKED . VTD 」 を使ってく 
ださい。をのまま口ードすると BASIC を 
破壊してしまいますので， 

LOADM " PLUCKED . VTD "，& hB 000 

としてから閒いてください。琴の音色を遽 
択しているようです力;'，やはりぶ統派のピ 
アノでも鳴らしてみましよう。作者の神生 
君は MML 歴1力巧だをうです。皆さんら 
貨けずに投稿してくださいね。 （ S . K .) 
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U ス hi 


風の谷のナウシカ 


日木音楽著作指協会（出)許諾第 9071006 - 001 ち 


24, 



22. 

0. 

0. 

24, 

0. 

0, 

22. 

0, 

0. 


m,v8et(80,SYN3) 


dim char 

SYN4C 4 

52, 

15, 

0 

3し 

15, 

0 

31, 

20, 

11 

20. 

15. 

0 

20, 

20, 

11 


m V8et(81 ,SYN4 ) 
dim char SYN5M, 


52. 

け. 

0. 

3し 

15, 

0. 

3し 

15. 

12, 

31, 

31, 

田 _vaet (が 
dim char 

15, 0, 
15,12, 
!,SYN5> 

SYN6(4, 

54, 

15, 

0, 

3し 

6, 

15, 

20, 

10. 

0, 

20. 

10. 

0. 

19,10, 0, 

m v8et(83,SYN6) 

dim char 

SYN7I 4, 

63, 

15, 

0, 

3 し 

20, 

0. 

3 し 

8. 

0. 

3 し 

8. 

0. 

3し 

8, 

0, 


ra_vaet(84,SYN7 > 
dim char SYN8(4, 


巧の巧のナ巧シカ 
OPMA VERSION 
Music by 畑 ff 明を 
Programed by 巧巧あが 

SOUND DATA 
dim char HHSH(4,10>=I い 


60, 

3 し 
18 ， 

3 し 
3 し 

m_vset( 70 


dim char CLAVES(4,10>= 


5 • 0 • 0 • 0 I 

0 , 0 . 0 , 0 . 

9.18, 8, 0, 

0 , 0 , 0 , 0 , 

5.19, 8, 0, 

HHSH) 



な t) • 

3 し 

け. 

0. 

5. 

10. 

52, 

2, 

2, 

け， 

2. 

0. 


31 1 

12, 

0. 

5. 

10. 

30, 

2. 

0, 

0, 

0, 

0. 


3 し 












3 し 










01 

m vset(71 

,CLAVES> 









dim 

char 

CYMBAL(4 

,10)={ 

/♦ シンンパ -^^ 






52. 

15, 

0, 

0, 

0, 

0. 

0, 

0, 

0, 

3, 

0, 


3 し 

0. 

0. 

0. 

0. 

7, 

0, 

15, 

6. 

0, 

0. 


31 ， 

22, 

12 ， 

5, 

し 

6 • 

0. 

13 ， 

2| 

0, 

0. 


3 し 

25. 

0. 

2. 

0, 

8. 

0, 

1 〇 | 

2, 

0, 

0, 


3し 

25, 

13 ， 

5, 

i, 

6, 

0. 

15, 

6, 

0, 

01 

m_v8et(72,CYMBAL) 









dim 

char 

SYNBASS(4,10I=| 

/♦ シンたへ， 

—ス 





6し 

け. 

0. 

0. 

0, 

0, 

0, 

0, 

0, 

3, 

0. 


3し 

18, 

0. 

10. 

2. 

36, 

3. 

5, 

3, 

0, 

0. 


31 • 

15, 

4, 

10, 

0. 

15, 

0* 

4, 

5, 

0, 

0. 


3し 

15. 

4, 

10. 

0, 

25, 

0, 

2, 

7, 

0, 

0, 


31 ， 

15, 

7, 

10, 

0. 

0, 

0, 

し 

3, 

0, 

0) 

m vset(73 

1 .SYNBASS) 








dim 

char 

STRIKGSl 

n. 

10)= 

1 /* 

け - f すシケイ 

ノストリンンク•ス 


58, 

け， 

0. 

0. 

0, 

0, 

ひ. 

0. 

0, 

3, 

0. 


25. 

15, 

0. 

4, 

0. 

36, 

し 

4 ■ 

3, 

0, 

0. 


23, 

15. 

0, 

5, 

0. 

34, 

し 

8, 

0, 

0, 

0. 


23, 

15, 

0. 

5, 

0. 

42, 

し 

12. 

7 , 

0 , 

0. 


19, 

15, 

2, 

7, 

0, 

4 , 

し 

8. 

0, 

0, 

01 

m_vs 

let ( 7 -J 

NSTRINGSl) 








dim 

char 

STRINGS2(4, 

10)=1 /• 

3 ント号ス古イノ 

スいい 

•，. X 


58, 

15, 

0. 

0. 

0. 


0, 

0. 

0, 

3, 

0, 


24. 

6, 

0. 

5, 

し 

32. 

2, 

2, 

3, 

0, 

0. 


22, 

10. 

0. 

5, 

し 

36, 

2, 

12, 

0, 

0, 

0, 


22. 

31, 

0, 

7, 

0. 

3し 

し 

2, 

7, 

0. 

0, 


16, 

3, 

白 . 

7, 

0, 

0, 

し 

2, 

0, 

0, 

01 


dim char BRASS1M,10> = 


58, 






0, 

0, 

0, 

3, 

0. 

12, 

14. 

0, 

4, 

し 

24, 

2, 

2, 

7, 

0, 

0, 

13. 

U, 

0, 

10. 

15. 

38, 

2, 

14 ， 

0. 

0, 

0. 

12. 

14, 

0. 

4. 

し 

38, 

2, 

2, 

3, 

〇| 

0. 

19, 

15, 

0, 

8, 

0, 

3, 

し 

2, 

0, 

0, 

0) 


m_vaet< 76 
dim char BRASS2{4»10)= 



58. 

15. 

0 , 

0, 

0, 0, 

〇 | 

ひ . 

0, 

3, 

0. 


14. 

10. 

0 . 

5, 

1, 26, 

2, 

し 

3. 

0, 

0, 


24. 

13, 

3 , 

10. 

15. 3 し 

し 

10, 

0, 

0, 

0, 


け . 

11. 

0 . 

5 • 

2, 53, 

し 

し 

了 ■ 

0, 

0, 


17. 

3, 

0 , 

9, 

2, 2, 

し 

し 

0, 

0, 

0) 

m vset( 77 

\BRASS2) 







dim 

char 

SYN1(4, 

10)=1 

[/» 3 トイ 

3 ウナ 

ア t ロク • シ : 

ン t すン 



60, 











26, 

9, 

し 

6, 

4. 35, 


8, 

7 , 

0, 

0, 


23. 

15, 

9, 

8, 

0, 0. 

0, 

8, 

7, 

ひ . 

0. 


26. 

9. 

し 

6 , 

4. 40. 

0, 

8, 

3, 

0, 

0. 


23, 

15, 

9, 

8, 

0, 0, 

0, 

8, 

3, 

0, 

0) 

m_vi 

jet(78 

t.SYNl) 








dim 

char 

SYN2<4, 

10) = 1 

1 /* アナ〇ク，ストソンク•ス 





52, 

け . 

0. 

0. 

0. 0. 

0. 

0, 

0, 

3, 

0. 


20. 

9. 

0. 

3, 

0, 36, 

0, 

4 , 

7, 

0, 

0, 


14. 

9, 

3, 

5, 

0, 3, 

0, 

し 

3, 

0, 

0. 


20, 

9. 

0. 

3, 

0, 32, 

0, 

4 , 

3, 

0, 

0. 


14. 

9, 

3, 

6 , 

0. 3, 

0, 

‘し 

7, 

0, 

〇 1 

m_v! 

jet(7S 

>,SYN2) 








dim 

char 

SYN3(4, 

10)=1 

1 / 拿 3 —ろス ft な■ン 





イ A - 

0 . 


二 "♦ コエン々ナ 3i,»- 


0 . 

0 , 

0 , 

0 , 

け！ 


1180 


4 •け， 

0, 

u. 

0. 

0, 

0, 

0. 

0. 

3. 

0, 

1190 


20,15, 

0, 

4, 

0, 

3 し 

0, 

8. 

7, 

0. 

0, 

1200 


18.15, 

0, 

7, 

0. 

0, 

0, 

8. 

7. 

け. 

0. 

1210 


20,15, 










1220 


18,15, 

0, 

7. 

0. 

0. 

0. 

8, 

3, 

0. 

01 

1230 

m vset( 85 ,SYN8) 









1240 

dim 

char BRASS3(4 

,10) 

=1 

/ 拿 t クターフ - 

3 ニソ ’ 

ン 

ノ 7 •ろス 

1250 


60,15, 

0, 

0, 

0, 

0. 

0. 

0, 

0. 

3, 

01 

1260 


13,16, 

0. 

6. 

2. 

22, 

0, 

2, 

7. 

0. 

0. 

1270 


18,15, 

0, 

8, 

0, 

0. 

0. 

2, 

3, 

0, 

0. 

1280 


12,15, 

し 

6, 

4, 

26, 

0, 

し 

3, 

0, 

0. 

1290 


15,15, 

1. 

8, 

0, 

0. 

0, 

し 

7, 

0, 

0) 

1300 

m_vset け 6,BRASS3) 









1310 

dim 

char LEAD(4,10)=1 

/» 

けチ‘ィ 

—ろイン 




1320 


60, 15, 

0. 

0, 

0, 

0. 

0, 

0. 

0, 

3, 

0, 

1330 


18,17, 

0, 

3, 

0, 

36. 

0. 

4. 

7. 

0. 

0. 

1340 


14.16, 

8, 

7, 

0. 

8, 

1, 

2, 

7. 

0. 

0. 

1350 


31,15, 

0. 

3. 

10, 

20. 

2, 

12, 

3, 

0. 

0, 

1360 


28, 15, 

6, 

7. 

0, 

10, 

2, 

2, 

3, 

0. 

0) 


1370 田 vaet(87 • し EAD) 

1380 /» 

1390 バ 巧巧おを 
1400 !% 

1410 ) 

1420 for i= 1 to 8 ： m_alloc(i,5000)：m as 巧 ign(i•H:n 卢 xt 
1430 8tr a(lll[256]7d(l)f2561 — 

1440 m_tempo … 2) 

1450 /• 

H60 /♦ M M L 皮 m _ t ド k ( > 

1470 /* 

1480 a(0)="«87q 81804 vlly 48,20 I:6rl : | 

H90 a( n = " I : dddee2ddtee2r^4 .e4d| I>a2.r2 ： I |2<H2,r2 
1500 a( 2 ) = •• I : >a<ddd4d4dd4 .c+ | lc + 4c + >ba2 . r4 r 1 < ：| | 2c+i'+ I >bal!. r 1 r 1 

< 

1510 a(3 ) = •vl2f + f+f+f^f+e*l .bf+4ed2def+def + ef+edW2r*l 
1520 a(4) = "f+f + f+f + f+a + 4.bf+4ed2def+def+ef+ed4dedc+df + 2.rlvl3f'f 
4e4a4 ががパ， .r4 . vl2d&edc+dvl1 f + 2e2d2c + 2 
1530 a(5) = *'d2.r4rl 
1540 a(6)="rlrl 

1550 for i = 0 to 2:m_trk( し a<i) い next 
1560 for i =l to 6:m_trk(1,a( i い： next 
1570 for i=l to 5 :m_trk< 1,a い））； next 
1580 for i=4 to 5:m_trk(1,a(i))rnext 
1590 /t 

1600 /拿 

1610 a{0)="e74q 81804 vlO c4&>(b&b-)a4 & {a-4g|f+4 & (efre-|d2 - .|c+>ba 
b<c+dedc+def+gf+ef+gabagab<c+)Id2e2 
1620 a(l) = ••が 8o2v9 d4f4e4c4d4f4 |efe)dc4 

1630 a(2)="e85o2v5 I：d>ab<c+d4a4d4>b4<c+4a4f+4>b4<e4d4d4>b4<c+4 
>a4< : I • 

1640 a( 3 ) = *'®83o3 | : r | v3a<v6dv8f + ) v9q4a (ab) q8al&a2 | 1 v2d (v4ev6f+v 
8tf)V9q4aaaq8a4a4q4gf+q8e4.r4：||2 
1650 a(4)="r4<{dc+)d4q4>bagqSg16f+8•e2. 

1660 a( 5 ) = 1.97403 V10 r Iab<c+dc+>b) 4r4 {ab<c+dc + >b) 4r4 {ab<c+dc+d) 4 
lef+tf)116araaeearl8 

1670 a{6) = *'«74o4v7y 50,40 116f+ 2r8q4gf+f+c+gf+q8ff2r8q4«f+ f+>a<« 
f+q8f♦2e2d2vl1{dc+>bvl0agf+gab<c+de)218 y51,0 
1680 a(7)="«74o4v7y50,40 116f+2r8q4gf+f+c+gf+q8f+2r8q4gf+f+>a<g 
f+q8f+2e2dll8 y51,0 

1690 a(8)=Wv8dld2c+2c+2>Bf+daf ♦い v7blb2b-2 
1700 a(9)=a(l)>a(l) 

1710 a(10) = **«74o4vl0 c4 い f + |e&e-}d4 • > (vUab<c+ 
vl0def+>vllb<c+def+g)2 

1720 a(11)=" 97404 vlO c4 い （b&b-) a4&(a-&g} い 4Me&e-1 d4 . v9c+2< (v7c 
+&v8c+ltv9c+) 2&C+1& (v6c+&v3c+&v0c+) 4 
1730 for i=0 to1:ra_trk(2,a(i)J:next 
1740 m_trM2,"| :8rlT * 


1750 for i=3 to 4:m_trk(2,a(i)) : next 
1760 for i=2 to 3:m_trk(2,a(i)):next 
1770 for i = 5 to 9 :in—trk ( 2 • a ( i ) ) : next 
1780 for i=2 to 3 ： m_trk(2,a(i)) : next 
1790 for i=5 to 8 : 田 trM2 • 狂 （ i)>;next 
1800 ra_trk(2,a(10)) 

1810 for i = 7 to 8 ：in_trk( 2 , a{ I) ) : next 
1820 m_trk(2,a(ll)) 

1830 /t 
1840 /拿 

1850 a(0)="686q 81804 v8y 50,40 c い a4.f+4.d2•.f+1<d2e2 y5O,0 
1860 a(1)="rlrl • 

1870 a{2) = "I ：7rl:Ir2 «81o3vlf ec+>ag 
1880 a(3)=" 9740 lv7 い 3a2b2<a2c+2>:| 

1890 a(4)="a2b2<d2c+2 

1900 a( 5 ) = "675o2v8 a4. {ab<c+cic+>b| 4b4 (ab<c + } (dc+> bab<c+dc+def fg 
)2116araaeearl8 

1910 a(8J="® 8404 v7 f+f+4f+dd4de2r2ee4ec+c+4c+>a2r2| : 4ra<a4> : | 
1920 a(9)=**«77o4v9116d8>aaa8<«76aad77d8>aaa8<dd|:d8>aaa8<9 了 6aa 
a8A77>aaa8<dd:|d8>aaa8<976aaa8(v5a&v7a&v9a&vl0a)8&vlla418 
1930 a(10)="Q86o4v8y50,40 c4.>a4.f+4.d4.a4<c+4 y50,0 
1940 a< ll) = "«86o4v8y50,4O c4 . >a4 . f+4 .d4 . v7c + 2< い 6c^4v7c ♦い .Sc ♦け 
14 {v6c+&v3c+atv0c+) 4 y5O,0 


1950 for i=0 to 4:ra_trk(3,a(i 
1960 for i;2 to 3;m_trk(3,a(i 
1970 for i=5 to 9 : m_trk(3,a(i 
1980 for 1=2 to 3:m_trk(3,a<i 
1990 for i = 6. to 8 : m_trk ( 3 , a ( J 
2000 in_trk(3,a(10)) 

2010 for i=7 to 8 : m_trk(3,a(J 
2020 m_trk(3,a(ll)) 

2030 /* 

2040 


next 

next 

next 

next 

next 

) : next 


2050 a 
2060 a 
2070 a 
2080 a 
2090 a 


00 a 
10 a 
20 a 
30 a 


"976q 81804 v8 c し >a し f + 4.d2. .f ♦い d2e2 
"979o2v4 dldl 

"6 了 9o2v4 I : dl>b2b2g2e2<d2c+2:I 
••082〇3、.5 I :3f + 2«4f + 4e2e2: | 

"f+2g4f+4e2e2 

"f+2g4f+4e2r 67604 vH，U6aaeearl 只 
••が 9o い 4 b2b-2b2<c2>b2b-2b2b4al 
"679olv4 b2b-2b2<c2>b2b-2al 

"»86o4 Iv3f+atv1f + &v5f+&v6f+&v7r+)1 a 1 ••♦2 W af+da い 14" 


2 ) 

3) 

4) 

5) 

6 ) 

7) = 

8 ) = 

>bl 

9) =a(l) + "dl « 8003 ( v0dAtvld&v2d&v3dAv4d t 2^ v5d2 

10) = "07604v8 c4•>a1•f+4.d4-p4a4 

11>= " が 6o4v8 c4,>a4.f+4.d4, ^79o2v4c+2<r41&(v3c+&v2c+&vI 


9o2v4 
2140 a 
2150 a 
2160 a 
C +& V 0 C + 

2170 for i =0 to 4：m_trk(4,a( i ) 
2180 for i =2 to 3:m_trk(4,a( i ) 
2190 for i=5 to 9 : m trk(4, a ( i ) 


next 

next 

next 


►ゲ ーム ボーイし IFE ( Vd .2) の 
倘か？ 


"試験に化ないゲームボーイ謀座" 


とは祝氏にがする挑 
吉田が一 （19) 山形県 
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2200 for i=2 to 3:m_trkM,a … 1 :next 
2210 for i=5 to 8 ： m_trk(4,a{i)) : next 
2220 m_trk(4,a(10)) 

2230 for i = 7 to 8 ： in_trk(4 ,a( i ) ) : next 
2240 m_trk(4,a(11))~ 

2250 /» 

2260 パ 

2270 a(0) = "«77q818o-tv8 c4 . >a4 . f+-1 . H2 . . f+l 


川： :..9790 lv4 alal 

(2) = *'@79olv4 I : alf+2f+2d2>b2<b2a2: I 

(3) = "»82o3v5 I:3d2d4d4d2c + 2：1 

(4) ="d2d4d4d2c+2 

(5) = "d2d4d4d2r «86 〇 3 、 .8 116aaeearl8 

(6) ="»79olv4 g2f+2f+2a2g2f+2f+2g4e4 

(7) ="»79olv4 B2f+2f+2a2g2f+2f1 

(8) = "08Oo3v5 f+Ic+lf+ldl @79o い，‘！ blgl 

(9) ： a(1)f"al 68003 {v0a&vla&v2a&v3a&v4a)2&v5a2 

(10) 5" 97704 v8 c4.>a4.f+I.dl .e4a4 

11) = '*®77o4v8 c4 . >a4 . f+4 .d4 . »79ol v4 a2<a 1 & j v3aA(\ 2a&\ laiv 


2280 a(1 
2290 a(2 
2300 a(3 
2310 a(4 
2320 a(5 
2330 a(6 
2340 a(7 
2350 a(8 
2360 a(9 
2370 a(1 
2380 a(1 
0a)4 

2390 for 1=0 to 4:m_trk(5,a(i 
2400 for i=2 to 3 : ro_trk(5,a(iI 
2410 for i = 5 to 9:m_trk け， a(i 
2420 for i=2 to 3 ： m_trk(5,a{ 

2430 for 1=5 to 8 : m trk(5,a( 

2440 m_trk(5,a(10)) 

2450 for i=7 to 8 ： m_trk(5,a( 

2460 m trk(5,a<11)) 

2470 /» 

2480 /» 

2490 a(0) = "«75q 81802 v9 d4.>b . しが . 片 2. 

2500 a(1)5"«79 o1v 4 fIf 1 , 

2510 a(2)s"e79olv4 | : fId2e2>b2g2<g2e2:| 

2520 a( 3) ：： ..98203 v5 > | : 3a2b4a4a2a2 ： | 

2530 a(4)="a2b4a4a2a2 
2540 a(5)="a2b4a4a2r2 

2550 a(6)="«79olv4 f+2c+2d2f+2f+2c+2d2e4c+I 
2560 a(7)="»79olv4 f+2c+2d2f+2f+2c+2cl 
2570 a(8)s..« 8003 v5 e 1 >al <dl >bl < « 7901 v.'l elel 
2580 a(9)=a(1)4"fl « 8003 {v0f&vl ffcv2f4v3f&v I f) 24(v5f 2 
2590 a(lC) = "«75o2v9y 53,20 d4 .>b4 .g4 .e4 . <c+-Jo+1 y53,0 
2600 a(11) = *'«75o2v9y 53,20 d4 .>b4 .g4 .e4 . v8a2< {v6d&v7di v8d) 2A：d 1 & { 
v6d&v3d&v0d)4 y53,0 


) : next 
) : next 
) : next 
) : next 
) : next 

) : next 


.ala2a2 


2660 m_trk(6.a(10)) 

2670 for i = 7 to 8 :in_trk ( 6 , a ( i ) ) : next 
2680 ni_trk(6,a(ll))~ 

2690 /» 

2700 /* 

2710 a(0)="«73q418olvl2 | ： 4rl：I 
2720 a(l)="I ： 8d<d> : | 


2730 a(2 I = " I : d<d>d<d)d<d>d<d> >b<h>b<b>b<b'b<b>K< « •«<«>«« e>e<^e>a 
<a>a<a>a<a|1>a<a : I I2>g<g 

2740 a(3)=">| ： 3f+<f+>f+<ff>g<g>g<«>a<a>a<a>g<g>g<«>:l 
2750 a(4) = *'f + <f+>f + <f+>g<g>g<g>a<a>a<a>a<a>a<a 
2760 a( 5 J = .’f+< f+>f+ < f+>g<g>K<g>a<a>a<ar い e 户 el "Ip 

2770 a(6)r">I ： g<g>g<g>f+<f+>f+<f+>b<b>b<b>Ila<a>a<a> ； I|2e<e>a<a 
2780 a(7) = ">I:g<g>g<g>f+<f + )f + <f+>Ilb<b>b<b>a<a>a<a>:I 121 :lf<r ； 

I 

2790 a(8) = **>| :4e<e>: I I ： 4a<a >： |<| ： 4d<d >： |>| :4b<b >： M ： 4e<e >： M ：-la 
<a> : I < 

2800 a(9)=a(1)+a(1) 

2810 a J 10) = "q8d4 . >b4 . f + -1.e4 . <q4c+c+e + c + 

2820 a(11) = ..q8d4 . >b4 . f+4 . e4 .a2<vl ldl&d2 . 

2830 for i=0 to 4:m_trk(7,a<i)):next 
2840 for 1=2 to 3:mitrk(7,a(i)) : next 
2850 for i = 5 to 9:m_trk(7,a<i))：next 
2860 for i=2 to 3:m_trk(7,a{i)) : next 
2870 for i = 5 to 8 : m_trM 7 , a いい ： next 
2880 m trk(7,a(10) 

2890 for i 三 7 to 8:m_trk(7,ati)) Miext 
2900 m trk(7,a( 11)) 

2910 /» 

2920 /« 

2930 d(0> = "y2,2r8 が 0ggy2,10r8itgy2,2r8ggy2,10871 が e70gs 
2940 d(1) = **y2,2r8»70gg.v2,10r8agy2,2r8y2,2gg.v2,1 0@7 1 g8»7 Ogg 
2950 a(0) = "«llr q8116o4 »72vl5 <«4 .g4.g4,g2..v8|:|gg2ggg)4|lv9: 

I |2vl0 ： I|3vll ； Ivl5g2g2 

2960 a(l)="y3,3|:3y2,2r8»70gg:|y2,2©71«8«70ggI:2y2,2r8«70gg:Iy2 
,2r8y2,10@70ggy2,10@7lg&y2,10«y2,2®70gg 
2970 a(2) = "| :3"+d(0 い "： I 

2980 a(3) = " I ： 5"+d{1 )+••： r +d(0)+*' I ： 5''+d(1) + ： I "+d(0) 

2990 a(4 ) = '*y2,2r8®70ggy2,10r8««y2,2r8.v2,2ggy2 ,lOe 71 g&y2,l 0gy2,2 
e70gg 

3000 a(5) = "y2,2r8a70ggy2,10r8gg.v2,2r8y2 ,10gy2, 10«y2, 10«7lg&.v2,1 
0gy2,10«70gg 

3010 a {6 ) = •' I :4"+d(0)+"; I 
3020 a(7)="I ： lO"+d(0)+";I 

3030 a(8) = ** I ： 3"+d(0)+" : 1'• + "y2,2r8»70«gy2 ,10r8g[gy2,2r8y2,10ggy2 , 
1097 U&.V2,10sy 2,2970 gg 

3040 a(9)=" y2,2«72<«44y2,I0«8y2,2g4.y2,2«4&y2,10g8y2,2g8&yZ,2g 
4y2,2r8y2,10>®7Oggy2,10«7Ig8y2,10@7Ogy2,1Og 
3050 a (10) = "y2,2®72<g4&y2, I0g8y2,2g4 . y2,2«4A.v2 ,1Og れ 2,2g4 . が • 2r 
8>970ggO71 ル 2g8e70gg 


2610 

for 

i = 0 

to 

4:m_trk<6 

,a( 1 )) : next 

3060 

for 

i = 0 

to 

4:m_trk(8,a(i1) 

: next 

2620 

for 

i = 2 

to 

3:m_trk(6 

,a(i)) : next 

3070 

for 

i = 2 

to 

3：m trk(8,a(i)) 

: next 

2630 

for 

i = 5 

to 

9:ro_trk(6 

,a(i)) : next 

3080 

for 

i 二 5 

to 

8 ： tnltrk(8,a< i )) 

: next 

2640 

for 

i = 2 

to 

3:m_trk< 6 

i)) : next 

3090 

for 

i = 2 

to 

3:m_trk < 8,a(i)) 

: next 

2650 

for 

i = 5 

to 

8 :m_trk(6 

,a(i)) : next 

3100 

for 

i = 5 

to 

7 : m—trk(8,a(i)) 

: next 


3110 m trk<8,a(9)) 
3120 m_trk(8,a(7)) 
3130 m_trk(8,a(10)) 
3140 /« 

3150 /» PLAY 
3160 /» 

3170 m_play() 


リスト 2 ラジオ体操第一 


日本音楽き作樓協会（出)許諾第9071 006-00 1号 


10 ' 5 シ -t ♦ イソ々 No. 1 

20 • 

30 ' 1990.6 .21. by N.Kamio 

40 ' 

50 ' 

60 TEMPO 0 
70 PLAY -tl10" 

80 PLAY " i40vl3p3q7=382,8,O,5 "； 

90 PLAY ": i40vl3plq7 = 382,8,0,5 ••: 

け e PLAY '■ ： i40vl3p2q7 = 382,8,O,5 "； 
lie PLAY '•: i40vl0p3q7 = 3a2,8,O,5 "； 

120 PLAY ": i40vlCp2q7 = 382,8,0,5 '*； 

130 PLAY ..;i40v け plq7 = 382,8|0,5" 

140 1.1. 

150 play "o518d4 f+.g16adf+ag4b.o6c+16do5gbo6do5ao6do5bagf♦det100 
f+dec+d4t70o4f+4 "； 

160 PLAY ";o418a4o5d.el6r2d4g.al6br4 . rl1100r2. t70r64o-»a®-l5" : 

170 PLAY ";o418f+4r2.b4r2.rltl00r2.t70r 3205 dffl45 "； 

180 PLAY " :0314 dao4dr4o2go4dgr4ao4 f+o3bo4dt100o2ao3af+ t70r32.o5 f 
+•39"; 

190 PLAY •■: rlrlo314f + o4do3gbtl00ro3gdt70rl6o5a«36** ； 

200 PLAY ": rlrlo314dbegtl00r2.t7Orl6r64o6d»33' 

210 • - 2 - - - 

220 PLAY '• 1 700414 rf+af+rf+af+o5 ： 125f +116f+8 . «a8 . b32a32f+8 .do5 ：12 
5b4b8.o6c+!12Sd4.c+o5b!125a4a8.ab8.ad8.e "； 

230 PLAY •• ： 04«145r4r64dr64f + r64dr4r64dr64f+r64dl4rlrlrl "； 

240 PLAY ..:o3«142r4r32ar 3204 dr32o3ar4r32ar 3204 dr 3203 al4rlrlrr.; 
250 PLAY " ： o314dro2aro3dro2aro3dadadbdbdada "； 

260 PLAY ： o214dr2.dr2.rf+rf+rgrgrf + rf +"； 

270 PLAY ..;llrrrrr" 

28® • - 3 - - - - - 

290 PLAY " 〇 5116! 125f+8.ga8.f+!125e4o4a4o5!125f+4f+8.ga8.b32a32f+ 
8.d!125b4b8.o6c+!125d4.c+oSb!125a4a8.o6do5b8.ad8.e!125f+8.de8.c+ 
!125d4o6d4" : 

300 PLAY " : 1lrrrrr2.r64o5a@45 "； 

310 PLAY ";llrrrrr2.r32o5f+842"; 

320 PLAY " : o214ao3ao2ao3adadadbdbdao2go3bo2ao3aad..; 

330 PLAY ":o314rf+rgrf+rf+rgrgrf+rgrgf+o2d"; 

340 PLAY •*:o314rdrc+rlrlrlr2dr" 

360 PLAY "o5116e4e8.d!125c+8.o4aa8.a16o5d8.c+d8.e!125r+2f+4f+8.e 
!125d + 8.o4bb8.bo5e8.d + e8.f+!125g2o4!125a4f+ 8.ao5!125d8.o4aa4 "； 
370 PLAY " ： o5i8r64c+®45r2.rlr64d+«45r2.rlo4!125f+4d.f+16 ： 125a.f+ 
16f+4 "； 

380 PLAY " ： o412r32a»42r.rlr32b»42r.rl!I25d4r ."； 

396 PLAY —:o214ao3a!114ao4c^o3da:114f+a+o2bo3f+©2!114bo3f+o2eo3g 
o2!114ao3gdada"; 

400 PLAY ":o314reo2 !114ao3arf+o2 : 114 f+o3f+rd+o1!1l*Jbo3dreol!114a 
o3eo2do3f+o2do3f+"; 

410 PLAY ":o314r2.erlrlro2bro3c+rdrd" 

420 • - 5 - 

430 PLAY ..0418! 125b4g . bl6o5 !125e. o4bl6b4o5 !125d4o4a. bl6o5 ： 125c+. 
dl6f+.el6! 125d4o4a.al6o5! 125d4d4o4d4 . ed4o3b4o4g . a 16b4b2'* ； 

440 PLAY •• ： o418! 12524 e.gl6 !125b.gl6g4 !125a4f+.gl6!125a . bl6o5d . c + 
16o4!125a4a.al6!125a4a4rlr4gg2 "； 

450 PLAY •• ： o4l8 ： 125e4r2. !125f+4r2. ： 125f+4r4 !125f+4f+4rlr2d2 *'； 

460 PLAY " : o314ebebdao2ao3gdaaddddddddd "； 

470 PLAY ■• ； o214eo3eo2eo3go2do3f+reo2do3gf+o2dbbbbbdgg "； 

480 PLAY " : o314rererdrc+rc+dro2gggggr2." 

490 I - 6 - - - - - 


500 PLAY '*0418 : 125e.gl6o5c4o4b4a4g .el6b4h2o5e-lg-lf + .g32f+32e4vl5d 
4g4d.vl3e32d32o4!125b4a4o5e4d.e32d32c4 ' : 

510 PLAY ■" : o414rl red + 2o5cedcv 15o4bo5do4bgvl 3eo5co4ba'*; 

520 PLAY ..:o311rrrrr..; 

530 PLAY .. :o414cco3babgf"cgcgo 21103 go2go3gcacR..; 

540 PLAY — : 0314 ggggeecU2rererdrdrere..: 

550 PLAY .. :o314eecco2bbb2rlrlrr. 

560 • - 7 - 

570 PLAY "vl 50418 b4a4o5d2drd.!119e16dro4bro5drg.!119bl6o6dro5bro 
6crerd.!119cl6o5b.!119a16 "； 

580 PLAY ••: vl5o411f+4ff4a2rrr '； 

590 PLAY ••: vl5o411r2f+2rrr **； 

600 PLAY " : o214do3f+dal.8gro4dro3dro4dro3(icro4dro3dro4dro3crgrdrar 

610 PLAY ":o314r4do2do3f+r4b8r.b8r.b8r.b8r.e8r.f+8r8' : 

620 PLAY *' ： o314rrrdrlrlrl" 

630 ' - 8 - - - -— 

640 PLAY '•o518|{rbrgro6ji4o414ao5dvl3f + 8.el6d8r8vl5dgvl3b8.al6g8r8 
vl5f+avl3f+d8.el6'*; 

650 PLAY .. :o614r2.do4f+ar2gbr2o5df+vl3dr..; 

660 PLAY : 0514 r2.bo4df+r2gbr2Bo5dr2"; 

670 PLAY ":o418drdrdro2g414dadado4do3do4do3dadb"; 

680 PLAY ";o318brdrbr4.Mo2do3f+rf+o2do3brbo2do3f+rf+"; 

690 PLAY ":o318gr4.gr4.14ro3drdrtfrgrdr2" 

700 > - 9 - 

710 PLAY ••vl5o514f+f+vl3f+ell6rl6o3ai+abo4c+def+8-ed8r8.o3ba4bo4 
c+def ♦gS. f ♦e8r8 .dc+def ♦gab8 . ag8r0" •• 

720 PLAY ••: vl 50514 ddvl3c+c+rlrlrl": 

730 PLAY "io414aavl3aarlrlrl": 

740 PLAY ":o214ao3ao2ao3a!117dddd8r8!117eeee8r8!117 过 dee8r8"; 

750 PLAY ";oll4ao3f+rgo2!117aaaa8r8!117bbbb8r8!117aabb8r8"; 

760 PLAY ":o314rdr2o2!117dddd8r8!117eeee8r8!117ddee8r8" 

770 « - 10 - 

7B0 PLAY '*o4116rl6ag+bagf+ed8.o3ao4d8r8tl 000518 q5f44f+ga,q8b32a3 
2q6f+db4bo6c+d4 . q8c+ 16o5bl6q6a4aabade *'； 

790 PLAY ";llrtl00rrr"; 

800 PLAY ":llrtl0Orrr"; 

810 PLAY ":0314 c+c+dd8r8t 1001 8q5daf+adaf♦adbgbdbgbdaf+adaf*a": 
820 PLAY ":o214aaaa8r8tl00rlrlrl"; 

830 PLAY ":o214c 牛 ©♦dd8r8tl0Orlrlrl" 

840 • - 11 - 

850 PLAY ••o518f+gaf+t70q7vl5e4o4a4o5f+4vl3f+,gl6 ： 125a.b32a32f+.d 
16!125b4b.o6c+16!125d4.c+16o5bl6!125a4a.o6dl6o5!125b-al6d.el6 *'； 
860 PLAY ";llr2t70r2rrr"; 

870 PLAY ";ilr2t70r2rrr"; 

880 PLAY M:o218ao3af+ao2t70q7a4o3g414dadadbdbdadb": 

890 PLAY ";o314r2t70rerf+rf>rgr«rf+r4g"l 
900 PLAY ":o311r2t70r4c^4rrr" 

910 ' - 12 - - 

920 PLAY ••0514 ! け 5f+8.dl6!125e8 • c+16do6do4bo5d8 . け 16 过 o4baf 化 2bo5 
d8 ， cM6do4bt65o5dt60eq8t5Of+ t40o6d2vO"; 

930 PLAY " ； o514r2.r64a§45o4gb8,a+l6bgf+df+2gb8.a+16bgt65at60o5c+ 
q8t50d\t40r64ag45&av0"; 

940 PLAY ":o514r2.r32f+»42rlrlrlt65o4f*t60gq8t5Oa t40r 3205 f*042& 
f+v0"; 

950 PLAY '* ： o214ao3aado2go3dgbo2dao3df-^o2go3dgbt65dt60aq8t5Od t40 
o2d2v0"; 

960 PLAY ";o314rgf+o2drlrlrlt65rt60rt50rt40r2v0"; 

970 PLAY "O311r2d4r4rrrl4t65rt60rt50rt40r2v0" 

980 END 


►姐を100巧，わめでとうございます。"おが:ぎやらウぃ"を化て100-号のをさと賦おを婚じ 
ました。いやあ，本おじすごい。 山上秀赏 （17) がおが 
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なクけな < ない星？ 


Komura tbatoshi 


古が聪 


ぱ一ていハンズのほラを今月でとりあえす第1部「完 J といラことじなり，めで 
たしめでたし。それを記急して（で）今月を2本のブ□ブラムを用意してみました。 
X 1 用ツ—ル 「Date Changer 」 と X 68000 用のデモ「なさけない★星★」です。 


皆撥，な化みいかがわ過ごしで？まあ， 
このが期になりますって一と-每年書いてる 
ような気もするんですがね。休みってなあ 
し.、 いもんですなあ 一。 夏休みの目標「今年 
のな休みは乂作のプログラムを作るぞ！」 
なんて思わず力んでしまいます。 

で，朝マジメに起きて6:30からラジオ体 
操行って，午前中にプログラム組んで夜は 
9:00に寝ちやうなんていう才カタイ方には 
関係ないでしよう力':，朝は昼まで寝てて 
(どういう【]本語じや）プログラミングを 
午前3時までなんていう私のような完璧夜 
型人間にとりまして，プログラムを組むと 
きいちばん気になるのはやっぱり「をの日 
の夜-食が何であるか」なんですなこれが 
(こら，をこ！ わめ一だけだよ，なんて 
言わないよ一に）。私のわ気に入りの夜食 
はっつ一 とですねえ。えへへ，当ててごら 
んなさい。何でしよう。え，ポテトフラ 
ィ？ 歌舞伎楊げ？ 毒物飲料の一気飲 
み？あんたね，なにも自殺しようってん 

じやないんだから . 。へへへへ，実は 

「筋;の焼肉」だったりするんですなこれが。 


あれは3年前，捕,敵が禁止されることに 
なって， （） う鮑の焼肉の伍-詰がをべられな 
くなると閒いた私はをこら中のスーパーや 
ら酒屋やらを走り回って,城のか詰を30吿ほ 
ど買いあさったんですね。んで，3年たっ 
たいまで^ 20街はど残っていてをれをたま 
に「いまでもこんなもんなベてるの世界中 
でわしひとりだろ一な一。えへへへへ」と 
儀越感（俊越か？）に浸りつつ食している 
というわけです。 

えっ，なんでこんな話をするのかって？ 

単なる自慢話に決まってるじゃあないで 
すか。え 


へへへへ一 


懲 


曰巧よ，かわれ！ 


さて，をんな楽しいプログラミングの役 

に立つ . かどうかはわかりませんカミ，ち 

ょっと便利なューティリティ。今巧の1本 
目は化海道のホ木さんの作品で Xlturbo 
用の Date Changer です。 

Date Changer for Xlturbo シリーズ 

(CZ-8FB02) 

北海道ホ木陽一郎 
このツールは turbo 区 ASIC 用です，注意 
してください。たぶん，画师 I 划係をいじく 
れば XI BASIC でら動くのではないか， 
i 作者のホ木さんも言っていますから XI 
で動かしたい方はぜひをのようにしてくだ 
さい。私はやりませんでした（漢字が絡んだ 
ら XI だとめんどくさをうだなとか考えて 
しまったのだ。力;'，よく考えたらグラフィツ 
クキャラクタが化てくるだけなんだよね）。 

で，このプログラムでなにができるの 
か？ 読んで字のごとく，ファイルの日付 
や曜旧，時間を変えるんです。 BASIC で 
FILES を i ： ると，たとえば， 



illustration : T.Takahashi 

Bin 求" 0 : BASIC CZ 8 FB 02. Sys " ’8 
5/10/15 TUE 12:00 
なんて出てきますよね。こいつの 

>85/10/15 TUE 12:00 
の部分を変えられるプログラムなんです。 
ま，早い話が Human68k でいうところの 「t 
ouch . x 」 なんですね（しまった， XI ユー 
ザーにはますますわからんじゃないか）。 

では，使い方を。まず ， turboBASIC 
を立ち上げます。で，このプログラムのリ 
ストをネ了ち込んでください。で，プログラ 
ムをセーブ。うん，ここまではいつもと一 
緒ですね。で，今回はプログラムが直接デ 
ィスクをいじりにいってしまうので，もし 
巧ち間違いがある I ：非常にを険なんです 
(最悪の場合，をのディスクから L 0 A 
D , SAVE が一巧]できなくなってしまいま 
す）。をこで，最初はディスクを壞してもい 
いように Format & Copy を使ってディス 
クのバックアップを取ってください。ま， 
壊してらいいようなディスクがあれば，を 
れで試してみてもいいです力5'。 t りあえず 
必要なディスクならちゃんと別に取ってわ 
くのです。で，民 UN 。!；！] で日付，曜日， 
年の変更， [2] でひとつのファイルの日化 
のクリア， [3] で才ールクリアです。とり 
あえずなにかキーを押してみれば，なに力， 
向こうからいってくるのでわかるのではな 
いかと思います。をうをう， 4のエンドを 
選がしないと日付が書き込まれませんので 
ご注意を。をして，くれく、'れも巧ち込みの 
ときは間違わないよう注意してください。 

これって FAT とかデイレクトリとかが 
わかるようになると一度は作ってみたくな 
るプログラムですね。私も FAT とディレ 
クトリの存在を知ったときには，「ファイ 
ルの 内容をダンプする ツール」 を作ったわ 



★【で)のシヨートプロば一てし、 


曾か暴。多，が 


誤が S んを 


よみ^^ 
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なさけない★星 ★ 


ぼえがあります。ちなみにをのときは1回 
目でシステムデイスクをぶっ壊しました。 
う一ん，なつかしい思い出だなあ。をうい 
えば，最近はあまり FAT とかの解説とか 
スキユーフオーマッタとかってあまり見な 

いなあ . 。まあ，今となってはあまり憶 

える必要のある概念じやないかもしれない 
けどね一。をういや，マシン語のプログラ 
ムのテストランじやデイスクをおかなきや 
いけないなんて知らない人も多いのからし 
れないな 一。 昭和は遠くなりにけり。 



星に願いを 


では今巧の2本目。今月の2本目は埼玉 
瞩の遠藤さんの作品で X 68000 用のデモプ 
ログラム，「なさけない女星★」です。 


なさけない ★ 星 ★ for X68000 

(C compiler PRO—68K) 

埼玉県遠藤克么 
C コンパイ ラを使って作られた デモ プロ 
グラムです。このブログラムを実巧するた 
めには XC(C compiler PRO-68 K ) が必 
要です。 

まず， ED . X などのエディタを使って巧ち 
込みます。コマンドモードで(画倒でもコマ 
ンドモードで立ち上がるディスクを作って 
わいてください。ま，メモリに余裕があれば 

VS や SX-WINDOW から COMMAND. X 
を立ち上げてもかまいませんけどね……）， 

1) ed HOSLC 

として エディ タを立ち上げてリストをれ‘ち 
込んでください。巧ち达み終わったらこの 
リスト（このリストのことを ソース といい 
ます）をコンパイルして実行形ぶ（. X フ 
アイル）にします。 

2) cc /0/ Y / WHOSI.C 

これで何もエラーメッ七ージが'化なけれ 
ば 0 K です。エラーが出てしまった場合は 1) 


リス S 1 Date Changer 


I j . " " • PTGHT* ' "0*' + DA$ ( A 


,2) 

Year 

" ； B$ 

: B=VAL(B$)：IF 

B<0 

OR 

B> 

Month 

..;C$ 

: c ： 

: VAL(C$)：IF 

C<0 

OR 

C> 

Day 

..;D$ 

: D ： 

: VAL(D$)：IF 

D<0 

OR 

D> 

Week 

•• ； E$ 

: E ： 

: -1：FOR 1 = 0 

TO 

6 ： IF 

D 


10 ’ 

2 白 * Date Changer. Ver.1.0 

30 > 

40 I (C)Yoichiro 

50 • 

60 > Ilium SHOKI //////// 

70 WIDTH 80,2 5:KLIST 0 ： INIT：CLS 4：CONSOLE 0,2n:DEFINT A-Z 
80 MAX=1:RN=16:D ひ！ FAS(60),DAS(60,4),FT$(60) 

90 FOR 1=0 TO 6：READ DYS(I) : NEXT I 
100 DATA SUN,MON,TUE,WED,THU,FRI,SAT 

110 LOCATE 12,0: COLOR 3: PRINT .. < < < ; SPC H " ;COLOR 6 

: LOCATE 22,0 .-PRINT "Date Change r..;: COLOR 7 .-PRINT •' 
Ver. 1 ， 0.. 

120 CONSOLE 1,3,10,70 ： CLS ： COLOR 7 ： PRINT ： INPUT "DRIVE No . = **, DEV$ 
125 CLS ： COLOR 7 : PRINT: PRINT "File 强み込 

み中 ! !"; 

130 DEVI$ DEVS,RN,X$,Y$ 

140 FOR 1=0 TO 3:DT 宝 =MID$(XS, い 32+1 ,32):GOSUB 630：NEXT I 
150 FOR 1=0 TO 3 ： DT$=MID$|V$,I*32+1,32) : GOSUB 630：NEXT I 
160 RN=RN+1 : GOTO130 
170 MAX=MAX-1 

180 » 11111111 MAIN //////// 

190 GOSUB 710 

200 CO し OR 7:(X)NSO し E 2,2,4,76：INPUT "I..DATE.CHANGE 2..ONE.CLEAR 
3. .ALL_CLEAR 4.. END SE し ECTI 1-2 ); A : IF A< 1OR A> A THEN 200 
210 ON A GOTO 220,400,450,510 
220 ， //////// DATE_CHANGE //////// 

230 CLS ： PRINT "DATE CHANGE SELECT (No. 1-So. *' ； MAX ； " )" ； ： INPLT A ： T 

F A<1OR A>MAX THEN 230 

240 CONSOLE 6 ,15,9,62 : T し S : し OCATE 12,7: PRINT "FILENAME '* ； DEV$ : FAS 

/ A ) •.. " 

250* PRINT *• DATE&TIME DA$ ( A , 0 RIGHTS ( ..0 ..+RrGHTS ( STR$ < V 

AL{"&H" + LEFT$(DA$(A,1),1))),LENM SIRS ( V AL ( ..&H..+LEFT$ ( DAS ( A ,1),1)) 
))-1),2) ;"/";RIGHT$("0"+DAS(A,2) , 2 ; 

260 PRINT DY${VAL( "&H.. + RTGHT$IDAS«A,1 
,3),2 )； *' ：" ； RIGHT${ ■•0"+DA$( A, 

270 LOCATE 16,10：INPUT "Input Year 
99 OR し EN(BS)<>2 THEN 270 
280 LOCATE 16,11:INPUT "Input Month 
12 OR LEN|C$ )02 THEN 280 
290 LOCATE 16,12：INPUT "Input Day 
31OR LEN<CS)<>2 THEN 290 
300 LOCATE 16,13:INPUT "Input Week 
Y${I)=E$ THEN E 三 I 

310 NEXT I：IF E=—1 THEN 300 ELSE ES=RIGHT 宝 （ STR${E>,1) 

320 LOCATE 16,14 ： INPUT "Input Hour ; FS : F=VAL( F$ ) : IF F<0 OR F> 
12 OR し EN{F$)<>2 THEN 320 

330 LOCATE 16,15：INPUT "Input Minute ";CS:G=VA し （ G$):IF G<0 OR G> 
59 OR LEN(G$ )02 THEN 330 

340 LOCATE 18,17 : COLOR 4 : PRINT B$ RIGHTS ( ..0 ..+RIGHTS { STR$ ( C ), 

LEN(STR$(C))-1),2) ； "/" ； D$；" ";DY$(E);" ";FS;":"G$ 

350 LOCATE 20,18:COLOR 7 : INPUT "Are you right (Y/N).. ;A$:IF AS = "Y 
.. OR A$ = "y.. THEN 370 

360 IF A$<>"N" AND ASO’.n" THEN 350 ELSE 390 

370 DD$(0)=B$ : DDS(1)=HEX$(CI+HEXS{E) : DDS(2)=DS ： DDS(3)=F$:DPS(4)= 
G$ 

380 FOR 1=0 TO 4:DA$<A,I)=DD 金 m:KEXT I 
390 CLS : GOTO190 

400 • //////// ONE_CLEAR //////// 

410 CLS ： PRINT "Input number MAX INPLT \ 

420 IF A<1OR A>MAX THEN 400 
430 FOR 1 = 0 TO 4:DAS(A,I) = ..0O.. :NEXT I 
440 C し S: PRINT "Ok PAUSE 10 : GOTO190 
450 • //////// ALL_C し EAR //////// 

460 C し S: INPUT **ArR you sure I 、 /N > ;、S :1 K \S =’.、.. い K •\s = 

480 

470 IF A$<>..N" AND AS い .. n" THEN 160 ELSE 190 
480 FOR 1=1 TO MAX : FOR J=0 TO 4 
490 DA$( T, J) = ..00.. :NEXT J:N 巨 XT I 
500 CLS: PRINT "Ok.PAUSE 20 ： GOTO190 
510 * 11111111 END //////// 

520 C し S: INPUT "Are you sure ( 、 . ハ :） IF A$=..Y" OR A$ = 

540 

530 IF A$<>"N" AND A 金 THEN 520 ELSE GOTO 190 
540 CLS ： PRINT "File 巧きをみ中 ！ ！" 

550 FOR 1=1 TO MAX : FOR J = 0 TO 4：MIDSI FISI I),25 +J,1)=rHRS(VAL("&H 
"+DA$( I, J) ) ) .-NEXT J : NEXT I 

560 FOR 1 = 0 TO MAX¥8:XS=.... :ys = FOR J = 0 TO 3 
570 X$=X$+FI${I*8+J+l) : NEXT J:FOR J=4 TO 7 
580 Y$=Y$ 牛 FI$(I>8+J+l>:NEXT J 

590 X$=X$+STRINGS{128-LEN(XS>,&HFF> : YS=YS+3TRING$(128-LEM(VS),&H 
FF) 

600 DEVOS DEV$,16 十 I,XS,Y$ 

610 NEXT I 

620 CONSOLE 0,24:K し 1ST 1;C し S:KEY0,"FI し ES" 牛 CHRS<&H22)+DEV$ + CHRS(& 
H22)+CHR$|13) : E 乂 D 

630 I //////// FILES READ //////// 

640 IF ASC(LEFTS(DT$,1))=&HFF THEN RETURN 170 

650 IF ASC ( し EFT$( DT$ , m=&H0 OR MAX >60 THEN RETURN 

660 FISIMAX)=DTS : FAS(MAX)=MIDS(DTS ,2,13)+". "+MTDS(DTS,15,3) 

670 FOR J=0 TO 4 

680 DA$(MAX,J)=HEXS(ASC(MIDS(DTS,25+J,1))) 

690 NEXT J 

700 MAX=MAX+1 : RETURN 

710 ， //////// FILES PRINT //////// 

720 CO し OR 5: CONSOLE 4,2 1,0,2 5 ： CLS ： FOR T=l TO 20: PRINT " N’o... ;RIG 
HT$( ..0.. + STRS( I ) , 2 ) ; FAS m: NEXT I 

730 CONSOLE *1,21, 26,25 ： CLS ： FOR T = 21 TO 40 ： PRINT "No . " ; I ; FAS (1) : N’ 
EXT I 

740 CONSOLE 4,21, 52,25 ： CLS ： FOR 1 = 4 1 TO 60 ： PRINT "Xo •; I ; FAS m : N. 
EXT I 

750 RETURN 


THEN 


THEN 
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/* ★星 ★ */ 

^include < basic©.h> 

ホ include <conio.h> 
include <stdlib.h> 

^include <math.h> 
tinclude <graph.h> 

#include <iocslib.h> 

void main{ b_argc , b.—ar 这 V ) 
int. b_argc; 
char *b_argv[); 

1 — 

register int. x,y; 
register int x1,y1; 
register int r=0,c,i,d; 

/* キ刀期設定 ♦/ 
screen(1,2,1,1); 
consolel»NASI»,>NASI»,0); 
bcsw10); 
cIs(); 
vpage(0 )； 
apage(0); 

printf ("おまちください ！ ••）； 

/♦ 画面を描く ♦/ 
while( r < 360 ) 

{ 

r += 10 + rnd( い 10; 

x= 256; y= 256 ； i= 0; 

x= x+cos (r*pi( )/180)*4; /* 追加部々 ♦/ 

y= y+sin(r*pi( )/180 ) *4; /* その 1 */ 

while{1) 

{ 

c= ((c 牛 1 ) % 30) + 1 ; 
i +=1; 

xl=cos( r♦pi() / 180 ) 本 i; 
y1=sin( r>pi() / 180 ) 本 i; 

line( X , y , x+xl,y+yl,c , Oxffff ); 

X += xl; y += yl; 

if ( x<0 II X > 511 II y<0 II y> 511)break; 


/* パレツトて色をかえる */ 

els () ; 

for ( c =1; c < 31 ；C + +) 

{ 

paiet ( c ,0) ； /* 追加部 2 


vpage (1); 

while( kbhit() == 0) 

{ 

f or( c=1;c く 31;C + +) 

{ 

palet(c,0x84le); 
for ( d =0 ; d < 2000 ; d ++); 
palet(c,0 )； 


screen {2,0,1,1); / ♦追カロ 部3*/ 

OS_CURON ()； 


I :半径を表す 

D : ループに使う 

う t / うむ，よい心桂卜けじや。皆も見習う 
よぅに。 

さて，夏とはいえ夜は涼しいし（昼に比 


ベるとね），星でも見上げながらプログラ 
ミングじ精を化します力、。うっ，しまった。 

わし，近眼で星がよく見えなし . 。 

わあとがよろしいようで……，つくてん 
てんてん。 


リストをなさけなげ★星 ★ 


に戻ってエラーの出たところを直してく/ご 
さい。をのときエラーの化たのが何巧固か 
憶えてわいて，エディタに入ってから， 

[ esc ] +行番号+リターン 
t すれば，をの斤に飛んでくれます。 

さて，これでディスク上に HOSI . X がで 
きましたね。をれでは電気を消してくださ 
い（まさ力，，昼間に巧ちをんでるなんてこ 
とはありませんよね）。でもってコマンド 
モードで， 

A〉HOSI 

とネ了ってしばらく待つと……。 X 68000 の 
ディスプレイは宇宙船の窓となってあなた 
は星の世界を飛んで巧く……， L いう次第 
でございます。んでもって何かのキーを押 
せばわしまい。 

え，なになに，投稿原稿によれば， 

「……これは， BASIC でも簡単に組め 
るのですカミ， C コンパイラを買ったからわ 
ざわざ C で作りました。……利用法はまず， 
ただ見ているだけでよいのですが，ゲーム 
のエンディングのバックに使ったり，特殊 
効果で仮にワープのときにトンネルの役割 
をしたりといろいろ L 役に立つと思います。 
あし 『r +=10 + rnd () *10』の前の10 
を変えることによって，いろいろなかたち 
に変わりますので暇な人は変えてみてくだ 
さい……」 

だをうです。う一む，えらいざ，をの見上 
げた根'性。コンパイラを買ってしまったか 
らには，とにかく使ってしまえ。うむ、うむ％ 
こ一でな くっもやね。プログラム的には 
ちょっと短いし，なんか X - BASIC っぽい 
感じ（コンパイラの場合の画面設定は間に 
合わせでも付けたほ一がいいよ）ですが大 
変頑張ってくれました。キ白手，ネ白手（パチ 
パチパチ）。あ，ちなみにリストはもよっ 
t ばかしいじってしまいました。ごめんね。 
オリジナルの星の色のパレットコードは255 
だったので，もしをっちのほうカ ミし、 いい 
うのであれば直してあげてください（ほか 
にらちょっ t いじったけどね）。をうをう 
彼は変数表ら付けてくれました。 

を数表 

X, Y :星が出る位置を表す 

XI ， Y 1 :星を描くときの（ X ， Y ) の 
増加量を表す 

民 ：描くときの角度を表す 

C :カラーを 表す 


12345 6 78901234 5 6789012345678901234567890123456789012345678901234567 
111111111122222222223333333333444444444455555555 5 566666666 
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atariml) 
atarif() 
atarif{) 

func atarim( い /* 自徵当たり判を */ 
if sp_chk( 33,38,51 ) <>0 then{ 
locate 12,8 
print"gameover" 
bg_set(0,0,0) 
stop 

} 

endfunc 

func atari f( い /* タマ当たり判を */ 
for i=0 to 2 

j = sp_chk(34 + i,38,40 ) 
if j <> 0 then dafire() 

next 

endfunc 

func dafire い 

fire_x(i)=0:fire_y(i)=0 

sp_set ( 34 + i , fire_xU ) , f ire_y( i ) ,&H120 ) 
sp_set(j ’enemy—x(j_38),enemy_y< j-38) ， & H124) 
enemy—x(j-38)=0:enemy_y(j-38)=0 
endfunc 


ああ，感動の第 1 部完 

はいはい，皆さんこんばんは。ぱ一て いハン 
ズの時間です。 

さて，今月はば一ていハンズ第 I 部 r ゼビモ 
ドキ編」のホ終回としてゼビモドキゲームの当 
たり判をのプログラムの解説をやってしまうの 
です。 ず一っ とこのコ ーナーを 読んでくれてい 
るニコちゃんの皆さんはご存じかとは思うので 
すが（ちなみじ，ニコちゃんのか語としてコマ 
ッタちゃんがあるというのはす厶たちの世代じし 
かわからない，ど一しょもない余談だったりす 
る），当たり判をには（で）のショートプロぱ 
—てい5月号じ巧載の sp _ chk () をイまってしま 
うのです。う一ん，手巧き手巧き。ちなみに sp 
_chk () は6月号の 0 h!X 特製ディスクにも入 
っていますので巧ち込んでいない人はそちらか 
ら持ってきてくださいね （6 月号もないという 
人は……，私は知らない……)〇 

で，当たり判定なのですが，知ってのとわり， 
もし，これがなかったらいつまでも点は入らん, 
自推は死なん，意ホもなく 7 k 迸に空間をさまよ 
わなくてはならんという，シユーティングゲー 
ムじはなくてはならない，まるで コーヒー じク 
リーブ（ふっ.古い），お好み焼きじオタフク 
ソース， SX - WIND 0 W じ 2 M バイト RAM のような 
存在なのです。 

世の中のゲームの当たり判をというといろい 
ろあるのですが，今回どのような方針でいくか 
というと， 

「自機のタマじがが当たっているかどうかの 
チェック J 

「自攤じが or がのタマが当たっているかどう 
かのチェ ック」 

の2回にみけて巧ってしまうのです。なんでこ 
ぎやんややこし一ことをするんじやい！ とい 


う方もいらっしゃるかもしれませんが，はっき 
りいって， 「 sp__chk () がそ一ゆ一仕樣になっ 
ているから」というだけの理由なんです。他意 
はありません。 

もう少し詳しく説明すると sp_chk () の持っ 
ている機能というのが. 

「指まされた I 個のスプライトとほかのスプ 
ライトが重なっているかどうか」 

を見るルーチンだから，がじついてと自機じつ 
いてと1回 I 回みけて考えてやらなきゃいけな 
いんですね。これがたとえばアーケードマシン 
みたいじ，どれでもい一から当たったら教えて 
ねというスプライトの衝突割り込みがあるマシ 
ン（あるいはソフト）た•とそれ用の割り込み 
ルーチンを作ってあとは果報は巧て待てという 
3年巧太郎方ホも使えるのだけど。ま，これは 
これでよしとしましょう。そ一ゆ一わけです。 

屋根まで飛んで，こわれて消えた 

いま思ったんだけどシャボン玉の歌って，な 
んかとってもシユールじゃありません？ 巧い 
意ホはないけど。 

ま.それはいいとしてまずはタマの当たり判 
定ですね。タマの当たり判定とひとことでいっ 
てしまうとそれしかやらないような気もします 
がそんなことはありません。シユーティングゲ 
—ム のへ そピけあっていろいろやることがある 
んです。まず，タマの当たり判定をします（あ， 
当たり前ですね)。1110巧で sp _ chk 0 をイまってま 
すね。ここでループを組んでいるのは，この 
ゲー厶ではタマが I 画面中に3発出せるんで， 
それを I 発ずつチェックしじいってるんですね。 
で.当たっていた場合は. 
dafire () 

というサブルーチンじ飛びます。ここで当たつ 
ていた場合の処理をするんですわ。 


ところで，シューティングゲームで敵にタマ 
が当たったときにはどうなります？うんうん， 
敵が消える。それからスコアが増える。え，パ 
ワーアップアイテ厶が出たり，がが膨れちゃっ 
たり，挙げ句の果てが花义が巧ち上がったりす 
る？うん，まあ，そういうのもありますけど 
ね . 。 

まずお初に，自みのタマとがが当たったわけ 
ですから.とりあえず自みのがったタマを消し 
ます。これはタマの X , y 座標に （0, 0) を入れ 
てわけばタマの表示部みが勝手に消してくれま 
すね（一応，をのためじいってわくけど，スプラ 
イトってちょっと座標がをわっていて， （0,0) 
じわくとスプライトは消えてくれます。知って 
ますよね？）。で，当たったよ，というのがわか 
るようじ炼発パターンをま示して，敵の座標も 
(0, 0) じします（1210, 1の0巧)。こうすれば敵 
の表示もあとで•消してくれるし，その間爆発も 
残ってくれるしで一石二爲なわけです。とりあ 
えず，これた•け。「スコアが出ないのはともかく, 
敵に当たったときの効果音もないのはとんでも 
ない手巧きじゃないかっ！」といわれても「そ 
—です，手巧きなんです J と答えるしかないよ 
うなぐらいに何もしてません力 そこは皆さん， 
これを踏み台じして賴張って本ゼビなりギャラ 
ッバなりじしていただきたいのでした。 

あつ，上がつた。た一ま一^-! 

でもって，自搜の当たり判定ルーチン a ね rim 
() です。こっちはさらに手抜きです。なんて 
たって自機のストック（自みのをは3つまでと 
いうインペーダーからの伝統のあれね）とかとい 
う制度もなく，当たったらいきなり死んでしま 
ってゲームオーバーなんですから。爆発バター 
ンさえありません。世の中なんてこんなものよ。 
うむうむ。やっていることは，自機が当たって 
いたらゲーム オーバー の表示を出して BG を消 
して，そのままストップ。これだけです。例に 
よって皆さんでどうじかしていたた‘くのでした 
(しかし ，I / 4ぺージで終わりそうとかいっ 
といて今月も結構書いたなあ……)。 

……ああ.苦脚6力巧。ついじすベての作ち 
が終わり，ゼビモドキが完成しました。ふ 一っ。 
しかしなんですね。がわったからこんなことが 
いえるのかもしれないけど，やっぱりもうち 
ょっといろいろな攒能をつけたかったですね。 
やっぱり自機は3機……いや，個人的な好みと 
してはダメージ制じしたかったし，それにはや 
っぱりスコアもがしかったし，あと，背景をス 
クロール させたりとか， BG かグラフィックじ 
絵でも描いてボスキャラを作ったりとか（おか 
すのはス クロールで できるから怕単だしね）， 
音楽は無巧としてもせめて巧果音ぐらいは入れ 
たかったなあ。うむむむ。まあ，そのうち気が 
向いたら，またゼビモドキ2じバージョンアッ 
プしたい……。 

ということで，これじて， 

第1部未完 

なのであった。それではまた来月 Oh ! X で。あ 
ちよつ！（と瓦を割って去る） 


(で)のば一てい八ンズ -（その已) 


0 0 0 0 0 0 
9 15 2 3 1 
14 4 9 9 


I 0 

23458901267890123 

000000011111112222 

111111111111111111 
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基本インタフェイス回路 

インタフェイス回路の製作はラまくでさまし力 


その3 


Misawa Kazuhiko 

王お和彦 


パ々; 


タフェイス回路の製作はラまくでさましたか。今回はソフ 
h 編で,作つた回路を制御ずるプログラムを害いてみましょラ。 
まず基:$：となるドライバを作り，その上で走る応用プログラム 
を書くといラのはどんな機器を使ラ場合でを同じでず。 


今回は臣 I 作 I / O 基板を X 68000 から制御す 
る方法を考えましよう。まず代表的なパラ 

レ ル インタフェイス である ジョイス テ イツ 
クポートを制御するための一般的な説明か 
ら始まって，突際に X - BASIC で ジョイス 
ティックポートに つないだ1 /0基板をコン 
トロールす るための外部脚数を ア七ン ブラ 
で記述してみます。をして，をの外部閒数 
を使った応用プログラムを例にとりながら， 
X 68000 で外部機器を制御することへの入 
巧となるよう解説していこうと思います。 



データのや0と ! Q 


外部 I / O 機器は複数の装置がつなげるよ 
うに，各々にアドレスを設定して区別しま 
す。ある特定の装置にアクセスするにはを 
の I / O アドレスを指定してデータを読み書 
きします。 X68 ()00 の場合はメインメモリと 
I / O のアドレス空間は共通なので，マシン 


語で記述するときは I / O アクセスでも普通 
のメモリアク七ス U 司じです。やりとりす 
るデータは8ビットの論理データです。す 
なわち，外部 I / O につながっている各ビッ 
卜のデータ線がをれどれ H か L かをとり， 
それらを8本まとめて CPU が処理する 
いうわけです。 

ただし X 68000 の場合は，メモリ空間金体 
がユ—ザ ー 領域と ス—パ— バイザ領域のど 
ちらかに々かれていて，通常は スー ノタ ー ノス' 
イザ領域にはアクセスできないようになっ 
ています。これは， 0 S などを スーパー バイ 
ザ領域に蘆いて，プログラムのバグなどに 
よって コン ピユータの シス テム全体を破壊 
しないようにするためです。 I / O 空間にも 
ス—パ— バイザ領域に割り当てられている 
ものがあり，をこにアク七スするには工夫 
が必要です。今回のメインとなっているジ 
ョイステイ ッ ク ポー トもス ーパー バイザ領 
域にあります。 


このあたりの予備知識を頭に入れてわい 
たうえで，外部閱数の ソース リスト（リス 
卜 1) を一緒に見ていきましよう。 



1/□制御用外部関数 


外部関数のア七ンブラソースには大きく 
分けてへッダ部と定義ルーチン本体 t があ 
ります。ヘッダ部は今回の本趣から外れる 
ので，簡単な解説をコラム1に譲ることに 


し，さっそくドライバ本体部分の説明に移 


ります。 


外部闕数はポートからのデータ入力が 
ioinp 関数，出力が ioout 闊数としてを義さ 
れています。 ioi 叩は引数なしで，戻り値は 
入カデータになっていて， ioout は引数に出 
カデータをとり，戻り値はありません。 


ioinp 闕数が斤つているのは，ジョイステ 
ィックポートのアドレスを指定して，をこ 
から8ビットデータを読み込も、だけのこと 


コラム1外部関数へツグ部の解説 


X - 日 AS にの外部関数の作り方は1987キ8月号 
じ裘野氏じよる詳しい解説があります力、‘，こ 
こでもう一度ソースリストじ沿って復習してみ 
たいと思います。 

最ネ刀の6巧はアセンブラソースををくときの 
わまじないのようなものです。別のアセンブラ 
ソースを挿入するための include 文， BAST 0 C のラ 
イブラリとして使うサブルーチン名を指定する 
glob は，ソースをテキストべースじ指定する 
text 文，そして実際に機械語コードに置き換わ 
る看頁域の始めにメモリ境界を偶数じする even 义 
からなっています。 

次に外部閲数のへッダ部を順番に説日 j してい 
きましよう。初めに，インフオメーシヨンテー 
ブルですが，ここじは， II 個のアドレスが並ん 
でいます。をネ刀から8個は特別な処理を行う関数 
のために設定するルーチンのアドレスを指して 
いるものですが，通常は使巧しないため， rts の 
みのダミールーチンになっています。 

9番目は関数の名前をを義したテーブルの先 
頭アドレス （ pt し token ) を指しています。今回の 
I / O ドライバは.データ入力を ioinp , 出力を ioout 
じしています。 ptrjoken で始まる関数名テーブ 


ルじこの2つが並んでいるのがわかるでしよう。 

10番目は閱数名テーブルで定義したそれぞれ 
の関数の引数および戻り値の型と順番とを定義 
するテーブルの先頭アドレスを指しています。 
すなわち， この了 ドレス （ pt し param ) の先を見る 
と， ioinp _ par と ioou し par の2つのアドレスが並 
んでいて，それぞれがが後のパラメータ ID テー 
ブルのアドレスを指していることじなります。 
そして，パラメータ ID テーブルじそれぞれの関 
数の引数と戻り値が実際にををされているわけ 
です。これより， ioi 叩は引数がなくて，ボート 
から入力したデータじ当たる整数型の戻り値を 
持ち， ioout はポートへの出カデータじ当たる整 
数の引数が I 個で戾リ値はないことがわかりま 
す。 

11番目はそれぞれの関数の実斤ルーチンのア 
ドレスを並べたテーブルの先頭アドレスを指し 
ています。この pt し exec の先じある ioinp _ exec と 
ioou し exec とが実斤ルーチンの先頭です。 

1*义上でヘッダ部は終わりです。駆け足での複 
習でしたが，自みで外部閒数ををおする必、要が 
なければ，この部みはあまり理解しなくてもよ 
いと思います。 


です。 ソースに 沿って見ていきますと，ま 
ずジョイステイックポートの入力のアドレ 
ス （$ E 9 A 001) を porta という シンボルに 割 
り当てています。次の ioinp _ exec からメイ 
ンルーチンがスター トで すが， ここでいき 
なり サブルーチン _ioi 叩に 飛んでいます。 
これは， X - BASK ： の外部関数と BASTOC 

の ライブラリとを1 つのソースファイルで 
兼用させるための工夫なのですが，詳しく 
はコラム2を参照してください。 

さて，メインルーチンの _ ioinp に入ると， 
まず先ほど説明したようじ，スーパーバイ 
ザ領域にあるジョイステイックポートにア 
クセスするため に DOS ファンクシヨンコ 
—ルの _ SUPE 民によって，スーパーバイザ 
領域にもアクセスできるモードに入ります。 

をして，あらかじめクリアしてわいた D 
1 レジスタに I / O 基板から入力してきた 
por ねのデータを転送します。目的が達成さ 
れたら再び，元のユーザーモードに戻して 
から， D1 レジスタ内のデータを外部闕数か 
ら の戻り 値を格納するバッファに入れます。 
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戻り値バッファはプログラムの嚴後に ret 
dat で定義された10バィトの領域になって 
います。今回の関数では戻り値は整数型な 
ので，ポートから入力したデータは狼後の 
4バィトに当てはめます。実際有劾なのは 
趨下位！バイトなのですが，一応ここでは 
4バイト整数として扱っています。 

ところで，外部闡数の戾り値の受け渡し 
方です力;'， A0 レジスタに戻り値バッファの 
先頭アドレスを入れて rts でリターンして 
やるだけで OK です。このプログラムでは 
いったん loinp ルーチンから ioinp _ exec ノレ 
ーチンに戻ってきてから，改めて外部【約数 
化理から山る rts 命令がきています。なゎ， 
外部間数を正常に終わる！：きは DO レジス 
夕に〇を入れてからリターンする必要があ 
ります。 

ioout 脚数については，引数があるので注 
惠が必要です。引数である4バィト整数（実 
際ここでら，有効なのは最下位1バイトの 
み）をまずジョイスティックポートの化力 
のアドレス($巨 9 A 001) を portc というシン 
ボルに割り当てています。整数型の引数は 
スタックの先頭から13バイト目から積まれ 
ているので，をこから読み出,してポートに 
転をするわけですが，ここでは X-BASIC 
の外部閱数と BASTOC のラィブラリとを 
1 つの ソー スフ ァイルで兼用させるために 
いったん引数をスタック上で被み替えて， 
_ ioout ルーチンに飛んでいます。 

_ioout ルー チンじ 入ったら， まず スーパ 
—バイザモードに切り替え，スタックにあ 
る化カデータを D2 レジスタに移してから 
をのデータをポートに出力します。をして， 
再びユーザーモードに切り替えて終わりま 
ず。 ioout 関数は戻り値がないので，終わり 
方は備単です。 

をれでは，アセンブラの ソースを エディ 
夕で入力したのち， iodrv . s のファイル名で 
セーブしてください。あ i ： は， 

CC iodrv.s 


で iodrv . o と iodrv . x を生成し，この iodrv.x 
を BASIC2 のデイレクトリの中じ iodrv.fnc 
のファイル名でコピーします。もちろん 
BASIC . CNF ファイルの中に 


FUNC = IOD 民 V 
と加えることら忘れずに。 



サンプルプ□グラム 


これで，外部関数が X - BASIC のなかで 
使えるようになりました。まず怖単なサン 
プルをリスト2に挙げます。これは16:1口 
ータリースイツチの入力ををのまま7七グ 


メント LED に化力するプログラムです。も 
ちろん X 68000 自体がデータの読み蕾きを 
しているわけですから，データは BAS に上 
の変数に取り达まれていて，をれがをのま 
ま幽面上に表示されます。なゎ， 7七グメ 
ント LED の化力は3ビットなので，〇〜7 
しか表示されません。 

このプログラムの中じ inpval i outval の 
2 つの定義間数があります力す，これについ 
て少し説明します。をらをら， X 68000 i 1/ 
0 基板とのデータのやりとりは，数値デー 
夕ではなくて論理データです。 

た t えば入カデータは，口ー タリースイ 
ッチから入力した数値 （0 〜 15) を2進数 
で表し，下の析から1が立つビットが L ， 

0 が立つビットが H にが応しています。い 
ま入カデータが9とする t 2進数で100 1 b 
ですから，入カポートから読み込む論理デ 
ータは LHHL となります。通常は H のビッ 
卜がし L のビットが0に形式的に対応し 
ますので， ioinpl 划数で読み込む値は6 ( 二 
0110b) というこ t になります。 inpvall 划数 
はこのように各ビットの論理が反転してい 
るデータを正しい値に直すための関数です。 

次に出カデータはパラレルインタフェイ 
スの8ビットデータのうち，ビット No . 4, 
6 ， 7の3ビットを使っているのです力す， 



これを今回の I / O 基板では3ビットの2進 
数データ i : して，上のがテからビット No . 4， 
7，6の順に変刖的に並べて使っています。 
しかもビッ I 、 No . 4はデータとして1を化 
力するとポートに H ， 0を化力すると L 力': 
きちんし中,ます力 S '， ビット No . 6 と7は1 
を出力すると L ， 0を化力する tH が出て， 
ビット No . 4とか Jj が反転しているのです。 
したがって，た t えば5をリ|，力したいとき 
は， 101 b ですから下2が子は反転して HHL と 
し，しかもビットを入れ替えて ， HLXHX 
XXX ( X は間係ないビット）の論理データ 
を化力しなければなりません。 
outval 哄臘は引数として〇〜7を取り， 


コラム2外部関数とライブラリの兼用 


X-BAS にの外部閲数と BASTOC のライブラリ 
とをIつのソースファイルで兼用させるための 
工夫じついて説明する前に，コンパイルしたと 
きじ外部巧数がどう扱われるか説明してわきま 
しょう。 

外部閒数の処理の部みは外部関数名の前にそ 
のまま"をつけたラベルのサブルーチンを呼び 
出します。したがって，コンパイルされたマシ 
ン語プログラムはそのラベルのサブルーチンを 
ライブラリとして持つ必要があります。 

たとえば今回の場合， BAS にプログラ厶中で 
ioi 叩関数を呼び出す苗所は， 
bsr joinp 

という命令に含き換わります。そして，引数は 
外部関数におけるカッコの中の鳩をのとおりじ 
スタックじ巧まれます。それに巧して戻り値は 
DO レジスタじ格納されてサブルーチンから戾 
ってきます。 

これた‘けの予備知誠を頭に入れて，もう一度 
ソースを見てくださし、。 ioi 叩閒数と ioou 蝴数の 
巧豬ルーチンの中にそれぞれの閲数名に_をつ 
けた Joinp と Joout というサブルーチンがある 
のがわかるでしよう。このソースをライブラリ 
としてイまった場合.このサブルーチンが參照さ 
れるのです。ですからこのサブルーチンにわけ 
る引数，戻り値の処理は上で述べたとわりじな 
っています。 

たとえば. Joinp の戾り値じついては， Joinp 
ルーチンのを後で，入カポートから読み込んで 


きて DI レジスタじ格納したデータを DO レジス 
夕じ移してからリターンしています。また，_ 
ioout の引数もスタックのいちばん上に巧んで 
ある（実際は，引数をスタックのいちばん上に 
巧んピあと，サブルーチンコールをして，その 
リターンアドレスがさらじスタックじ巧まれる 
ので，上から2つ目の整数データが弓I数になって 
いる）データを D2 レジスタじ取り出して，出力 
しています。 

さて， X-BAS にの外部関数の引数と戾り値に 
関してはライブラリのサブルーチンコールと形 
式が異なるので，外部関数を呼び出すときは， 
その部みを変換してやるのです。具体的に ioout 
関数の引数じついては，スタックの13バイト目 
じ巧まれているデータをもう一をスタックのい 
ちばん上に巧み直してライブラリのサプルーチ 
ンコールと見かけ上同じ形式じしてから，共通 
の Joout ルーチンを呼び出すのです。 

このとき，最後に外部関数から出るときのリ 
夕ーンアドレスが巧み直したデータじよってス 
タックの中に埋もれて しまし、，二の ままでは正 
常に終了しないので，スタックポインタを操作 
してから終了していまず。また， ioinp 関数の戾 
り値じついては，戻り値バッファじ格納してや 
ればよいので特別な操作は必要ありませんが. 
外部関数を正常に終わるときは DO レジスタは0 
でなくてはならないので, Joi 叩 ルーチン 内 で戻 
り値を格納した DO レジスタを改めて消去して 
おかなければなりません。 
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X - B A S I C ぺ部閒が 

虹 BASTOC ライブラリ 兼用 


.include 
.include 
.globl 
.globl 
.text 
.even 


doscall.mac 
fdef.h 
_ioinp 
ioout 


本本本本本♦本本♦本♦♦末♦拿本本本本♦本本♦本本本本♦♦本本♦♦本本本本本本本本♦本本本♦♦本本 


が部閒がヘッダ部 


インフォメーションテーブル 


♦ « 本♦♦♦本本本京本本: C 本本本本本♦本本♦本末本♦♦♦本木本*♦本本♦本木本本本♦♦本本本本本本 


dc • 

1 

x_init 

dc • 

1 

x_run 

dc. 

1 

x_end 

过 c • 

1 

x_sys 

过 c ， 

1 

x_brk 

dc. 

1 

x_ctr し d 

dc • 

1 

x_ で es1 

dc • 

1 

x_res2 

dc • 

1 

ptr_token 

dc • 

1 

ptr_param 

dc • 

1 

ptr_exec 

过 c ， 

1 

0,070,0,0 


x_init : 
x_run : 
x_end : 
x_sya : 
x_brk : 
x_ctr し过： 
x_resl : 

X re82 : 


rts 

拿 

»明な名テーブル 

« 

ptr_token: dc.b •ioinp，，0 

dc .b * ioout-* , 0 

dc.b 0 


* パラメータ テー ブル 

本 

ptr_para 田： dc.] 


101 np par 


本♦♦本本本*本♦♦本本本本本本本本*本♦幸*♦本本*本本本*木*♦本*本本本本本*本♦本本本本 ♦ 
本 ♦ 

* ハードウェアエ作入門 I /0 ドライバ * 

* か部閒な ioinp & ioout ♦ 

本 ♦ 

本 Ver.1.0 1990. 6.17 K. Misawa * 

* ♦ 


72 



dc.l 

ioout_par 

73 





74 

本 




75 

♦パラメータ 

ID 

テーブル 

76 

t 




77 

ioinp_par: 


dc. w 

in し ret 

78 

ioou し par: 


dc. w 

in し val 

79 



dc. w 

void_ret 

80 





81 

本 




82 

* 実行アドレ 

ステ 

ーブル 


83 

本 




84 

ptr_exec : 


dc.l 

ioinp_exe< 


85 ： 
86 ; 
87: 
88 : 
89 ：本 
90: ♦ 
91 :章 
92: ♦ 
93 ：本 

94 ： 
95 ： ♦ 


96 

* データ义力閲巧 

ioinp() 

97 

% 




98 

porta 


equ 

$e9a001 

99 





100 

♦け実行アドレ 

ス 



101 

ioinp_exec : 


bsr 

ioinp 

102 



move.1 

#0,d0 

103 



rts 


104 





105 

パ * メインルー 

チ 

ン 


106 

__ioinp ： 




107 





108 

ttt スーパバイザモードに乂る 

109 



clr.1 

-(sp) 

110 



dc. w 

_SUPER 

111 



a 过 dq.1 

#4 ,sp 

112 



田 ove.1 

d0,spbuf 

113 





114 

rd_ok : 


clr.1 

dl 

115 





116 

け♦ジョイステ 

ィ 

ックボー 

卜から巧みだし 

117 



move.1 

#porta,d2 

118 



moves.1 

d2,a3 

119 



move.b 

(a3),dl 

120 





121 

け*ユーザーモ 

— 

ドに戻る 


122 



move.1 

spbuf, - (sp) 

1 ミ 3 



dc. w 

_SUPER 

124 



addq.1 

#4 ,sp 

125 





126 

♦け戻り化をバ 

ヴ 

ファに措納 

127 

rd_ready : 


move.1 

dl,in し data 

128 



■ L — e ぶょ i 

C を td せ t ，— a —0 

129 



move.1 

dl,d0 

130 





131 



rts 


132 





133 

% 




134 

» データ出力閲巧 

ioout(data) 

135 

拿 




136 

portc 


equ 

$e9a005 

137 





138 

け* 実巧アドレ 

ス 



139 

10011 し exec : 




140 





141 

♦け 引 技を スタ 

ヴ 

クじ巧みをえ 


dc. 


ioout, exec 


を義閒がルーチン 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 
63 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 


7セグメント LED が正しい値を表示する 
ようじデータを変換したあとにポートに出 
力するものです。 

皆さんがもし自分で応用プログラムを組 
ときは，この i 叩 val 阀数， outval 関数をを 
のまま引用すると便利でしよう。なゎ，こ 
のプログラムを コンパイル するときは， 

CC IOTEST.BAS I 0 DRV .0 
を实巧してください。 む後 ，すべてのプロ 
グラムじついて，コンパイルのときは 

IOD 民 V .0 をリンクすれば 0 K です。 



応用プログラム 


先に述べた， inpval 関数と outval 関数を 
使ってさらにゲームを組んでみました（リ 
スト3)。内をは簡単をのらの，7セグメン 
卜 LED の数字が回るルーレットです。口一 
タリースイッチでスタート，ストップを斤 
います力す，をれだけではあまりにも色気が 
ないので，ルーレットの数字当ても加えて 
みました。このあたりのゲームデザインは 


皆さんのほうが得意かもしれません。 

わざわざ自作の I / O 基板を使わなくても 
X 68000 単体でこの程度のプログラムは組 
めるわけですが，やはり，自作の基板をパ 
ソコ ン本 体力， ら コント ロー ルす る面白さも 
また格別です。このような基本的な回路に 
ついてしっかり押さえてわくことカミ，より 
高度な回路を使いこなしていくためじは大 
切なのです。次回はもっ t 凿応えのある（し 
かも実用的な）回路を扱いますので，楽し 
みにしていてください。 


リスト！ 1/ 日觀御用外部装 ! 朔〇か V.S 


なデデな 
4 s ) 力） 
入}お出）值 
夕がり夕がり 
_引戾一引戾 
デ（（デ < 心 


138 Oh! X 1990.9. 









リスト 2 サンプルプログラム iotestbas j 


10 /本 save "VbasicYiotest.bas 

20 / 本 

30 /» I/O 基巧用サンプルプログラム 
40 /拿 

50 /♦ 1990.7.1 K. Misawa 

60 /本 

70 int V 
80 while 1 


90 

100 

110 

120 

130 

140 

150 


V 三 inpval い 
outval( V) 
print V 
endwhiie 
end 
/» 

/* データ 入力 


160 /* ( 引 tt ) なし 

170 /* ( 巧り値）ロータリスイッチの伯！ 
180 /* 0-15 

190 /本 

200 func int inpval() 


210 int V 

220 v=&Bllll-(ioinp() and &B1111) 

230 return い） 

240 endfunc 
250 /* 

260 /* データ出力 

270 /* ( 引 》) 整致巧 

280 /» ( 巧り値）なし 

290 /» ( 權巧）ミ I なを 8 で抑った余りを 

300 /* L E D じま示 

310 /* 

320 func outval(d0 ; int) 

330 int v,v0,vl,v2 

340 v0=l-(d0 and 1) 

350 vl=l-(d0 and 左 B10)/&B10 

360 v2=(d0 and 4B100)/ 左 B100 

370 v=&Bl 0000000 本 V1+&B1 000000 本 V0+&B 10000* v2 

380 ioout(v) 

390 endfunc 


リスト 3 応用プログラム roulette.bas | 


save "YbasicYroulette.bas 
savee..¥basic れ oulette. doc 


10 
20 
30 /♦ 

40 /* I/O さ巧用広用ブログラム 
50 /» ルー レットゲーム 

60 /拿 

70 I 、 1990.7 .4 K. Misawa 

80 /家 

90 width 64 
100 /* 

110 ra_init() 

120 in_alloc( 1,100) 

130 m_as8ign(1,1) 

140 m_tempo(120) 

150 /* 

160 int i=0,j 
170 /t 

180 巧巧チェック 
190 パ 

200 while inpval ()00 
210 locate 10,14 

220 print "口ータリースイッナを 0 じして下さい！" 

230 for iii= 1 to 2000 : next 
240 els 
250 endwhiie 
260 /» 

270 バ予巧の入力 
280 /» 

290 els 

300 repeat 

310 locate 10,14 

320 input "予巧する巧を入力して下さい"； j 
330 until j>=0 and j < = 7 
340 /♦ 

350 パルー レット 

360 バ（口ータリースイッチを動かすヒ巧止） 

370 パ 
380 cl8 

390 locate 10,14 

400 print ••口ータリースイッチを回すヒルーレットは止まります， 

410 repeat 

420 i=(i+l and 7) 


430 outval(i) 

440 for iii=0 to 200 : next 
450 until inpval()00 
460 /♦ 

470 /» 結果巧を 
480 /» 

490 els 

500 locate 10,14 

510 if i=j then { win() ) else {lose()) 

520 m_play() 

530 end 
540 /本 

550 /» データ入力 
560 /♦ 

570 func int inpval() 

580 int V 

590 v=&Bllll-(ioinp() and &B1111) 

600 return(v) 

610 endfunc 
620 /* 

630 /* データ出力 
640 /» 

650 func outval(d0;int) 

660 int V,v0,vl,v2 
670 v0=l-(d0 and 1) 

680 vl=l-(d0 and 左 B10)/&B10 

690 v2=(d0 and 左 B100)/ 左 B100 

700 v=&Bl 0000000 «vl 牛左 B1 000000 本 v0+&B10000>v2 

710 ioout(V) 

720 endfunc 
730 /* 

740 バ結巧の化理 
750 /» 

760 func win() 

770 print "大当たり！" 

780 m_trk(1 •" が 7vl5o5 f8e8d8c8f8e8d8c8f4a4 が r4") 
790 endfunc 
800 /♦ 

810 func lose() 

820 print "巧を でした" 

830 m_trk(1,..«34vl5o3 f 4c8c8d4c4r4e4 f 4r4 ") 

840 endfunc 





move . 1 

12( sp),dl 

164 



move . b 

dl,(a3) 




move . 1 

dl,-(sp) 

165 










166 

» ♦♦ユ ー ザ _ 

モー 

ドに夏る 





bsr 

_ioout 

167 



move . 1 

spbuf ，- (sp) 




addq . 1 

#4,sp 

168 



dc . w 

_SUPER 






169 



addq . 1 

#4 , sp 




move . 1 

#0,d0 

170 








rts 


171 



rts 







172 





け》メイ 

ンルー 

チ 

ン 


173 

t 




—loout : 





174 

» スタックバ 

ッフ 

T 







175 

% 




♦けスー 

パバイザモードに乂る 

176 

spbuf 


ds.l 

1 




clr ， 1 

-(sp) 

177 








dc . w 

_SUPER 

178 

t 







addq.1 

#4,sp 

179 

* 戻り任巧納バッ 

ファ 





move . 1 

d0 , spbuf 

180 

♦ 









181 

retdat : 


dc . w 

0 

け * ジ 3 

イステ 

ィ 

ックポー 

卜へ書きをみ 

182 



dc . 1 

0 

W し ok : 



move . 1 

#portc,d2 

183 

int_data : 


dc.l 

0 




moves . 1 

d2,a3 

184 



end 



move.1 4(sp),dl 


2345678901234567890123 
4444444455555555556666 
1111111111111111111111 
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第の回知能機が概論一一お茶目な計算機たち—— 


超能力実験の成果 


/ Mr •マ IJ ック I 遇もれた臟力/ 

新宗が，オカルト，超能力，占-いなど力す， 
世紀木のいまにふさわしく，流行•っている 
ようです。神秘的なものが，人々を，特に 
おをを熱中させる L いう社を現象，义化現 
象に注白し，それを解析することはきわめ 
て雨むいことだと思います。最近読んだ训 
册まな（文献1 ) はをのような現象を取り 
极った本です。新刚，テレビなどを服わせ 
ている宗教などを错當でかつ具体的にレポ 
—卜してわり，しから，いろいろな方师か 
らの分析はあっという間に読み終えてしま 
うほど興味をひくものです。 

新宗が，オカルト，も•いなどはあまりに 
もゎどろぉどろしいので，ここでは超能力 
を取り上げます。知能機械概論というタイ 
トルにも，まあふさわしいといえるでしよ 
う。とにかく気をつけることは，蔚惭 l £ i に 
かっ知的に，つまり科学的な態度を持ち統 
けるこ^でしよう。 

人工知能，あるいは計算機と超能力にい 
ったいどんな関係があるんだ，と輿閒目に 
質問されるとちょっと苦しいこと占ありま 
す力;'，まずこう答えるでしょう。「人工知能 
は人工が]に作り化された人間の知能を呼ぶ 
ものだ。をの人剛の知能に含まれる（から 
しれない）超能づ J ら当が科学的に兄極めて 
列■象とすべきだ」。 

また，超能九をはじめとする利!秘的なも 
のに向かう若あの心し計算機に向かう若 
をの心に間梭的な関係ではあるが，お外-火 
きな共通点:があるのではない力，，という印 
みを僕が待っていることも両者を I 划述づけ 
ようとするひとつの動懒になっているかも 
しれません。 

でら奖際のところ，なぜ超能力のことを 
化り」•.げたかというし嚴近，超能九につ 
いて学問的に取り h げた（をして科学おの 
か驟ではきわめて有名な村上陽一郎氏の訳 
した）1册の野心的な本を読んだというこ 
と（これ力;' きわめて七 ン 七ー シヨ ナルっぽ 
いのだが)，をれに一見超能力っぽいという 
巧象を固解したからなのです。 

L 科学思想家の書いた1冊の本/ 

超能力を扱った本というと，スプーン llll 
げと力 >, Mr •マリックと かいうような類の 
事象や人を扱った，半分お遊びのような本 


を連想してしまいまず。しかしをうでは 
ないまれな1册の本（文献 2) がなぜ'か自 
分の家の本棚にがをしていました。 

著-をのケストラーはもともとは新聞記を 
でした力す，政治 i 舌動を巧い，刑務所に入れ 
られた後，科学思想に I 划する著作を発表し 
始めました。有名なものじは，「ホロン革命」 
「機械の中の幽靈」「還巧主義を越えて」な 
どがあります。ホロンに基づく階贈構造な 
どの話はかなり U 本でら話經を樂めました。 

波の科学思恕の特徴は次の点にあるよう 
です（义献3)。 

1 ) 現実生活から科学を遊離させず，抽象の 
な埋論に走らない。 

2 ) 正統的な思怨に反ぶする（反ダーウィニ 
ズム，超心理学へのホ y )。 

3) 尊門家では言いにくいことでもズバズ 
バ言う。 

本蕾はただがに超化火が存かすると主張 
しているのではありません。超能力を现化 
物理学，と、理学，化物学などの最先端の化 
萊 I :関連づけようとしているのです。ただ 
し，ケストラーむみは科学者ではないので， 
自分でなに力’実験を巧ったり，論証したり 
するのではなく，第:£あ的なジャーナリス 
卜に近いスタンスをとっています。 

本書では，まず，テレパシー，予知，念 
動などのような現象は備灾に存化するもの 
であるということを，さまざまな研究者た 
ちの発表を具体的に提示•することで，我々 
を説得しようと試みます。をして，かには， 
がらり L 話趣が逸うようじ思われる，現化 
風子如学にわける，人1!リの您像を越える奇 
妙な素粒子たもの姿について述べます。読 
者はしだいに，もしかしたら悬初に述べた 
超能力をこのような物巧のミクロな姿で説 
明をしよう t しているのだろうかと感じ始 
めるでしよう。 

次に ケス ト ラーは 超化; i ] を完全に説明す 
るまでには至らないものの，いくつかのを 
掛かりを措示します。をれは现在の学1!!)体 
系の大きな基盤である「因果関係」の絶が 
のなをを否をするものとしての「連続性」 
「同期性 （シンクロニシティ）」 の概念で 
す。これらは生物学，物理学，と、理学のを 
れぞれの巨应であるカメラー，パウリ，ユ 
ングらじよって考え,中,されている概念です。 

をして，本書ははっきりした結論を提示 
するには至らないまでら多くの示唆を残し 


て終わります。ここでは，本普を体の主張 
までは雜み込まず，超能力の巧-在に間する 
データを突きつける第1章だけについてら 
う少し紹介することにします。 

/ ii じざるを得な < なる第1 章] 

超能力の学問的研‘兜の先駆者はアメリカ 
のデューク大学'じ、理学ず！•のライン助教授だ 
をうです。彼は1932年に超ム、理学研究所を 
設立し，をれまでは倍しげなところの多か 
ったこの手の現象に対して厳密な科学的手 
法を導入して解析しようとしました。 

トランプ当てやサイコロ振りの実験はな 
んと何千人^いう無作為に袖化された人た 
ちを使い，何巧力‘回という実験を繰り返し 
たらのだをうです。彼の示した超能力のな 
在を証拠づける結架は，いまでは議論の糸 
地のない完全なものであるとされていると 
のことです（ケストラーの解釈だといわれ 
ればをのとわりかもしれませんが)。 

彼の実験も含めて数多くの結果が第1齋 
には記されています力 S ， ラインの巧ったテ 
レパシーに I 划するひと つの 実験を紹介する 
ことにしましよう。 「ゼナー カード」と呼ば 
れる，円，化方形，卜字，星，波というわ 
ずか5種類のカードを用います。をの1枚 
を送り手が無作為に遽び，をれを見て受け 
ホにイメージを送り，受け手はをれが何で 
あるかということを当てるのです。当が， 
テレパシー など巧化しないのなら ば， をれ 
が当たる碰率は5分のしつまり100回巧え 
ばだいたい20圃当たるはずです。 

1934年にラインによってを閒された記録 
は，特定の（超能力を有していると考えら 
れる）被験-あに閱する，8力‘5千回にも及 
ぶ奥験のすべてのデータでした。これによ 
るし全体を通じて，100回に列•して28间 
という割合で当たり続けた！：いうこです。 
これは偶がと考えるにしては天文学のな数 
字のずれ!：いうことです。 

さらにいろいろな人の巧った案験の結果 
が記されています。それらはイギリス心靈 
研•究学をの学を誌に論义として発表されて 
います。この学をは嚴初はなん t なくが散 
臭く思いました力ず，読んでいくうちにきわ 
めて権威があるのではないかと感じられて 
きました。というのも，数ぺージをさいて 
この学会の信頼性を高めるような記述があ 
ったからです。 
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この学会の歴代のをお（全部で47 人） の 
中には3 人のノ ーべル•巧赏者，1 人の 首 
相，10 人の 王立学を のメンバー， 多数の大 
学が巧 （ケンブリッジ， ハーパ、ード，ォッ 
クスフォードなど）ををんでわり，本帯に 
はわざわざ全员のリストも載せられていま 
す。さらに副学をおや述嘗委貝などもをめ 
ると，ずいぶん權戚のあるものになるであ 
ろうと述べています（たとえば屯子の発見 
者の トムソン まで含まれている i ： のことで 
す)。 

H 本の現在のこの手の研究がほんの少し 
しか斤われていないとの認識を強めたのは 
次の記述を読んだときです。 

「いまでは世界中どこを探しても，超と、理 
学の研'お学•科を巧する大学のまったくない 
ような園を探すこがむ‘しろ雛しい」 

娘近ではさらに敝密を極めた実験が行わ 
れているとのことです。それは，1個の電 
子がある放射線を発をする量子過程を利用 
して， 4つのランプのうちのひとつを無作 
為点なさせ，被験者はどれがつくかを当て 
るというものです。2力‘回巧って，偶がな 
らば10のマイナス10乘の備率というきわめ 
て起こりにくい現象を確認しむということ 
です。 

[_ 超能力実験の巧われた曰/ 

さてやっと僕の身近で備認できたと思わ 
れる超能力についてぉ話しする t きがきま 
した。奕はこの现象は僕が先ほどの本を読 
む前に偶が起こったわけで，敝密に実験と 
いう性格，あるいは客觀的な説得力をがた 
せたものではない i ： いうことは蹤初に言っ 
てわかなければなりません。しかし，記録 
として巧すだけの倾做はあると僕は思った 
のです。 

テー マは テレパシーです。方法はひとり 
が適当に脚単な絵を描きをれをおながらイ 
メージを送り，らうひとりはをのイメージ 
を頭の中で受け取りをれを絵に揃くという 
ものです。 

をのときの状況を忠おに追っていくこと 
にしましよう。僕む身は同じ部屬で別の仕 
事をしてわり，途中で騒ぎが大きくなった 
ので見物に加わりました。ですから，加わ 
るまでのことや彼縣をたちの‘じ、情などにつ 
いてはあとで側いたこからまとめました。 
:ここ::::::::遊能为奠験中継關始:::：：：：：:こ二： 



1) 暇を持て余していた Y ， T ， S の3人 
の話趣は偶が超能-人に移り，をれでは試:し 
にテ レ パシーの実験でもしようかというこ 
とになる。 

2 ) Y はどっかでおたようなマーク（図 1) 
を揃いて送る。 T はパッとイメージが巧き 
をれを描く （図2)。あまりの類似に驚き， 
もう1回やろうということになる。 

3) Y はイカの絵（図 3) をネ苗き， T に送 
る。 T は四角形！： S 約形の絵が頭に浮かび， 
わでんだろうと（を計に）考えて，をれを 
揣く（図4)。結果に辦く。をのまま兰巧と 
四角を揣けばよかったという請になる。諷 
は盛り上がり次は立方 f 本だろうなど L いう 
話趟が I 間才妄的に化る（これは次の实験の化 
傕さを落とすこ t になる，ただしサイコロ 
t いう言葉はらちろん化ていない）。 

4) (興味が化て加わった） S は T と Y にサ 
イコ ロの絵（図日）を送る。豆腐だと Y が 
言い化し（図6 ) ，をれを I 州いたては一部が 
尖った豆腐のイメージを受け取る（図7)。 
室内はすでに騒がとした葬 I 神気に包まれて 
わり，3人 L もかなりが蹄•さを失っている。 

5) 次'に Y はまったくす山象的なイメージ 
(図 8) を送るが T は現夹的なものをイメ 

—ジしようとして，フロッピーディスクの 
絵（図 9) を受け取ってしまう。当たらな 
かったということになる力 ;'， YU (ちよっ 
と強引だが）フロッピーの中心の I リとをの 
下の窓の部分をのものだと，解釈しようと 
する。 

6 ) をの後，2回実験を巧うがあまり似て 
いない（をの後実物の絵は擒ててしまう）。 
もうこれ la 上やってら，せっかくのこの驚 
きを4了ち消すだけの結-梁になりをうな気が 
してやめる。 

二こ二：::：：：：：避能力奠験中継終了:：：：：：：：：：：： 


この夹験からすく、'に結論を化をうとして 
ぃるのでは，もちろんありません。読んだ 
方がひとつのデータとしてでも受け化って 
もらえばぃぃのでしょう。突験結果は決め 
られた記号や数字などを送る t きのように， 
当たりはずれの成鐵が正備な数字でおされ 
るようなものではありませんから，「こんな 
ことがらし偶が起きるとしたらをれは，こ 
んなに小さな数なんだ」とぃうことらでき 
ません。しかし自けいこ揣ける絵だからこ 
を，これほど一致するのは驚異的なのだと 
ぃえるような気もします。 

4圃の奠験につぃて，一応それぞれの成 
采を主觀的に100点満点で評仙 i してみまし 
ょう力、。まず1回目はなんとぃっても95点。 
2回目は75点。3回目はパターンとしては 
90点だが，場の蔡閒気が情報をかなりなえ 
てしまったのでマイナス日〇で40点。をして 
4 | iij 目はまあ20点でしょう。 

[_ ぉ茶吕な脱線 / 

たまたま超能力の巧りのする現象が身近 
に起き，をして，たまたま家の本棚にあっ 
た超能； / J に関する野ム、的かつ学問的な本を 
読みました。このような機をにおまれむも 
のとして，しかも科学をのひとりとして， 
今度はむ分の方法で能動のに（もょっとだ 
け）踏み込んでみたぃと思ぃます。熱ぃな 
じはぴったりでしょう。ライン助が巧のけ1 
ぃたらのと同種の「ゼナーカード J もむま 
たま手に入ったこ t ですし。 
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もう少し冷たい夜明けが来てほしいのに， 
小鳥が飛びまるかすかな気配とともに，窓 
辺は一面，湿った光をおびはじめる。 

午前6時:，毛皮を着た気の毒なホンニヤ 
アカず，ベッドにしていた食卓の椅子から， 
コトンと降りる音がする。なぜ'かクーラー 
のきいた部屋を嫌って，リビングの気に 
入った場所で眠ることにしているのだ。 

時計の音で目ざめるのかどうかわからな 
い 力す，ホン ニヤ アは6がになると寝室のド 
アの前にきて，「もう，起きてよ本」と声を 
力，ける。 

さをわれてドアをあけ一歩踏みだす床か 
らは，なまあたたかい湿気が上ってきて， 

今 E1 1 日の意欲と計画を，足元からくじけ 
させようとする。やっと梅雨の明けた7巧 
なかば，ふしこれからやってくる盛夏を 
思うと弱気じなる。あのひんやりした，さ 
わやかな，はげましに満ちた朝はもうこな 
いの かな。 

でもだいじようぶ，予期する猛暑はわを 
ろしいけれど，現実に化をう真夏は楽しい 
ものだ。いつ^，新しいなが待っている。 

廣盤戦 

始まるまでが大さわぎ。これから何がわ 
こるの力，，どんなひどいけにあうこ^にな 
るのかを，想像しているときがいちばんコ 

ワし、。 

春， PTA のを委貝を，クラスの中から決 
めるはみんなコワくてつらい。つらいか 
らこの间は化てこない人ら多い。なぜ'つら 
いかというと，委员になるのをわたがいに 
ゆずり合うのがつらい。 

「ゆずり合う」とは，別の言い方をする 
と「逃れ合う」ことなので，逃れ合いのた 
めに，じぶんがどんなに‘忙しくて，委員！： 
しての時間を持つことが無理であるかを競 
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争しなければならないのだ。 

この競争はルールも基準もないから，根 
本的には無効なのをみんな承知している。 
だから，この競争に勝ったときもまたつら 
い。委員になってしまった人とじぶんし 
どちらが時間的なゆとりが少ないかなんて 
とうていわかるはずもないし，時間のあり 
なしで委員を「選出」するじぶんたちの失 
策について，けっして語れないのがつらい 
のだ。 

「あの，校外補導委員というのをやります。 
をれで，きょうはちょっと予定があります 
ので，帰らせていただきたいんですけど」 

やむを得ない早退の交換条件 L して，い 
ちばん無難に見える委員会の一員を志願し 
た。とりあえずクラスからの「選出」を受 
けて，をの委員をの構成員となり，委員長 
選を逃げきればいいのだ。をの程度のイ壬務 
なら，なんとかつとまるだろう。学年委員 
ら，広報委員も，成人教育委貝ら，だいた 
いをんなぐあいにヒラ志望でをクラスから 
出陣していく。 

半死半生 

数口後，各委員をの初を合は正副委员長 
選化の巻。ここにホるのがやっ！：の思い， 
もうこの上はぜったい後に引かぬ，いや， 
前には,中,ない決意の面々力 S '， をれはをれは 
こわばった表情でにらみあう。 

校外補導委員をは，委員長1名，副委員 
長5名を選ばなければならない。全校24の 
クラスから1名ずつ，24名の委員をだ。 

インストラクター役の前年度委員長が， 
「まず各学年から2名ずつ，計6名を副委 
員長!：して選化，をの中から1名を委員長 
としたらどうでしょう」と提案。 

ただひ} L り， 3年生のスイトウ（水藤） 
さんが「副委員長なら」と名乗りをあげた 


小さい頃,いつち「いったいなんのためにあ 
るんだろラ J と不思議に思っていた戶 TA 。 
それは子供だけでなく実際に参加している 
おかあさんたちち感じているらしい。さあ， 
し、まここに PTA の実態が明かされる I 


だけで，どの学年も，長い長いうかがいあ 
いがつづく。 

「をれではクジにしましようか？」と前 
委員度。無策の切りホしはいつもアミダくじ。 
スイトウさんの分をのぞいて，3年生は1 
名，ほかは2名ずつが泣き泣き決定。私は 
ヒラ蚕員に逃れる。 

そして6名の副委員長が委員長選出の話 
しあいを始め，ヒラの18名は申しわけなさ 
i i h に静観する。 

ここで前委員長の善意のひとこと。 

「3年生の親は，受験準備でなにか多‘忙 
ですから，委員長からハズしてやったほう 
がよいし思います」 

ご本人の体験からの発言だったが，結果 
的にはこれが波紋を呼んだ。委員長の選化 
範開がし2年生に限られ，該当者4人の 
戦悚が一気に高まったのは当たり前だ。 

ただでさえ不信感でいっぱいの初顔あわ 
せのを合に，不平等感が加えられて，委員 
長選は殺気をゎびてきた。 

長い重苦しい立往生のあし t うとう1 
年生の副委員長から「3年生がやるべきで 
しよう！」と悲鳴に似た声があがった。 

「なぜ’，し2年生の親が委員長になら 
なければいけないんです力、。3年生がやっ 
て当たり前でしょう。私は副委員長を降り 
させて^らいます」 

をうなんだ，親が受験するのでむないの 
に，委員長をまぬがれるのはヘンだなと思 
っていた。でも，3年生がやるのが当たり 
前というのも少しちがう。 

「私が委员長をやります」 

3秒ほどあとじヒラのはずの私が挙手し 
ていた。中学校の PTA にはけっして関与 
すまいし2年間逃げまわっていた私がや 
るべきだしあっさり観念したのだ。 

降りてしまった人は，「燃え夕き現象 J 









でいま社会に問題を投げかけている，多忙 
の花，看護締さんだった。おって当がだ。 
看講締さんの非人間的重労働を，私たもと 
同列にしていたのが恶いのだ。 

をれじしてら，をんなにみんなが嫌う P 
TA にしてしまったのは，いったい誰なん 
だ。幼稚閣 U 米，恕かしい引き受けかた， 
押しつけられかたをしてきた， ニガあ い思 
いと共に，義務教育最終年の反省がわをっ 
てきた。 

「ぉ子さんヒトリ？じゃできるじゃな 
い」「わウチにいらっしゃるの？ だった 
らなされば J 

誰も PTA の内容なん力，考えていない。 
子供の数とヒマのぐあいで成り立ってる P 
て A が， いかじカラッポか，みんな知って 
る。をうやって，じぶんたちでつまらなく 
してしまった PTA に，みんなで意欲をな 
くしているのだ。 

こうして，毎年， PTA は仮死が態でスタ 
ートする。 

皆一部ハイテクで 

始まってしまえば，コワいほどのことは 
何もなく，よくも惡くらレールが敷かれて 
いるのが PTA だ。このレールを切断させ 
ないこ t 力す，きっと最大の目標なのだろう。 

行事計画のためにさっそく委員会を刚こ 
うし名簿をたよりに電話をかけてみてわ 
どろいた。日中家にいる人なんて皆無だ。 
これではたしかに，委員の化事はむずかし 
い。しかし，すべて巧を待っての進行！：い 
うのら困ったものだ。 

委員会の剛催も： hW の午後の2時間がや 
っしよほどスピーディに運ばないと行事 
はこなせをうじない。こんなことなら，み 
んなにラクをさせてあげようし8割準備 
作戦に化る。 

事前に計画案，実行案を文書でつくり， 
こんなものでいきましようし強引にすす 
めてしまうやりかただ。もともと前年腹の 
巧事を踏。のが基本だから，をれほどの問 
題ら起こらない。これでだいぶが間の節約 
になる。エディタ，ワープロ，プリンタ， 

コピー機の大活耀だ。 

わ巧さん業とぉつとめでいをがしい委員 
一同は，1々でも早く帰宅できることを喜 
んでくれる。 

さて，委貴をの初仕事は恒例の「夏休み 


夜閒パト ロール」。 全校9%名の供： 

講者全員が，夏休みのあいだ，夜 
の I 叮を パトロールするの だ。 この 
ための，1 :1程と チーム 編成名簿を 
つくって，すべての 保護者 ■にく ば 
らなければならない。 

議案や作業プランはパソコンで 
やってきたけれど，委員みんなで 
やる名簿づくりは手仕事だ。まず， 

全校生徒から個人のデータをあつ 
める。住所，氏名，電話番号，当 
巧在籍の兄弟の氏名を記入しても 
ら し、 個人票をつくる。すべて これ 
によって名簿づくりが進斤ずる。 

通学区域には6 つの 町があっ 
て， パトロール^町単位で行われ 
る。名簿は各町に人数ぶん必要に 
なる。全巧から集められた個人票 
は6 つの 町に分類され て， 同じ家 
庭から通学する兄弟らひ t つにま 
とめられる。 

I 叮ご^に，生徒数をパトロール 
の実施日数で割り，を班の人員を-劈化。住 
居表示を若い順から並べていき，日害リウし 
ながら当番の氏名を書きこんでいく。 

できあがった名簿はふたたび，ろ学年， 
各クラスに分けられて，生徒を通じて保護 
者の元に届けられる。 

m の淵なら 

/7巧初めまでに完成の予定で，名簿づく 
りのプロ七スは始まった。 

^ころカミ，ひをかに予想したとわり，作 
業のじっさいはなかなか閒題があった。ま 
ず，いちばんの根拠になる個人データカ S '， 
生徒たちの手書きであること。こちらがワ 
ープロで準備した書式にら閒題があったか 
もしれないが，文字の不明瞭，記入の不完 
全のために判読にまよった。中には欠席し 
た友人のデータの代筆ら多く，内容をのも 
のの誤りもあった。 

つぎに，住居表示が，町名外はすべて 
数字であること。 TH , 区画，マンション 
名，部屋番号が数字だけで識別される。を 
のためにわずかな数字のちがいが，大きな 
分類ちがいになる。また，この千に近い数 
字を若い順に並べる仕事は，やってみると 
i ： ても たいへん なのだ。 

あんのじよう，できあがったお满が保護 


者の元に觸いたとたん，誤記や分類ちがい 
の苦情がひきもきらない。個人票の欠倘や 
書き写し時のミスなどなど，いろいろな板 
因だ。 

こんなこと，パソコンを使えばパーフエ 
クトに近いのに。学巧の名簿を借りて個人 
のデータを入リ J すれば，あ^は表集計のソ 
フトがみんなやってくれる。 

兄弟姉妹の一巧，町の分類，住居表示の 
昇顺整列，日分け，印刷。できあがりらホ 
書きよりは上等だ。止1懼円ごとに，必死の 
思いでかけつけて，あたふたと家路をたど 
る委員たもは，むっとラクになる。 

と，ここまできて，ふ！：気がついた。ラ 
クになって，なんじら仕事のない PTA こ 
を蹤恶なのだ。手閒と時閒のかかるこ t を 
どんどん切り擒てて，合理化だけを提案し 
たら，仮死が態の PTA がらう一度死んで 
しまう。だから，今の PTA にハイテクの 
ススメ はできない。 

でも，ほんとにをうだろう力，。あきらか 
に機械のほうがふさわしいわかっている 
ことを，いつまでも手作業でつづけるのが 
正しいのだろう力>。 

機械にまかせたら，あ t に何も残らない 
PTA なら，一度絶命するのらいいからし 
れない。 



，'ご:•こながゴごだ::こ普:•こた:;こ於がな 
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♦X-OYMNIGHT. 

[第 4 話] 

流行歌を追元! 


(ク□ススーバーナイ h ) 


TAKAHA 円 A HIDEKI 


局原秀己 


ぼくは比較的，歌 I 惡曲もニューミュージ 
ックらポップスもとかけへだてなく幅広く 
間くほうである。しかし，歌手の顔と名前 
が一歎しないケースが極度に増えてきたの 
は困った状況だ。 

娘近，テレビの歌番組を見ることがめっ 
たにないことが大きいのだろう。コンサー 
卜には もちろん斤かない。 FM ラジオで刚 
いて， CD をレンタル店で借りて，気に入っ 
たら買う， I :いうパターンばっかりなので， 
「实物」を見る機をはほとんどない。これ 
では，歌と歌手の名前が一致しないのも無 
现がないところだ。 

もちろん Wink はわかる。永:かが理子も 
わかる。た*カ ミ PRINCESS P 民 INCESS を パ、 
ラバラにされるしかなり危なくなってく 
る。テイーン エイジャ ー歌手もダメ。をし 
て何よりら，特に蹤近ミュージ ックシー ン 
で頭角を现してきた新進バンドはわからな 

い0 

こうした人気バンドの歌はひと通りは間 
いている。たまや米米 CLUB はもちろん， 
BAKUFU - SLUMP ， BEGIN ， JITTERIN ’ 
JINN ， X ， LINDBERG ……とも i 低限のヒ 
ットメーカーの歌は聞いているし，10山1く 
らいはカラオケで歌えるようにはしてある。 

こうした带:を-歌って， 

「いまの歌は何？」 

というようなオジサンは論外としてら，結 
m 知 らないお手の同僚は多い。 

もっ t む，歌は知っていて歌えても，颁 
までははっきりわからないという人はぼく 
だけでむないようだ。をれからいくしぼ 
くは平だ]的なのかもしれない。 

をれにして! J ， i 良近のミュージ ックシー 
ンはバンドの台頭により，激変していると 
いって閒进いない。をもをもはアイドル偏 
乘だったわけだが，バンドの登場により， 
アイドル歌手のヒットチャートにおける上 


化進化はここ半年で絶望的な状況となって 
いる。人気がなければ，ゴールデンタイ 
ムあたりのテレビにはホイホイとは出られ 
ない。をのせい力 >，アイドル歌手の出,-番は 
午後別を la 前に追いやられてしまった。をれ 
に歌を組自 f 本が少なくなったことらある（深 
夜- U 外は)。 

また，彼らはテレビ出演よりも CD 販売と 
かコンサートを重視するので，ぼくたちは 
歌をテレビの歌巧組で脚くことよりも ， CD 
やコンサートで削くほうがをがになってき 
たのだろう。 

本本 本 

ところでバンド，特にアマチュアバンド 
は自然苑生的にわき出てきたものなのだろ 
うか？もちろん「イカ天」などの舞台設 
定が整って，彼ら自みの登帝門ができたこ 
とは火きい。だが，をれだけかというと， 
をうでらないようだ。 

X-OVER NIGHT らしく，深夜の推論を 
してみると…… 

ヒットメ ー カ ーでない場合，彼らはいわ 
ゆるフリーター，つまり定職は持たずにア 
ルバイトで自山に時师が使えるようにして 
収入を離保する場合が多いという。 

アルバイトで生 i 舌するなど，ちょっと前 
はかなり雛しいことだった。をれに耐えて 
今日がある，なんていう元劇聞,中,身の俳俊 
のサクセスストーリーがあるくらいだから， 
夹態は想像できるというらのだ。 

t ころが昨今の経済情勢を眺めてみると， 
アル バイトの爲おがこのところウナギ登り。 
普通の アル バイトでも東なでは時給1，000 
I りの Jr - の求人がごろごろしているくらいだ。 
杉ちろん銀斤，証券 I 划係の全礼貫や待遇の 
いい SE なんかには及ばないものの，をこい 
らの製造業系中小が業なんかに比べるし 
ずっと収入はいい。 アル バイトでをいつな 
いでメジヤーになるチャンスを待つこ t は 


十分に可能な時化となっている。 

さらに世の中の劈:圃気として，経済状況 
が見かけ上に過ぎないじせよ余裕が出てき 
ているため，そうした生き方が許容される 
ようになってきたという変化ら見逃すこと 
はできない。髮の染め方やファッションが 
英国系ミュージ ックシー ンの流れを追って 
いることし英圃風のいい恵味で退雜した 
生活パターンとがダブってくるような気ら 
してしまう。 

らうひとつ，これはこじつけっぼいのだ 
が ，束南アジアからやってくる苦学生や労 
働—巧が急増しているこ^もあって，他人と 
自分を意識的に区別するために，はかの先 
進国風の生活を追ってみるという機逃があ 
ちこちで出てきていることも，な逃せない 
ような気らする。 

こんな感じで考えてくると，バンドの流 
斤と経済情勢とは根の部分で因果閒係とし 
てつながりがあるような気がしてしまうの 
である。 

まあ何にせよ，昔楽業界自体が彼らの台 
頭らあって，アイドル偏重から本当に灾九 
のある歌手を求めるように少しずつ変わっ 
てきたことはいいことなのだろう。 

もっ t も现をの形が完成形であるとは， 
とてら考えられない。この鍵はメディアの 
変がによって，かなり左をされてくるとぼ 
くは思う。をらをら CD ， LD の普及によっ 
て，音楽の楽しみ方自体が変わったことは 
いうまでもない。 

ニューメディアブームのわ先椿を姐ぐわ 
けではない力す，これからは CATV ， 術星放 
をがより普なするだろうし，ハイビジョン 
も化てくる。をしてパソコンも，いまをえ 
られている形ではないだろう力す，メディア 
の端末機として活躍の場ができてくるはず。 

はたして音楽とパソコン L の未来的な間 
係とは……。 
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•グラフィックの 統一環境 

S - OS 企画がスタートし，同じ Z 80 を搭載した 
マシンなら MZ だろうが XI だろう力す，はたまた PC - 
8801だろうが同じオブジェクトプログラムが動く 
ようになってしばらくたった頃の諸です。グラフ 
ィックも統一できるのではない力‘という話が持ち 
上がりました。 S - OS の系譜 （12) でも少し触れま 
しむ力す，かくしてグラフィックの統一というかつ 
てない試みがなされたのが1986年9巧号で発表さ 
れた MAGIC です。 

コマンドを解釈実行するィンタプリタ型のグラ 
フィックルー チンながら，驚異的な描画 スピー ド 
で 3 D もなんのをの。当時の編集部では 3 D がは 
やっていたこ心もあり，青赤眼鏡を掛け正四面体 
をグルグル回すなど心いう遊びが流行しました。 

当然機種別のプログラムですので， S - OS 用の 
アプリケーションとしては発表されず，共通化の 
別の試みとして単体で供給されました。しかしこ 
のままではマシン語から使うしかないため S - OS 上 
の高級言語がグラフ ィ ッ クルー チンとして サポー 
卜するようになりました。いまでは S - OS のひ t つ 
の環境としてなくてはならないな化です。 


第郎部 

BILLIARDS 


•あなたも ハスラー 

今巧わ届けする BILLIARDS この MAGIC 
^ SO 民 OBAN を利谓した SLANG のアプリケー 
シ ヨン。グラフ イ ツクをフルに使って，色^りど 
りの玉がグリーンの台に美しく表示される本格 
的なビリヤードゲームです。 

動き始めると白い点になってしまうのはご愛 
敬。高速化のための工夫でしょう。10個の玉が動 
き始めるし動体の衝突というが間のかかる計算 
を延々 t 繰り返すのですから Z 80 にはかなり重い 
仕事です （ Z 80 にもコプロセッサがあればなあ）。 
でも総じて巿贩のビリヤードゲーム並によくでき 
ていますので，楽しめることでしょう。 

編集部ではバンキングの代わりにジャンケンで 
先攻後なを決め，対戦9ボールが盛り上がってい 
ます。皆さんも友達どうしワイワイいいながら挑 
戦してみてください。 

さて，ホ巧はサブルーチンをソースフアイルで 
はなくア七ンブルして蓄えてわくためのツール， 

リロケータブルフアイルには不可欠なライブラリ 
アンの登場です。 

• S-OS の系譜 （ 13) 

1986年11巧号に掲載されたエレシヨウのレポー 
卜は16ビットの XI ， X 68000 の興齋のレポートで 



始まっています。斬新なマンハッタンシェイプ。 
65536をのグラフィック。ソフトがないなどと， 
現在の状況からは想像もできないような中傷がな 
されたパソコン誌があったこ L を思い化します。 

この11巧号の SENTIN 巨 L ではゲームが2つ発 
表されました。ひ！：つは HOTTAN というパズル 
ゲーム，もうひとつは MAZEinMAZE という口 
—ルプレイング風の 3 D 迷路ゲームです。 

HOTTAN は XI ， MZ で大女了•評を博したパズル 
ゲーム PITMAN によく似たゲームでした。±の 
中に埋められたまを，止を掘りながら集めていく 
単純なゲームなのですが，止の中には岩があり， 
岩の下の±を挪ると上から岩が落もてきます。ま 
た，空中を動くことはできないため L ころどころ 
設置された梯をうまく使いながらまを集めていか 
なければならないというものです。 

最近ではこういったアク シヨン 型のパズルゲー 
ムが少なくなってしまったような気がします。ア 
イデア勝負で作れるタイプのゲームですから，ひ 
ねった投稿に期待したいところです。もう一方の 
MAZE in MAZE はキャラクタを使って 3 D 画面 
をホ裤成した，気幢に楽しめる迷路ゲームでした。 

読者の皆さんのなかにも情報化理試験を巧け 
ようと思っている方扛いらっしゃるかと思いま 
す。第2種情報化理試験のアセンブリ言語の試験 
には COMP - X という仮想 CPU 用のアセンブラで 
ある CAP - X が使用されてきました。 S - OS では 
1985年10巧号で CAP - X を発表しています。 

しかし， COMP - X はあまりに実用的でないと 
のす比判から，1987年4巧実施の第2種情報化理試 
験 U 降は COMET という仮想 CPU 用のア七ンブ 
ラ CASL に変更されることとなりました。1986年 
12巧号ではこの COMET のシミュレータと CASL 
が登場しています。 

CASL は ZED A と同様に使用できるエディタア 
七ンブラで，得られたオブジェクトを COMET シ 
ミュレ ータで実行させる こ とができます。受験を 
考えている方はバックナンパ' —を引っぱり化して 
試してみてはいかがでしよう。 





THE SENTINEL 


145 











全おを巧 IS - 口 S‘‘SW 口 RD ’ •'要- 

BILLIARDS 

SLANG ， SOROBAN ， そして MAGIC 。 な通システムとし 
て発表されたをくの優秀なパッケージ群を集大成して，グラフィ 
ック巧応のビリヤードゲームが登場でず。をくの要素をシミュレ 
一 h した IJ アルなゲーム感覚で八スラー気分を味わってください。 


Kaneko Isamu 

金子勇 


SLANG と MAGIC を使ったビリヤード 
ゲームを作ったので発表します。 S - OS 対応 
といってもなめてはいけません。回転ら計 
算してわり，押し球，引き球，ひねり，力 
— ブボー ル，マッセな どもできます。 S-OS 
と閒速システムだけでもここまでできると 
いうところを見てください。 

なわ，この ゲーム を動かすためには 
SLANG のほかに MAGIC と SO 民 OBAN 力;' 
必要です。また，残念ながら SLANG のオン 
メモリ版ではメモリが足りないのでコンパ 
イルできなくなってしまいました。 


入力方法 


まず，グラフィックライブラリの ソース 
をゎ手持ちのエディタで入力し， GRAPHICS . 
LIB の名前で七ーブしてください。 

次にビリヤードプログラムのソースリス 
卜を入力して七ーブします。をのあとコン 
パイルするわけですが，をのままではハッ 
シュテーブルが足りないので SLANG の 
3012 H を 80 h ，3013 h を OIh じしてからコンパ 

イノレし ます。なわ， コンパイル する 前に 

SO 民 OBAN を NEW LOADE 民で 9 F 00 h に 
組みをんでわいてください。 

コンノタイル中， SO 民 OBAN . LIB と GRA 
PHICS . LIB をインクルードします。コン 
パイノレが終わったら， 

S BIL : 5000:9569:5000:9000 
としてセーブしてください。をのあ扛， 
SO 民 OBAN ぉよび各機種の MAGIC t BIL 
を說み込み， 

S BIL : 500 0: C 1 FF : 5000 
のようにまとめて七ーブします。次回から 
はこの BIL を読み込。だけで実巧-できます。 
なわ，実行時は25斤スクロールモードにし 
てください。 
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操作法 


こ のゲー ムはビリヤードの9 ボールの シ 
ミュレーシヨンです。球の巧ち方から説明 
しましよう。まず，方向を決め，キューを 
持つ手のグリップの高さを決め，をのあと 
ボールを巧つ力の強さを決める i ： 球が巧て 
ます。方向の選択は7と9で l ( r ずつ，4と 
6 で1°，1と3で o . r ずつ行うこ t ができ 
ます。 

方向がみまったらスペースを押します。 
ボールのどこを突くかは2，4，6，8で決め， 
グリップの高さは2，8で'决めます。 

このグリップの高さ t いうのをなにに使 
うのかわからない人もいるでしよう。球の 
端をキ了つときグリップを上げてゎくしを 
ちら側に曲力 5' る カーブボールに できるので 
す（ジャンプ ボールには なりません）。 

儀後に巧つ力の強さを決定します 。つ一 
力一が動くので好きなところでスペースを 
押してください。 マーカーの 位置はを侧の 
ほうが強くなります。 


9ボールとは 


9個のを号のついた的球とひ!:つの手が 
を使ってやるビリヤードのゲームです。 

的球のうちホ号のいちばん小さいものに 
当ててから的球のうちのどれかをポケット 
に落とします。うまく落とせたら同様にプ 
レイを統けていき，ひとつもがが落ちなか 
ったり，違う番号の球に最初に当たったり 
するともうひとりのプレイヤーと交化です 
( i : いっても，このゲームではコンピユー 
夕との対戦はできませんから，が戦相手を 
どこかで調達しなければなりません）。回的 
は9をの球を落とすことです。をれまでの 


経過に関わらず，先に9番の的球を落とし 
たほうの勝ちとなります。細かい ルールは 
省略し幸す。人に脚く力，，本を読んで〈だ 
さし、。 

•マッ七 

特別な打ち方としてマッ七があります。 
これはキューを立てて突く方法で，巧をか 
なり曲げるこ t ができます。ただ，思いど 
わりに巧つのは難しいでしよう。 

マッセを使うには方向を決めたあとで M 
のキーを押し マツ 七のモードに入らなくて 
はなりません。ちなみじ，このとき決める 
方向は自分の向き，つまりどの方向が正面 
になるかを表します。 

次に上から見てどこを巧つかを決め，グ 
リップの位嚴を決めて （2 を押すほどグリ 
ップが傾いたことじなる）巧つ力を指をし 
ます。のでマッセができます。 


特別なキー操作 


通常の ゲーム 進行に関わり ないモード 切 
り替えの キーとしていくつかのキーが 使用 
されています。 

H ヘルプ モード切り替え 

方向選がのときに押す k 有効です。この 
モードでは手球と的球の当たる位置と当た 
ったあとの手が^的球の進 ti * 方向を表示し 
まず。ただし，回転は考えていません。 

R リプレイ 

これを押すと球の配置が1巧前の位廣じ 
戻ります。 

ESC-n 移動 

エスケープキー（ブレイクキー）を押し 
て〇〜9のキーを押すと好きな球を移動さ 
せることができます。 

をのほか，球が動いているときにし2, 
3のキーを押すと表示モードを変更できま 



























memw[&CO+7]=y2; 

CO[9]=15 ； 

Aix=&co ； 
call($b004); 
end; 

circle(x,y,r) 
begin 

CO[0]=5 ； 

memw[&co+l]=tilel ； 
memw[&CO+3]=tile2 ; 
memw[&CO+51=x; 
memw[&CO+7]=y; 
memw [ 左 co + 9 】 =r ; 

CO[11]=15 ； 

ix=&co; 
call($b004); 
end; 

full(xl,yl,x2,y2) 
begin 

CO[0]=4; 

memw[&CO+1]=tilei; 
memw[&CO 牛 3]=tiie2 ； 
memw[&co+5]=xl; 
memw[&co + 7]= y1; 
memw[&co+9]=x2; 
memw[&CO+11]=y2 ； 
memw[&co+13]=15; 

Aix=&co; 
call($b004); 
end ； 

mask{t1,t2) 
begin 

tilel=t1 ； 
tiIe2=t2 ； 
end : 


c /> 
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CO[9]=15; 

Aix=&co; 
call け b004); 
end; 

palet(a 1,a2,a3,a4,a5,a6,a7) 
begin 

co[0]=10; 
co[1]=0 ； 

CO[2]=al; 

CO[3]=a2; 

CO[4]=a3; 

CO[5]=a4 ； 

CO(6]=a5; 

CO[7]=a6; 

CO[8]=a7; 

CO 【 9]=15; 

"ix=&co; 
call($b004); 
end ； 

line{X1,y1,x2,y2) 
begin 

CO[0]=0 ； 

co[1]=2 ； 
memw[&co+2]=x1; 
meniw[ &co 牛 4 ] = y 1; 
memw【&CO + 6 ] = .x2 ; 
memw[&co+8]=y2; 
co[10J=15; 

Aix=&co; 
call{$bO04); 
end; 

box(xl,y1,x2,y2) 
begin 

co[0]=2 ； 
memw[&co+1]=x1; 
memw[&co + 3 J =y1 ； 
memw[&co+5]=x2; 


なりますね。実数が手軽に扱える言語が s - 
OS 用にほしいものです。 


再 



です。角の化理はしていないので角クッシ 
ヨンなどもできません。 

ネネ* 

本当ならジャンプボールにも対応させた 
かったのですが遅くなるのと表示が雛しく 
なるのでやめました。 

S - OS 対応に発表されたアプリケーシヨ 
ン のなかでも結構凝ったゲームになって い 
るのではないでしよう力，。 

SLANG はなかなか使いやすい言語でい 
いと思いますが実数を使うと大変なこ t に 



物に近づけるためにがの回転まで考えてい 
るので実数演算でないつらいのです。プ 
ログラム中では球!：ラシャの摩擦，球とク 
ッションの摩擦，球同±の摩擦を計算して 
いるので，球はかなり複雑な動きをします。 
た i ： えば，入射角 t 反射角が等しくないな 
ど （） ありうるのです。 

ただ，速度重視のために球の当たり判定 
で少し手を抜いてあるので球が3つの J :. 接 
触して並ぶし思い切り巧った手球がすり 
なけたりすることもあります。ただし，ブ 
レイクの！：きだけは別化理なのでごを'じ、を。 
をのほか，ポケットの化理が結構いい加減 


す。1なら球を点で表し，跡が残ります。 

2では跡は残らないようになります。3な 
らば，ちゃんと色分けした丸い球を表示し 
ます。本当は3のモードで使いたいところ 
ですが，遅い （ MAGK ： の CI 民 CLE FULL を 
使っている）ので速いのが好きな人は1か 
2 を使いましよう。 


実行すればわかりますが，実斤速度はあ 
まり速くありません。これは表示に MAGI 
C を使用し実数演算を多用していること 
によります。 MAGIC 自体は高速かつ高機 
能な グラフィックパッ ケージです 力す， ここ 
で必要とされているものに対応するには 
MAGIC が提供するものよりもっと単純な 
嫂理でいいわけです。演算についてら実際 
には固定小数点演算でもできるのですが， 
試しにやってみたら誤差がひどいのでやめ 
ました。 

このプログラムではできるだけ動きを本 


1 // graphics liblaiy 

2 

3 array byte co[14]; 

4 var tilel,tile2； 

5 

6 init() 

7 begin 

8 call($af00 ); 

9 window(0,0,639,199); 

10 palet(l,2,3,4,5,6,7); 

11 mode(2,2); els()； 

12 mode(2,1); els{); 

13 mode(2,0); els(); 

14 end； 

15 

16 mode{mode,plane) 

17 begin 

18 co[0]=7 ； 

19 CO[1]=mode; 

20 CO[2]rplane; 

21 co[3]=15; 

22 ix=&co ； 

23 call($b004)； 

24 end; 

25 

26 cls() 

27 begin 

28 CO[0]=9 ; 

29 co[1]=15; 

30 ix = &co; 

31 cal1($b004 ); 

32 end; 

33 

34 window(minx,miny,maxx,maxy) 

35 begin 

36 CO[0]=6 ; 

37 memw[&co+l]=minx; 

38 memw[&CO+3]=miny； 

39 memw【&CO+5]=maxx; 

40 memw[&CO+7]=maxy; 


プログラムについて 
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リスト 2 BILLIARDS 


full(19,10,618,159 )； 
raask($ffff,$ffff )； 
for k=0 to 2 [ 
modeOik )； 
circle( 100, 189,20); 
circlet 200, 18912 0) : 


で peat 【 

fnode(3|0); mask(0• 0 )； 
full(19.10,618,l59); 

for a=w downto 0 I 
if fla]>=l( 

ball(@cvfti(xxla)),ecvfti{yy(aj),255,1); 

) 

J 

for a=w downto 0 [ 
flla]=0; 

xxx=ecvfti(x[aj )； yyy=0cvfti(ylal); 
ecvitf(vxlal,0); ecvitf(vyla し 0 ); 
dcvitf(ww[a),0>; ecvitf(sliaj,0 )； Scvitf(s2laj,0 )； 
if fla]>=l( 

if xxx.<.15 @cvitf(x 【 a し 15); 
if XXX- >.304 0cvitf{x(a].304 )； 
if yyy.<.15 ©cvitf(y 【 a し 15); 
if yyy.>.154 @cvitf(ylaj,154 )； 
bail ( か vfti(x 【 a)),ecvfti(y 【 al),a,l); 

] 

] 

ball—number ( 》 ； 

XXX 三 1800; yyy=0 ； f3=0; 
mask け 
repeat [ 

@cvitf(dm,10 )； 

®cvitf(x3,xxx )； ®div(x3,x3 •出 n); ®rad(x3,x3) ； 

@Bin(y3yx3) ； み : o8(x3,x3); 

ecvitf (dm,300); emul(x3,x3,dm); み nul(y3,y3,din 》； 
@add(x3,x3,x )； eadd(y3,y3,y); お vitf(dm,2); 8mul(x3,x3,din )； 
x2=®cvfti(x)»2; y2=ecvfti(y); x4=ecvfti(x3); y4=0cvfti(y3); 
mode(1,0 )； 

Iine(x2,y2,x4,y4); 

hl2 三 0 ; 

if hi I 

@cvitf(dm,10 )； 

ecvitf(x3,xxx )； ®div(x3,x3,dm); ®rad(x3,x3); 
esin(y3,x3); @cos(x3,x3 )； 
emul(x3,x3,dtl0); emul(y3,y3,dtl0 )； 
envove{vx,x3) ； @nK)ve(vy,y3 )； 

@mul(dm,vx,vx); emul(clm2,vy,vy); 
dadd(dm,dm,din2); @sqr(Zydin); 

@sub(xl,x,x(f2 ])； 

®sub(yl,y,ylf2 ])； 
emul(dm,yl,vx )； 

@mul(din2|Xl ,vy); 
esub(dm,dm,dm2); ®div{rr,dm, 2 )； 

Sabs(dm2»rr )； 
if ecmp(dm2,dtl0)!=1[ 
ennjl(dm2,rr,rr); »sub(dm2,dtl00,clm2) : 

お qr (血皮, dm2); @neg( tt,dm2)； 
emul(dm,tt,vx) ； «mul(dm2,rr,vy); 

@aub(din,din,dm2) ； ddiv(din,dm, 2 ); 

@add(dwx,x(f2],dm) : 

@mul{din»rr,vx) ； @mul(dm2itt,vy); 
eadd(din,dm,dm2); «div(dm,din,zl ； 

@add(dwy,y(f2] ,dni )； 

@sub(xl|X(f2J,dwx) 

@sub{yl,ylf2J,dwy) 

み nul(xliXl,dtl0); 

@mul(yl,yl,dtl0 )； 
mask{$ffff,$ffff )； 
help_print(); 
hl2=l ； 


k=inkey(1); 
mode(1,0 )； 
Iine(x2,y2,x4,y4 )； 
if hl2 I 
mask(0,0 )； 
helpjprintl); 

1 

case k ( 

27 


ball_move(I); 

XXX —: 

XXX ++； 

xxx=xxx-10 ； 

xxx=xxx+10; 

XXX=XXX-100 ； 

xxx=xxx+lO0; 


if hi then hl=0 ； else hJ=l ； 


for a 三 w downto 0 f 
if f(a|>=l I 

ball(«cvfti(xlaj),ecvfti(ylal),255,1 )； 

] 

1 

for a=w downto 0 { 
if rf(al>=l I 
@move{x[aJ,rx[a)) : 

®move{yta],ryla]); 

ball{@cvfti(x|a]),@cvfti(y|a]),a,1 )； 
fla)=rf|al; 


「削 1:1 巧を 3 おのかこプレゼント」するをうだが，10年後にをれを107が](税別）で光 
というやつ力 f 「ばくらのネ技ホ板 J じを巧しないか‘じ诚である。 神化総一 (24) 化海ぶ 


1 // 

2 // BILLIARDS 1990/4/19 

3 // 

4 // Programed by Isamu Kaneko 

5 // 

6 

7 org $5000 ； 

8 offset $4000 ； 

9 work $dOO0; 

1 片 

】】 #include SOROBAN.LIB 

12 #include CaiAPHIC.LlB 

13 


14 const 
け 
16 

17 

18 var 

19 

20 

21 array 

22 

23 

24 

25 

26 

27 

28 

29 main() 


w=9, 
pi=300, 
p2=pl*2 ； 

a,b,bk,f2,f3,f4,ff,fm,hl,hi2,k,l,rf2,-, 

x2,x4,xxx,y2,y4,yyy,pf,sp ； 

!cl(4),!c2[4],!c3[4],!c4{4J, 

!dtU4 し !dt4I4], !dtl0l4J, !dt 10014 し !dtl 00014 J, 
!x(91[41,!vx[91(4J,!xx[91[4],!xlt4],!x3l4),!dwx[4],!rxl9)t41, 
!y(91t4],!vyl91l41,!yy[9]l4J,!yll4],!y3(4],!dwyl4],!ry(91|4], 
!ww[91l4],! 81191 [41,!s2t9JI4], 

: dra[4J,!dm2[4J,!tl4J,!r[4],!ttl4],!rrl4],!dw[4],!zI4), 

! 門 9 し！ fl(9J ,!f5(9], !rf 【 9 し !vran»[80<44 ]； 


29 inain() 

30 begin 
@sin£ie ()； 
pf=0 ； hi=6; 
repeat 【 

width(80); initO; palet(l,2,3,4,7,6,7); 
for a=0 to 80*44 vi^Ia)=255 ； 
f2=I; 址 =1; 

み : vitf<t,80); 

®ovitf(cl,50); Scvitf(c2,10 )； 
@cvitf(c3,100); @cvitf(c 4,200 0); 
ecvitf(dtl,l); 

@cvitf{dt4,4 )； 
eovitf(dtl0,lO); 

®cvitf{dtl 00,10 0); 

@cvitf(dt 1000,1000); 
for a=0 to w f 【 a]=l; 


31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
が 

46 

47 

48 

49 

50 
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85 

86 
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95 

96 

97 

98 

99 
100 
101 
102 
1(33 

104 

105 

106 


ecvitf(x[01,235) 


@cvitf(y[01,85) 
ecvitf{y[ 11,85) 
か vitf(y 【 2 し 75) 
@cvUf(y 【 3],85) 
@cvitf(y(4],95) 
@cvitf(yl5J,80) 
ecvitf(y(6],90) 
@cvitf(y[7],80) 
@cvitf{y[81,90) 
@cvitf(y(9],85) 


@cvitf(x[ll,85 ) 
ecvitf(xl21,67 ) 

@cvitf(x[31,49 ) 
ecvitf(x(41,67 ) 
ecvitfU けし 76 ) 
ecvitfU •げし 76 ) 
ecvitf(xt7],58 ) 

®cvitf{x[81,58 ) 

@cvitf(x(9),67 ) 
for a=0 to w I 
@roove|rx[a),x[a}) : 
etnove(ry{al,y(ai )； 
rflalrfla ]； 

1 

rf2=I ； 

mask($aa5 己 I$aa55); 
mode(3,1); 
full(ll,0,626,6 )； 
full(626,6,639,163 )； 
full111, 163,626 ,169 )； 
fuJl(0,10,11,163 )； 
circle(ll,6,12 )； 
circle(626,6,12 )： 
circle!11, 163, 12 )； 
circle(626,163,12); 
mode(3,2 )； 

fulK 418,191 ,630,199 )； 
fuild 1,6,626,163 )； 
fulK 80,198 ,120,199 )； 
fulI(180,179,220,199); 
mask けぴび， $ び ff>; 
tnode(0,2 )； 
box(18,9,619.160 )； 
box(17,9,620,160 )； 
for k=0 to 2 I 
mode(3,k); 
for a=0 to 6 I 

fuil{a*75+95,3,a»75+a6,3 )： 
ful1(a»75+95,lB6,a*75+9B.166 )； 
I 
I 

for a=0 to 21 

fuU(6,a*3*7+48,7,a* ： n+48); 

full{633,a*37+48,634,a*37+48 )； 

I 

1 

mask(0,0 )； 
for k=l to 2 I 
inode(3,k) : 
circle{22,12,18 )； 
circle(614,12,18); 
circle(22,157,18 )； 
circle(614,157,18 )； 
circle 口 20,12 ,20); 
circle(320,157,20 >； 


mode(3,2); 

mask($aa55,$aa55} : 
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@add(yla],y[a],vyla])； 

@aub(dw,vxlal,sl【a|); 

®div(djn,dw,c2) : SadcUsl la] ,sUa し dm》； 

@div(dm,dw,c3)； @sub(vxla],vx[a],dm)； 

@div{din,vx[aj ,t); 

@sub{ vx[aj, vxta] ,din); • 

®sub(dw,vy(a],s2[a]); 

@div{dm,dw,c2) ； @add(s2[a] ,s2【a] ,din); 

®div(din,dw,c3) ； @sub(vyta] ,vy[a] ,din)； 

@div(dm,vy[aj,t)； 

@sub(vy[a],vy(al,dm) : 

b=ball_check(@cvfti(xIa]) ,@cvfti(y(aj) •&); 
if ( b!=255 and f[b)>0 )( 

@aub(xl,vx(a],vxlbj); 

@sub(yl,xla],x[bl)； 

(9niul(din,xl,yl)； 

@sub(xl,vy(a],vy[b])； 

«8ub(yl,y(a|,y[bl)； 

@mul(din2,xl,yl)； 

@add(dm,dm,dm2); 

0cvitf(dm2,0); 

if ( @cinp(dm,dm2)! = l or f5lb]==0 )( 

@sub{xl,x(aj,xlb]) : 

®aub(yl,y[al,y(bj); 

み nul(dm,xl,xl);@mul(din2,yl,yl);@add(r,dm,din2); 
if ( f(aj==l or f(b)==l)( 

@mul(dm,vx【aj,vxta])； @mul(dm2,vy[al,vylaj); 
@add(dm,dm,din2); @sqr(z,dm); 

@sub(xl,xlaj,xfb))； 

@sub(yl,yfaj,ylb]); 

@mul(dm,yl,vx(a])； 

@mul(dm2,xl,vylaj); 

@sub(dm,clm,dm2) : @div(rr,dm,z); 

始 bs (出 n2,rr); 
if @cmp(dm2,dtl0)!=1[ 

®nui(dm2,rr,rr) ； @sub(din2,dtl00,din2); 
@sqr(dm2,dn)2); @neg(tt,din2)； 

@mul(clm, tt,vx[a]); ®muUclm2,rr,vy(a])； 
@sub(dm,din,dn>2)； み iiv(dm,dra,z); 

@add(x[a],x|b)’dm); 

@mul(din,rr,vx(aj) ； @tnul{din2, tt.vyla])； 
@add(clm,din,dm2) ； @div(dm,dm,z)； 
@add{y[a],y[b],dm)； 

@cvitf(r, 100) ； 
bali_coliide()； 


else [ 

if @cmp(r,dtlO0)!=1( 
baJl_collide()； 

] — 

1 


ff=0 ； 

xxx=ecvfti(xla]); yyy=@cvfti(y[aJ); 
if XXX.<.15 [ 

お ub{dw,vy【a し ww【al);emui(dw,dw,vx[aJ)； @div{dw,dw,cl)； 
®sub(vjwia) ,wwia] ,dw); @add(vy(a) ,vy[ai ,dw); 
@cvitf(dra,30) *, @sub(x[a] ,dm,xia J); @ne が vxf a], vxla]); 
ff=l； 

1 

if の oc.>.304 [ 

@add(dw,vy[aj,ww(a ))； @mul(dw,dw,vx(a ])； @div(dw,dw,cl )； 
©sublwwia),ww[a],dw) : @sub(vyia],vytai,dw); 

@cvitf {din,608) : @sub(x(a] ,dni,xlai); @neg(vx(a] ,vxla)); 
ff=l ； 

1 

if yyy.C.lS I 

@add(dw,vxlaj ,ww|a)); @mui(dw,dw,vyfal) ； @div(dw,dw,cl )； 
@sub(ww[aliwwla],dw); @add(vxla],vxiaj,dw); 

Ocvitf (dni,30) ； ®sub(yta] ,dm,yla]); »neg(vyia し vy|a い； 
ff=l; 

1 

if yyy.>.154 I 

@sub(dw,vx[a],ww(a]); emul(dw,dw,vy[aj )； @div(dw,dw,cl) : 
舶 ub(ww[a 】 ,ww[a],dw); @sub(vxia],vx[ai,dw); 
@cvitf(dni,308) ； @sub(y[al ,dm,yla]); ®neg{vyla] ,vy[aj); 
ff=l ； 

1 

if ff==l I 

if ( XXX.<.25 and yyy. <.25 ) び =2; 

if ( XXX.>.295 and yyy. <.25 ) ff=2 ； 

if ( XXX.>.295 and yyy. >.145 ) ff=2 ； 

if ( XXX. <.25 and yyy.>.145 ) び =2; 

if ( XXX .>.150 and xxx.<.170 and yyy. <.50 ) ff=2; 

if ( XXX .>.150 and xxx.<.170 and yyy. >.120 ) ff=2 ； 

if ff==2 【 

locate(0,23); print(a," in !"); 

f(a]=0 ； ball(@cvfti(xx(a]),@cvfti{yy(a]),255,1); 

fl[a]=l ； 

hall_number(); 


if flaj [ 

bail(ecvfti(xx(a]),@cvfti(yy(al),255,pf); 
ball(@cvfti(x[a]),@cvfti(y(aj),a,pf)； 

み nove(xx[a] ,x[a]); ©movelyyla] ,yia い； 


1=0； 

for a=0 to w [ 
if f(a)==2 [ 

@abs(dm,vxlaj)； 舱 bs(dm2,vyla]}; 
if ( ®cmp(dm,dtl )==-! jmd @cmp(din2,dt.l )==-! ) I 
@»bs (din, s 1 i a J) ； (Sabs (dm2,32[aJ)； 
if ( @cinp(dm,dt 1)==-! and @cmp(clm2,dtl )=z-l)| 
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if bk==2 bk=l; 
f2=rf2； 

bali_mjmber(); 


]until(k==* ■ or k==*M* or k==*m* )； 
repeat ; until inkey(0)==0; 
if k==， I fm=0; else fm=l; 
x2=7； y2=7; 
repeat 【 
mode(1,2}; 

1ine(76+x2*2+tm» 100 •182+y2,96+x2»2+fm*100,l82+y2)； 
iine(86+x2»2+fm*100,17*7+y2,86+x2*2+fm*100,187+y2); 
k=inkey(1); 

line(76+x2»2+fm*10O,182+y2,96+x2*2+fm*l00,1824y2)； 
line(86+x2*2+fm»lO0,177+y2,86+x2*2+fm*100,187+y2)； 


231 

case k [ 


232 

»4» 

: if x2.>.0 x2 — ; 

233 

•6' 

: if x2.<•14 x2 牛中； 

234 

巧* 

: if y2,>.fin<7 y2--； 

235 

ツ 

: if y2.<,14 y む +; 

236 

1が，，の， 

: fm=l； 

237 

1 


238 

]until k==* 1 

> • 

239 

x2=x2-7 ; y2=y2-7; 


@rad(x3,x3)； 
@mui(vy,y3,dm)； 


Scvitf (din,y2) ； @mui(sl ,vx,dm) ； &cvV 
@niul{din,dni,vy) ； @add(sl,sl,dm)； 挪 u. 
ecvitf (dm,y2) ； eniul(s2,vy,dm); お vi‘ 


while inkey(0)==''; 
if fm then sp=7; else sp=0； 
repeat [ 
mode(1,2)； 

box(95+x2*2+fm* 100 ,187+y2-sp+fm*7,105+x2*2+fm*10O,191+y2-sp+fm*7); 
k=inkey(1)； 

box(95+x2*2+fm*100,187+y2-sp+fm»7,l05+x2»2+fm«lO0,I91+y2-sp+fm*7)； 
case k [ 

'8' : if sp.<.7 sp++; 

*2* : if sp.>.0 sp--; 

] 

1 untii k==''： 
while inkey(0)==* '; 
ff=l； 
repeat 【 

locate(yyy,22)； print(" <> ")； 
for a=0 to p2 a=a； 
yyy=yyy+ff； 
if yyy>73 

J untii inkey(0>==, •; 

®cvitf(din,10)； 

©cvitf (x3,xxx)； み iiv(x3,x3,din); 

@sin(y3,x3); @cos(x3,x3); 

Qcvitf(dm,yyy); @mjl(vx,x3,dm); 
ficvitf(dm,4)； 

@div(vx,vx,djn) ； @div(vy,vy.dm) : 
if fm r 
8p=8-sp； 
x2=-x2； y2=-y2； 

vitf (din,x2)； 

Unul(s 1,s 1,dt4)； 

®cvitf(dm,x2); 

@tnul(dm,dm,vx) ； @sub(B2,s2,dm) ； Amjl(s2,B2,dt4); 

®div(vx,vx,dtl0) ； @div(vy,vy,cltl0); 

Scvitf(dm.sp)； 

@mul(vx,vx,dm); ®mui(vy,vy,dm); 

1 

else 【 
sp++； 

@mui(din,vx,vx) ； @rau い dm2,vy,vy); 

@add(dm,dm,din2) ； @sqr(dm,dm)； 
x2=-x2； 

Scvitf(ww,x2); @mul(ww,ww,dm); 

Scvitf(dm,4)； ®div(ww,ww,dm); 

Qcvitf (clm2,10)； 
y2=-y2; 

Ocvitf(clm,y2) ； @mul(sl,vx,din); @cvitf (dm,sp.*.x2)； 

@mul(din,dm,vy); @div(dm,dm,dm2); @add(sl,sl.dm)； 

@cvitf(dm,y2); ftnul(s2,vy,dra>; @cvitf(clm,sp.< .x2)； 

@niul(dm,din,vx)； み iiv(dm,dm,djn2); @sub(s2,s2,dm); 

1 

"01=2; 

for a=0 to w [ 
f5(a]=0： 

@m<we(rx[a] ,x【aj); 

@move(ryla】,y(al); 
rf[a]=flal； 

@nK)ve(xxia] ,xlal) : @move(yyla] ,yla]); 

J 

if bk==2 bk=0； 
rf2 ゴ 2; 

balU@cvfti(xx) ,ecvfti(yy) ,255,1)； 
lcx=ate(0,23) ； print(" "); 

locate(yyy,22)； print," ")； 

repeat [ 
k=inkey(0); 
ise k [ 


•1 

, 2 ' 

,3' 

$lb 


pf=5; 
pf=3; 
pf=l; 

[locate(0,0); stop(); 


if pf>2 [ 
pf=pf-3; 

for a=w downto 0 I 
if f[a]==2 ( 

ball(@cvfti(xxla]),@cvfti(yy(a)),255,1); 

1 

) 

] 

for a 三 w downto 0 [ 
if f[a]==2 [ 

@a 山 (x[aj,x(a].vxlal) : 


I z I I 

THE 資 NT 乏口 
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435 

f[al=l ； 

546 

end; 


436 

ecvitf(ww{al,0 )； ©cvitf(si(a],0 )； ®cvitf{32[aJ,M )； 

547 



437 

ecvitf(vxiaj,0) ； か vitf(vyja し 0); 

548 ball 2(x,y,c) 


438 

ball(0cvfti(x[al),ecvfti(y(al),a,l); 

549 

begin 


439 

] 

550 

x=x.*.2 ； 


440 

I 

551 

if c==255 ( 


441 

1 

552 

mode(3,0 )； mask(0,0 )； 


442 

if flal==2 1=1 ； 

553 

) 


443 

J 

554 

else [ 


144 

]until 1==0 ； 

555 

mode(2,0); mask け ff び , が fff >; 


445 


556 

J 


446 

for a=w downto 0 ( 

557 

full(x-2,y-l,x+2,y+l )； 


447 

if flaj>=l 1 

558 

end ； 


448 

ball(ecvfti(x(al),@cvfti(y(a)),a,1 )； 

559 



449 

1 

560 ball_check(x,y,c) 


450 

1 

561 

begin 


451 

ff=0 ； 

562 

var xx,yy,b,f,d; 


452 

if fll01==l 1 

563 

xx=x/4-2 ； yy=y/4-2; 


453 

locBte(0,23); print (" スクラ - パ ！！"）； beep ()； ff=l ； f3=f2; 

564 

b=yy*80+xx ； 


454 

J 

565 

f=255 ； 

for 知 =0 to 4 【 


455 

if f2!=f3 【 

566 


456 

locate(0,23 )； print (..77-* !!..); beepO ； ぴ =1; 

567 

for xx=0 to 4 1 


457 

1 

568 

d=vTamlbl ； 


458 

if ff==l[ 

569 

if ( d!=255 and d!=c and d<f ) f=d ； 


459 

xxx=85; 

570 

b ++； 


460 

for a=l to w ( 

571 

1 


461 

if fllal==l 1 

572 

わ b+75; 


462 

地 ile vraral1680+xxx/4)!=255 xxx=xxx-10 ； 

573 

1 


463 

ecvitf(x 【 a し XXX) ; Scvitf(y(a),85 )； 

574 

return!f )； 


464 

flaj=l ； flla]=0 ； xxx=xxx-10 ； 

575 

end ； 


465 

1 

576 



466 

] 

577 break{) 


467 

ball_number() ； 

578 

begin 
var a ； 


468 

scratch() ； 

579 


469 

J 

580 

amove(dm,vx )； 


470 

f2=9 ； 

581 

Sabs(dm,dm) : 


471 

for a=l to w ( 

582 

for a=0 to w [ 


472 

if 1 f{aj>=l and a<f2 ) f2=a; 

583 

®cvitf(vx[a] ,md(800)-400); 

@div(vx[aj,vx[a],dtl00O); 


473 

1 

584 


474 

if fll9J==l [ ff=2 ； beepO ； ] 

585 

SmuU vx 【 a] ,vx[a] ,din )； 
ecvitf (vy[a] ,md(800 )-400); 


475 

J until ff==2; 

586 


476 

1 until 0; 

587 

@div(vy[a],vy[al,dtl000); 


477 

end; 

588 

emul(vy[a),vyla] ，出 lO ; 


478 


589 

J 


479 ball_collide() 

590 

for a=0 to w ( 


480 

begin 

591 

fla]=2 ； ball(ecvfti(xx(aj),ecvfti{yy(al),255,1); 

481 

if { f3==0 and a==0 ) f3=b; 

592 

1 


482 

if bk!=l[ 

593 

end ； 


483 

®sub(xl,x[aj,x[b]); 

594 



484 

»aub(yl,yla],ylb ])： 

595 scratch() 


485 

®9ub(dm,vx(a) ,vx[bl);@sub(dm2,vy[a] ,vy 【 b 】）； 

596 

begin 


486 

^ul(dm,dm,xl) : (Sn)ul(clin2,dm2»yl) ； 

597 

mask($ffff,$ffff) ； 


487 

@add(dm,dm,dm2); @div(dm,din,r )； 

598 

ball(@cvfti{xx) ，か vfti(yy),255,1); 


488 

eniul(dm2,d!n,yl) : @mul(clm,din,xl) ； 

599 

for a=w downto1( 


489 

eadd{vx[b],vxtbj,dm )； @add(vy[bi,vy[bl,dm2); 

600 

if f[a]>=l( 


490 

d8ub(vx[a] ,vx(a] ,dm); esub(vylaj ,vylal ,din2); 

@arld(dwx,ww[a] ,ww[bj) ； @raul(dwx,dwx,dm2) ； @div(dwx,dwx,c4 )； 
aadd(dwy,ww[aj >ww(b]) : anul(dwx,dwx,dm) : ®div(dwy,cbvy,c4 )； 
dadd(vx[a]fVx[a]»dwx )； @add(ww[aj,ww(aj,dwx )； 

601 

ball(@cvfti(xxlal),@cvfti(yyla]),255,U ； 

491 

602 

J 


492 

603 

J 


493 

604 

for a=w downto1[ 


494 

@sub(vx[bj,vxlb],dwx); @sub(ww[b]•wwlb),dwx) : 

605 

if fta]>=l 1 


495 

@sub(vy[aj,vy 【 aj,dwy )； @add(wwlai,ww[aj,dwy); 

606 

ball(@cvfti{x[aj) ,@cvfti(y(al) •&, い； 


496 

舱 dd(vy【bl ,vy[b] ,ciwy); ®sub(ww[bl ,wwlbj ,clwy); 

607 

] 


497 

if f[bl==l ball(@ovfti(xx[b]),ecvfti(yy(b]),255,1); 

60B 

] 


498 

fla]=2; f[bj=2 ； f5[a]=l; f5lbj=l; 

609 

ball move(0); 


499 

J 

610 



500 

else ( 

break ()； bk=2; ’ 

611 

end ； 


501 

612 



502 

I 

613 

bai し number(J 


503 

end ； 

614 

begin 


504 


615 

var a,c; 


505 ball(x,y,c,f) 

616 

for a=l to w [ 


506 

begin 

617 

c 三 a; 


507 

var >Dc,yy,a ； 

618 

locate!50+a*3,24) ； 


508 

if { x.>=.15 and x •た .304 and y.>=.15 and y •た ，154 ) 1 

619 

if f[aj ( 


509 

if f!=2 

620 

print(a) : 


510 

if f then ball_l(x,y,c )； 

621 

) 


511 

else ball_2(x,y,c )； 

622 

else [ 


512 

else 

623 

c=255 ； print(" "); 


513 

if c!-255 bail_2(x,y,c); 

624 

) 


514 

xx=x/4; yy=y/4 ； 

625 

ball l(a<12+202,195,c )； 


515 

vram 【 yy*80+xx]=c ； 

626 

J 


516 

1 

627 

end; 


517 

end; 

628 



518 


629 

ball—move(c) 


519 bBLi_l(x,y,c) 

630 

begin 


520 

begin 

631 

var kk,xxx,yyy,k,a ； 


521 

xsx •拿 .2; 

632 

if c 1 


522 

mode(3,0) ； 

633 

repeat ( 


523 

case c 1 

634 

repeat [ 


524 

2,4,0，9 : mask($ffff )； 
others : mask(O,0) ； 

635 

k=inkey{l )； 


525 

636 

k=k-■01; 
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] 

637 

] until k<10; 


527 

circle(x,y,9) ; 

638 

】 until flk]; 


528 

mode(3, I); 

639 

kk=k; 


529 

case c [ 

640 

1 


530 

1,3,4.5,9,0 : mask け ffff • が fff); 

7 : mask ( $aa55«$aa55 )； 

641 

else ( 


531 

642 

kk=0 ； 


532 

others : inask(0>0) ； 

643 

k=f2; 


533 

] 

644 

1 


534 

circle(x,y,9); 

645 

mask け 


535 

mode(3,2) : 

646 

ball(ecvfti(xlkkl),@cvfti(ytkk)),255,1); 
xxx=®cvfti(x(k ])； yyy=«cvfti(y[kl )； 


536 

case c [ 

647 


537 

し 6,9,0 : mask け ffff • が fff); 

648 

repeat ( 


538 

5,255 : mask($aa55,$aa55); 

649 

mode(1,0); 


539 

others : roask(0,O) : 

650 

line(xxx*2-10,yyy,xxx*2H0,yyy); 


540 

1 

651 

1ine(xxx>2 1 yyy-5• XXX 拿 2•yyy+5); 


541 

circle(x,y,9); 

652 

for a=0 to pi a=a; 


542 

if c==9 ( 

653 

line(xxx*2-10,yyy,xxx»2^-10,yyy); 


543 

mask(0,O) ； mcxleO.O )； 

654 

1 ine (xxx>2 • yyy-5, xxx>2, yyy 牛 5); 


544 

full (X- 9,y-2,x+9,y+l )； 

655 

k=inkey{0); 


545 

1 

656 

case k 1 


150 
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657 

*4* : if XXX.>. 15 XXX — ； 

673 

mode(1,0); 

®add(din|Xl rdwx); 

658 

*6* : If XXX. <.304 XXX ++； 

•8* : if yyy.>.15 yyy --； 

ツ ： if yyy.<.154 yyy ++； 

674 

659 

675 

@add(din2,yl ,dwy); 

line(x,y,ecvfti(din) .2,@cvfti(dm2)) 

660 

676 

661 

J 

677 

お ub(dro,dwx,xl): 

662 

1 until k ==， •； 

678 

@sub{dm2,dwy,yl); 

663 

0cvitf(xIkk],xxx); «cvitf(ylkkj,yyy )； 
ball(®cvfti(x[kkl),«cvfti(y[kk]),kk,1 )； 

679 

iine(X• y• ®cvfti (dm) • t • 2 • お vfti <dm2)) 

664 

680 

@sub(dm,dwx,yl )； 

665 

repeat ； until inkey(0)==0 ； 

681 

@add(clm2,dwy,xl )； 

666 

end; 

682 

line(x,y,@cvfti(dm) .♦.2,(8cvfti(dm2)) 

667 


683 

@add(din,dwx,yl )； 

668 help print{) 

684 

®sub(cim2,dwy,xl )； 

669 

var x,y; 

685 

line(x,y,®cvfti(dm) .*.2 • か vfti(dm2)) 
mode(3,0): 

670 

begin 

686 

671 

x=ecvfti(dwx).».2 ； 

687 

circle(x,y,9); 

672 

y=®cvfti(dwy); 

688 

end; 
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お削がが PC- 286巧応 S-0S" SWORD" 

■90 年7巧ち- 

巧96部リロケータカレアセンブラ WZD 
■90 年8巧号 
第97部リンカ WLK 


マルチウィンドウドライバ MW -1 


* が上のアフリケーシヨンは.基本システ厶である 
S-OS " MACE " または S - OS " SWORD " がないとかか 
しませんのでごを« ください， 


.■ 麵麵 = .■ 

THE 資 iEL 


►いつらパソコン雑化の中では"これしかない！"と化っています。柿む巧一 (23) 千染が 
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7 シン語カクテル in Z 抓 ’S Bar 
射徊ハッシュでチェツク - 



シナ リオ &イラスト :山田純二 

特別監修： 金子俊一这浦川博之 
コンサルタント :や野修一 


ソフト/\ンクのな屋移範じ伴いかどラかは知りませんガ， Z 80 ’s 
巨 ar を新装開店だそラです。とはいえ，別に内容に変わりがある 
むけでをな<，いつをどおりに話は進むのでした。ちなみに今月は 
/ \ツシュ まとかいラをのを使ったデータの検索のお勉強です。 


9亲牒開腺胎多数 

;>カラン，コロ〜ン（ドアの關く音） 

源光（以下光）：こんにちは〜。 

マスター （じ I 下 M ) :やあ，こんにちは 
(ガサゴソ）。 

ようこ a : r ド Yo ) :あらどうしたの，光君。 
こんな昼間から。 

光： Z 80 ’s Bar が新装開店したというから 
ごす美が申し上げようと思いまして。だけど， 
すごい騒ぎだなあ。 

Yo :だってまだ片がけも終わってないし， 
ひまなんだったら光君も手なってよ。 

純二 aU 下純）： 24051 ( プチ）24052(プチ） 


光：わあ。なんだ純二君。をんなところに 
いたのか。 何をやっているんだ，君は。 

Yo :見てのとわり，エアーキャップ（通 
称プチプチ）を潰してるのよ。 

光：こんなにひまな奴がいるんだったら， 
手なわせればいいのに。 

Yo : をれがね，プチプチを見つけてから 
ずう 一っし あれにかかりっきりで離れな 
いのよ。 

M :光:君，ちょっとこっもで探し物を手伝 
ってららえる力，い。 

光：はいはい，何を探してるんです力>。 

M :おが溜めているツケの明細書。 

光：あ，急用ができたので，いずれまた。 
Yo :うをだってば，光君。前に来たわ客 
さんのプログラムカす，どこかへ巧ってしま 
ったみたいなのよ。 

光：なんだ，びっくりさせないでください 
よ。た:*けど，プログラムぐらい，店のコン 
ピュータにで^ぶちこんで管理すればいい 
のに。 

M :をんなプログラムがあったら，とっく 
にをうしていますよ。 


光：をんないいかげんな経営でよく潰れな 
いなあ。ここは Z 80 ’s Bar でしよ。プログ 
ラムなんて適当にツケの溜まっている客に 
作らせちゃったらどうです。 

M :をうかをう力，。をうすると光君がプロ 
グラムを作ってくれるんだね。 

光：へ？ 

Yo :さっす力5'，光君。がんばってね。 

光：ちょっと待って。なんでそっちのほう 
に話が飛ぶんですか。 

M :やっぱり いいだしっぺが やる というの 
は民主主義の大原則 （？） であるから。 

光：をんなあ。 

Yo :あたしかららわ願いするから。はい， 
ホワイト チョコ レ ー トソ ー ダあける。 

光：しょうがないなあ，ようこさんの頼み 
とあっちゃあ。 

純： 24111，この-女ったらし（プチ）。 

光：やかましい！ 

ft 探し物見つけまず 

光：ところでマスター，どんなものがいい 
んですか？ 

M : とりあえず，データの検索ルーチンか 
なん力>。 

光：検索ねえ。ここのプログラムの盘から 
するしハッシュ法を使ったほうがよさを 
ぅだなぁ。 

Yo : ねえねえ，データのチェックって最 
初のほうから顺齋に調べていけばいいん 


じゃないの？ 

光：基本的にはね。100件く、'らいのデータ 
なら頭から「これじゃない，これでもない J 
とやっていけばいいけど，データの量が巧 
えると最後のほうにあるデータを検索した 
いときにすごくが間がかかっちゃう。をこ 
でハッシュ法を使うんだ。 

Yo :ふ〜ん。 

光：ハッシュ法ではデータがどこに格納さ 
れているかを示すハッシュテーブルを用意 
することじよって，検索の効率を上げるこ 
とができるんだよ。たとえば， Oh ! X の图 
次から Z 80 ’s Bar を探す L する。目次を順 
番に 「 Z 80’ s ， Z 80’ s ……」と探すのは記事 
が多い本になればなるほど大変でしよ？ 

Yo :うん。 

光：ハッシュ法ってのは，たとえば Z 80 ’s 
Bar に1番なら1番と番号を振って，探し 
たいときに作ってわいた表の1番のところ 
を見れば「何ぺージ（にあるよ）」書い 
てあるような方式だし野って。 

Yo : あ 一， なるほど。をのぺージー黨表 
みたいなのが' ハッシュテーブル なのね。で 
ら，をれはどうやって作るの？ 

光：まず，データを登録するときに ハッシ 
ュ 関数というものにデータを通して， ハッ 
シュ f 直を求める。かに， ハッシュ テーブル 
の中の ハッシュ 値の指定したところじ，デ 
ータがあるアドレスを登録してやるんだ 
(図1参照)。 

M : でも光君，もしも違うデータが同じハ 
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ッシュ値を示したらどうするんです。場所 
がダブッたらまずいでしょ。 

光：をういう場合にわける化理方法の違い 

じよって才 ー プン ハッシュ， チェ ーンハッ 
シュという 2つの方法に分けられます。 

Yo :それって，どこがどう違うの。 

光：オープンハッシュのほうは強制的に次 
の テーブル アドレスををの デー タの ハッシ 
ュ値してしまうんだ。 

M : つまり，あるデー タ 0 ハッシュ 値は00 
OOh なんだけど，をこにはすでにアドレス 
が登録済みだった場合には，次の 0002 H を 
データのハッシュ 値としてしまうんですね。 
光：をのとわり。 0002 H がだめだったら， 
をの次の0004 H といった具合に，空きが見 
つかるまで探していくんですよ。 

Yo :じゃあ，チェーンハッシュのほうは？ 
光： チェーン ハッ シュのほうはすでに登録 
されたデータの後ろにどんどん繫げていく 
んだ。登録するデータにはデータ同±の繫 
がりを示す2バイトのポインタを付加して 
ゃる必要があるけどね。 

Yo :どういうこと？ 

光：具体的にいうしまずハッシュ値 （00 
OOh ) にデ—夕1のアドレス （ IOOOh ) が登 
録されているとする。をこに，ノ、ッシュ値が 
同じであるデータ2が出,てきたときには， 

し000 Oh のアドレスを見にいく。 

2. すでに，100 Oh のアドレスがあるか 
らデータ1を見にいく。 

3. 次に続いているデータはないのでポ 
インタにデータ2のアドレスをセットして 
登録が終了する。 

という具合に化理をしていくんです（図2 
参照)。 

Yo :ということは，さらに同じハッシュ 
値のデータ3が化てきたときには，データ 
2のポインタにデータ3のアドレスをセッ 
卜してやればいいのね。 

光：をういうこと。 

納： 25891(プチ）。データがデータにどん 
どんぶら下がっていくわけだね。 

>見つかるかな？ 

光：さて，今度はデータ検索について説明 
していきましょう。といっても，データの 
登録の様子を説明してきたが点である程度 
は想像がついただろうけど。まずは，オー 
プン ハッシュ。 手顺 I ：しては， 

1 . ハッシュ値を求める。 

2. ハッシュ テーブルに格納されている 
アドレスを取り化す。 

3. もしらアドレスが登録されていなけ 


れば，探をうとしているデータは存かしな 
いから エラー を表示してメイ ンル—チンに 
戻る。 

4. 取り出したアドレスのデータと検索 
したいデータを比べていく。 

5. あっていたらデータを取りか,して， 
メインルーチンに戻る。 

6. 違っていたらハッシュ値をひとつず 
らして2から繰り返す。 

というふうにしていく。 

Yo : チェーンハッシュの場合は？ 

光：これだいたい似たような感じで， 

1〜 5. オ_プンハッシュと同じ化理。 

6. 違っていたらポインタのアドレスを 
取り化す。 

7. 次のデータが存在しなかったら探を 
うとしているデータは存在しないので，ェ 
ラーを表示してメインルーチンに戻る。 

8. 次のデータのアドレスを七ットして， 
4から繰り返す。 

というふうにするんだ。 

Yo :どっ■^^のほうが効率がいいのかな。 

光：ようこちゃんは，どっちだし野う。 

Yo : やっぱり，化理の少ないオープン 
ハッシュの ほうだし野う。 

光：マスターは？ 

M :私も，ようこさんと同じ……に，しよ 
うかと思ったけれど，芸がないのでチェー 
ンハッシュに しましよう。 

純： 30302 (プチ），僕はようこさん U 司じ 


コロコロコロ〜(電話が鳴る音） 

规：はい，山田です。 

光：あっ，山田君？ 光だけど，今月ひまして 
る？ 

紳：一応，ひまですけど。 

光：それじゃあ，今月のプログラム，君が作っ 
てくれない？ いま i ま験中で化しくって。 

视：へっ？ 

光：じゃあ，よろしくね（ガチヤン）。 

綿：お一い，ひかるくんや~い。 

巧お：ッーッー……。 

というわけで，身腺手な光君に代わって， 
作ったプログラムの解説をしていきます。 

- HASHSEARCH 

入力 DE レジスタ……ラべルネームを格納 

してあるアドレス 
出力 HL レジスタ……データ 

ハッシュテーブルから デ ー タを取り出すサブ 
ルーチンです。 

- HASHSET 

入力 DE レジスタ . ラべルネームを格納 

してあるアドレス 

( INPDAT ). データ 

出力 なし 


だよ。 

光：誰も貴様には聞いてわらん。をれにマ 
スター，クイズじゃないんですから，わざ 
わざ違う答えにすることはないでしよう。 

M : いい じ ゃない の。 

Yo :で，光君。正解はどっちなの。 

光：僕はチェーンハッシュのほうだと思っ 
ているんだ。 

M :我々が納得できる理曲を述べよ。 

光：をれはですね C 才ープンハッシュの場 
合 ハッシュ テーブルが いっぱい になってく 
る につれ て 登録，をして検索に時問がかか 
ってしまうからですよ。極端にいうし10 
24個のテーブルが用意され ている けど，坂 
後の1個しかテーブルの空きがなくて，姑 
後に登錄しよう！：したデータのハッシュ値 
が空きの1つ後ろだった場なををえてみて 
ごらん。 

Yo :1つ前に戻れば問題ないけど戻るこ 
とはできないから，結局10231ばけチェック 
していかなければならないんだ。 

光：をのとわり。チェーンハッシュなら， 
いくらなんでら1000個ものデータが連なっ 
ていることはまずないといっていいからね< 
をれに登録できるデータの数らオープンハ 
ッシュではハッシュテーブルの大きさに限 
定されてしまうけど，チェーンハッシュで 
はをういうことがない。納僻しました？ 
Yo&M :納得しました。 

純： 30374 (プチ），うんうん。 


ハッシュ テーブルじラペルを登録するサブ 
ルーチン。まず ハッシュ 値をボめてから，すで 
じ登録してあるか判定して，登録してあったら 
CHAIN じ飛んでいます。 CHAIN ではラベルの二 
重定義チェックをしているところにま目。定義 
できるラベルは英数字のみです。 

- HASH 

入力 DE レジスタ……ラべルネームの格納 

アドレス 

出力 HL レジスタ . ハッシュイ直 

ラペルの ハッ シュ値を計算するサブルーチン。 
このルーチンは REDA のものをそのまま流用し 
てます。計算方法は文字ごとに値を 5 倍して 
キャラクタコードを加えて.さらに2倍してい 
く。これを文字列ががわるまで縛り返していま 
す。 

- SEARCH 

入力 HL レジスタ . ハッシュテーブル上 

のラベル データ 格納ァドレス 
出力 Cy=l ……一致していない 

Cy =0 . .致している 

ハッシュテーブル じあるラべ ルネー ムと.登 
録しようとしているラべ ルネー ムが一致してい 
るか調べます。 


プログラムの解説 
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O どこに使うんだ 

Yo :ところで，ハッシュ法の原理はわか 
ったけど，実際どんなところでこのハッシ 
ュ法が使われているの。 

光：身近なところで，ア七ンブラやコンパ 
イラのラベルチェックなんかに使われてい 
るよ D 

Yo :どんなふうに？ 

光：ア七ンブラの民 EDA では，1パス固に 
文法 チェ ックとラベルテーブルの作成をや 
っているんだ。をのラベルテーブルの作成 
にオープン ハッシュ 法が使われていて，2 
パス目にラベルが'使われている命令のとき 
に，この ハッシュ テーブルを参照してアド 
レスを七ットしていきながら，オブジェク 
卜を作成していくんだ。をこで，アセンブ 
ラ （ REDA ) では2パスあるけど，コンパ 
イラには1パスでオブジェクトを作成して 
しまうものがある （ SLANG など）。これは 
どうやっているのかわかるかな？ 

Yo & M : は一い 光君，わかり ませ一 ん。 

光：はいはい，単純明快な答えをどうもあ 
りがとう。んで，この場合はセットするア 
ドレスをチェーンさせることによってラべ 
ルに対応するアドレスを七ットしていくん 
ですよ。これも具体的に説明していきまし 
よう。登録するラベルデータは図3のよう 
。構成を t っているとしよう。た^えば， 


#HAJIME 

LD A , 10 

DEC A 

JP NZ,#HAJIME 
というプログラムではラベルけ HAJIME ) 
があら.かじめ登録されているので， JP 命 
令がきたときにはハッシュテーブルを参照 
すれば素直に# HAJIME のアドレスが取 
り出せるのですが，次のようなプログラム 
のときにはちよつと閒つたことになるんだ。 

CD DO IF #HAJIME CALL #GETKEY 
FE 05 CP "5" 

CA *1 *1 JP Z，#JMP 

05 DEC 巨 

CA *2 *2 JP ZJJMP 

JR #HAJIME 

#JMP 

# GETKEY はあらかじめ登録されてい 
るとして，問題はラベル （# JMP ) を登録す 
る前に JP 命令で# JMP が使われているこ 
し ラベルが現れた，というこで コンパ 
イ ラは ハッシュテーブルに ラベル （# JMP ) 
を探しに斤くわけです力 S '， 当がのこ^なが 
らラベルは見つからない。をこで，とりあ 
えず# JMP は未定義のフラグを立てて，ラ 
ベルアドレスを 七ッ トするところには * 1 
のアドレスをセットして登録しまず。この 
とき，* 1 のアドレスにはとりあえず 000 Oh 
をセットしてゎく。 

次に5行-目にも# JMP が使われているけ 
ど，このときには一応テーブルにな在して 
いる力;，まだアドレスは確定していない。 
このときには*1のアドレスに *2 のアドレ 
スを七ット， *2 のアドレスには000 Oh をセ 
ットしてゎく。をして， 7斤目にしてやつ 
I :こさ# JMP がでてくるので，コンパイラ 
はハ ッシュ テー ブルに ラ ベルを 定義し にい 
くんだな。をいでコンパイラはここで # J 
MP は未定義だ，ということを発見して*1， 
*2 と# JMP のアドレスをセットしてまわ 
り，未定義のフラグを消してアドレスもセ 
ットして，めでたしめでたし，となるん/ご。 
Yo&M :パチパチ〜。 

光：はあはあ。一気に説明したら息力 H 刃れ 


図 3 

次のラベルデータのポイント 
UP CiJ ラベルネー■ム _] 

I アドレスデータ 

、定義状態のフラグ 

ちゃったけど，わかってくれました？ 

Yo&M : ニコニコニコ . 〇 

光：だめだこりゃ。 

〇さあって来月は？ 

M :光君，どうもごくろうさま。あとはプ 
ログラムの作成だけだね。 

光：はいはい，まかしてわいてくださいよ, 
カラン，コロ〜ン（ドアの綱く音） 

老&善&で：こんにちは〜。 

Yo : あら，みんなわをろいでどうしちゃ 
ったの。 

で：ひまだったもので。 

き：をういうこ t 。 あっ山田君，面白いこ 
とやってるね，僕にもやらせてよ。 

純： 40001(プチ），いいよ。 

純&善： 40002 (プチ），40003 (プチ）… 

• • • 〇 

老：やれやれ，まだまだ子供じゃのう。ん， 
光君はずいぶんと疲れているようじゃの。 
光：はい。 

M :きようはずいぶんとこき使ってしまい 
ましたからね。 

Yo :光君，さっきあげたホワイトチョコレ 
ートソーダまだ飲んでないじゃない。 

光：をういえばをうだね。をれじゃあみん 
なら一緒に乾がしましよう。 

M :をうですね。今日は私のわごりで。 

で：さっすがマスター。ほら，山田君も西 
川君もこっちにきなよ。 

純&善：は〜い。 

M : をれじゃあ，引っ越しの片付けはみん 
なでやるとして，とりあえずかんぱ〜い。 

— 同：かんぱ〜 い。 ごくごく . うっ。 

純：鼻から血がでて，はなぢぶ〜。 
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P 

9 

cPOKE 

EQU S1F9A 

A0OB 

CD 

94 

IF 

25 

CALL 

け EEK 

1F97 

P 

10 

it POKE® EQl' $1F97 

AO0E 

47 



26 

し D 

B.A 

0000 


11 



A0OF 

B1 



27 

OR 

C 

0000 


12 



A010 

CA 

13 

A1 

28 

JP 

Z,ERROR1 

AO0O 


13 


ORG SAOOO 

A013 




29 

SEA2 


A0O0 


14 



A013 

60 



30 

LD 

し D 

H,B 
レ C 

AO00 


15 

；HASH 

TABLE KARA DATA WO GET 

A014 

69 



31 

A000 


16 

； in 

DE=LA 白 E し NAME ADRESS 

A015 

CD 

F8 

A0 

32 

CALL 

SEARCH 


; UNDEFINED ERROR 


1む4 Oh ! X 1990.9. 










A018 

30 

13 



33 

JR 

NC,FIND 



A01A 

CD 

94 

IF 


34 

CALL 

#PEEK 



A01D 

B7 




35 

OR 

JP 

A 



A01E 

CA 

13 

A1 


36 

ZiERRORl 



A021 

23 




37 

INC 

HL 



A022 

CD 

94 

IF 


38 

CALL 

げ E 巨 K 



A025 

4F 




39 

LD 

C,A 

HL 



A026 

23 




40 

INC 



A027 

CD 

94 

IF 


41 

CALL 

♦ PEEK 



A02A 

47 




42 

LD 

JR 

B, A 



A02B 

18 

巨 6 



43 

SEA2 



A02D 





44 

FIND 




A02D 

23 




45 

INC 

HL 



A02E 

23 




46 

INC 

HL 



A02F 

23 




47 

INC 

HL 



A030 

CD 

94 

IF 


48 

CALL 

#PEEK 



A033 

5F 




49 

し D 

E|A 

HL 



A034 

23 




50 

INC 



A035 

CD 

94 

IF 


51 

CALL 

お PEEK 



A038 

A039 

67 

6B 




52 

53 

し D 

LD 

H,A 
し E 



A03A 

C9 




54 

RET 




A03B 





55 





A03B 





56 

;HASU SIZE 




A03B 





57 





A03B 





58 

HASHCUT 




A03B 

7C 




59 

LD 

A,H : HASH 

SIZE $07FF 

A03C 

E6 

07 



60 

AND 

$07 



A03E 

67 




61 

LD 

H,A 



A03F 

C9 




62 

RET 




A040 





63 





A040 





64 

: HASH TABLE NI TOUROKU 



A040 





65 

;in DE= し ABE し NAME ADRESS 



A040 





66 





A040 





67 

HASHSET 




A040 

CD 

BF 

A0 


68 

CAL し 

HASH 



A043 

08 




69 

EX 

AF.AF* 



A044 

3C 




70 

INC 

A 



A045 

08 




71 

EX 

AF,AF* 



A046 

CD 

3B 

A0 


72 

CALL 

HASHCUT 



A049 

CD 

94 

IF 


73 

CALL 

#P 巨 EK 



A04C 

4F 




74 

LD 

C,A 

H し 



A04D 

23 




75 

INC 



A04E 

CD 

94 

IF 


76 

CAL し 

げ EEK 



A051 

47 




77 

LD 

目 ， A 



A052 

B1 




78 

OR 

C 



A053 

20 

3B 



79 

JR 

NZ,CHAIN : SUDENI TOUROKUZUMl 

A055 





80 





A055 

2B 




81 

DEC 

HL 



A056 

ED 

5B 

49 

A1 

82 

LD 

し D 

DE,(MSTRP) 



A05A 

7B 




83 

A，E 



A05B 

CD 

9A 

IF 


84 

CA しし 

#POKE 



A05E 

23 




85 

INC 

HL 



A05F 

7A 




86 

LD 

A.D 



A060 

CD 

9A 

IF 


87 

CALL 

巧 POKE 



A063 





88 

HSS3 




A063 

97 




89 

SUB 

A 



4064 

32 

4B 

A1 


90 

LD 

(STRDATA),A 



A067 

21 

00 

00 


91 

LD 

HL, 0000 



A06A 

22 

4C 

A1 


92 

LD 

(STRDATA-1),H し 



A06D 

2A 

47 

A1 


93 

LD 

HL,(INPDAT) 



A070 

22 

4E 

A1 


94 

LD 

(STRDATA+3),H し 



A073 





95 





A073 

01 

05 

00 


96 

し D 

BC, 0005 : DATA 

srzE 


A076 

08 




97 

EX 

AF,AF> 



A077 

81 




98 

ADD 

A,C 



A078 

4F 




99 

LD 

JR 

C.A 



A079 

30 

01 



loe 

NC,HSS2 



A07B 

04 




101 

INC 

B 



A07C 





102 

HSS2 




A07C 

21 

4B 

A1 


103 

し D 

H し ， STRDATA 



A07F 

ED 

5B 

49 

A1 

104 

LD 

DE,(MSTRP) 



A083 

C5 




105 

PUSH 

BC 



A084 

D5 




106 

PUSH 

DE 



A085 

CD 

97 

IF 


107 

CAIAj 

#P()KE@ 



A088 

El 




108 

POP 

HL 



A089 

Cl 




109 

POP 

BC 



A08A 

09 




110 

ADD 

H し，扫 C 



A08B 

22 

49 

A1 


111 

LD 

(MSTRP ) し 



A08E 

B7 




112 

OR 

A 



A08F 

C9 




113 

RET 




A090 





114 





A090 





115 

CHAIN 




A090 

60 




116 

LD 

H,B 



A091 

69 




117 

LD 

L,r 



A092 

CD 

F8 

AO 


118 

CALL 

SEARCH 



A095 

D2 

18 

A1 


119 

JP 

NC,TWOERR : TWO 

STRINGS 

ERROR 

A098 

CD 

94 

IF 


120 

CAL し 

げ E 巨 K 



A09B 

B7 




121 

OR 

JR 

A 



A09C 

28 

0C 



122 

Z,CHAIN2 



A09E 

23 




123 

INC 

HL 



A09F 

CD 

94 

IF 


124 

CALL 

*PEEK 



A0A2 

23 




125 

INC 

H し 



A0A3 

4F 




126 

し D 

C, A 



A0A4 

CD 

94 

IF 


127 

CALL 

が EEK 



A0A7 

47 




128 

し D 

B,A 



A0A8 

18 

E6 



129 

JR 

CHAIN 



A0AA 





130 

CHAIN2 




A0AA 

2F 




131 

CP し 




A0AB 

CD 

9A 

IF 


132 

CALL 

夕 POKE 



A0AE 

23 




133 

INC 

HL 



A0AF 

ED 

5B 

49 

A1 

134 

し D 

DE,(MSTRP) 



A0B3 

7B 




135 

し D 

A,E ；NEXT 

POINTER 

SET 

A0B4 

CD 

9A 

IF 


136 

CALL 

を POKE 



A0B7 

23 




137 

INC 

HL 

A,D 



A0B8 

7A 




138 

し D 



A0B9 

CD 

9A 

IF 


139 

CALL 

巧 POKE 



A0BC 

C3 

63 

AO 


140 

JP 

HSS3 



A0BF 





141 





A0BF 





142 

: CA し UCU し ATE 

HASH 




A0BF 143 ; in DE=STRIKG ADRESS 


A0BF 




144 

； out 

HL=HASH,A=LENGTH 

A0BF 




145 




A0BF 




146 

HASH 



A0BF 

21 

00 

00 

147 


LD 

HL, 0000 

A0C2 

D9 



148 


巨 XX 


A0C3 

21 

50 

A1 

149 


LD 

HL,STRING 

A0C6 

D9 



150 


EXX 


A0C7 




151 




A0C7 

08 



152 


EX 

AF,AF> 

A0C8 

97 



153 


SUB 

A 

A0C9 




154 

HASH2 



A0C9 

08 



155 


EX 

AF,AF> 

A0CA 

CD 

E9 

A0 

156 


CALL 

し ETCHECK 

A0CD 

38 

1.1 


157 


JR 

C.HASHRET 

AOCF 




158 




A0CF 

D9 



159 


EXX 


A 白 DO 

77 



160 


し D 

けし ）， A 

A0D1 

23 



161 


INC 

HL 

A0D2 

D9 



162 


EXX 


A0D3 




163 




A0D3 

4D 



164 


LD 

LD 

C，L 

A0D4 

44 



165 


B,H 

A0D5 

29 



166 


ADD 

H し， H し 

A0D6 

29 



167 


ADD 

H し , H し 

A0D7 

09 



168 


ADD 

H し ， BC 

A0D8 

4F 



169 


LD 

LD 

C,A 

A0D9 

06 

00 


170 


B,00 

A0DB 

09 



171 


ADD 

HL,BC 

A0DC 

29 



172 


ADD 

H し， H し 

A0DD 

13 



173 


INC 

DE 

A0DE 

08 



174 


EX 

AF,AF> 

A0DF 

3C 



175 


INC 

A 

A0E0 

20 

E7 


176 


JR 

NZ,HASH2 

A0E2 

C9 



177 


RET 


A0E3 




178 

HASH 氏巨 T 



A0E3 

D9 



179 


EXX 


A0E4 

3E 

0D 


180 


し D 

LD 

A,SOD 

A0E6 

77 



181 


(HL)•A 

A0E7 

D9 



182 


EXX 


A0E8 

C9 



183 


RET 


A0E9 




184 




A0E9 




185 

し ETCHECK 


A0E9 

lA 



186 


LD 

CP 

A•< DE ) 

A0EA 

FE 

30 


187 


••0" 

A0EC 

D8 



188 


RET 

C 

A0ED 

FE 

3A 


189 


CP 


A0 巨 F 

3F 



190 


CCF 


A0F0 

D0 



191 


RET 

NIC 

AOFl 

FE 

41 


192 


CP 

"A" 

A0F3 

D8 



193 


RET 

C 

A0F4 

FE 

5B 


194 


CP 

ぃ Z"+l 

A0F6 

3F 



195 


CCF 


A0F7 

C9 



196 


RET 


A0F8 




197 




A0F8 




198 

: STRING 

SEARCH 

A0F8 




199 

； in 

HL=DATA TOP 

A0F8 




200 




A0F8 




201 

SEARCH 



A0F8 

E5 



202 


PUSH 

HL 

A0F9 

01 

05 

00 

203 


し D 

BC,0005 

A0FC 

09 



204 


ADD 

HL,BC 

A0FD 

11 

50 

A1 

205 


LD 

DE,STRING 

A100 




206 

SCH2 



A100 

CD 

94 

IF 

207 


CALL 

お PEEK 

A103 

47 



208 


LD 

B,A 

A104 

lA 



209 


LD 

A,(DE) 

A105 

B8 



210 


CP 

B 

A106 

20 

08 


211 


JR 

NZ,NO ： 

A108 

FE 

OD 


212 


CP 

SOD 

A10A 

28 

05 


213 


JR 

Z,OK 

A10C 




214 




A10C 

23 



215 


IKC 

H し 

DE 

A10D 

13 



216 


INC 

A10E 

18 

F0 


217 


JR 

SCH2 

A110 




218 

NO! 



A110 

37 



219 


SCF 


Alll 




220 

OK 



Alll 

El 



221 


POP 

HL 

A112 

C9 



222 


RET 


A113 




223 




A113 




224 

;ERROR 



A113 




225 




A113 




226 

ERROR1 



A113 

11 

34 

A1 

227 


LD 

JR 

DE,NOTERRM 

A116 

18 

03 


228 


E 反 2 

A118 




229 

TWO 臣民 R 



A118 

11 

20 

A1 

230 


し D 

D 巨 ， TWOERRN 

AllB 




231 

巨 R2 



AllB 

CD 

巨 5 

IF 

232 


CALL 

#MSX 

AllE 

37 



233 


SCF 


AllF 

C9 



234 


RET 


A120 




235 




A120 

54 

57 

4F 20 

236 

TWOE 氏 RM 

DM 

"TWO STRING 


A124 53 54 52 49 
A128 4E 47 20 45 
A12C 52 52 4F 52 
A130 2121 

A132 0D 00 237 DB $0D,00 

A134 55 4E 44 49 238 NOTERRM DM "UNDIFINED ERROR! : 

A138 46 49 4E 45 

A13C 44 20 45 52 

A140 52 4F 52 21 

A144 21 


A145 

0D 

00 

239 


DB 

$0D,OO 


A147 

00 

00 

240 

INPDAT 

DK 

0000 

；INPUT DATA 

A149 

00 

08 

241 

MSTRP 

DW 

$0800 

；STRING SET POINTER 

A14B 

00 


242 

STRDATA 

DB 

00 

；FLAG 

A14C 

00 

00 

243 


DW 

DW 

0000 

;NEXT POINTER 

A14E 

00 

00 

244 


0000 

；DATA 

A150 



245 

STRING 

DS 

80 

；STRING BAFA 

A1A0 



246 






マシン語カクテル in Z 80 's Bar 15 S 


- PC-E 如0テーブルトーク RPG サポートシステム巧) 


7スタ-戦闘支援ツ-ル CST 

ポケコンを使ってテーブルトーク RPG を楽しむための秘密 
Metsui Shin 兵器。いよいよ今回はそのプログラムを掲載し，その使われ方 
: p をダーム進行に即して実践的じご紹介しましょう。その名も 

マスター戦闢支援ツール CSTo どうですカツコイイでしょう。 


まず，プログラムリストを見てください。 
これが PC - E 500( PC -1480 U /1490 U ) 用， 
マスター戦闘支援ツール CST (Combat 
Support Tool ) です。 

前回，テーブルトーク民 PG には「マス 
ターが火変である」という欠点があると述 
ベました。 AD & D および D & D は，数ある 
テーブルトーク民 PG のなかでらかなり戦 
I 紳がスピーディなほうです力;'，をれでも結 
h % めんどいこ ともあります。 

むとえば， D & D にはトロールというや 
つがいます。これはも！：もとは化1かの妖精 
で，ムーミンのようないいやつもいるので 
す力;'， D & D のは指輪物語に化てくる悪い 
やつです。このモンスターは，リジェネレー 
卜（時間の経過とともにダメージが回復す 
る）し，また炎によるダメージはリジェネレ 
ートしないので別につけてわく必要があり， 
さらに両手と口で3閒か辦するなど，マス 
ターに負粗を強いるモンスターなのです。 

というわけで，戦脚の手顺のうち，自動 
化できるところは自動化してしまおう，ど 
うでらいい雑魚はコンピュータにやらせよ 
う，というのが戦闘支援ツール CST の考 
え方です。このプログラムは AD & D (2 nd 
edition ) 則なのですカミ， D & D への移植は 
俯単にできるのでご女’‘じ、を。 

I キャ5クタ ーの 属 I 性 

t りあえず， AD & D (わよび D & D ) をや 

ったこ t のない人のために，戦脚のルール 
を軽く説明してわきます。 

まず，すべてのキャラクターおよびモン 
スターには， AC (アーマークラス。小さい 
ほど敵の攻雌が当たりじくい）， HP (ヒッ 
トポイント。体力を表す。0になると死ぬ）， 
THAC 0( AC 0 の相手に20閒のサイコロの 
口でいくつに1上で当たる力、。小さいほど攻 
解がよく当たる ），# AT (な解圃数 )， dama 
ge (攻輿^が当たったときに敵に与えるダメ 
ージ，普通 「3 d 6 + 4」 などと書く。ちなみに 


これは，3イ閒の6而サイコロの合計+ 4 t 
いう意味）などの属性が設定されています。 
ほかに，魔法などの厲性もあります。 

また，これらの数俯は，キャラクターの 
レベルや モンスタ ーの H D (ヒット ダイス 
という。モンスターの強さを表す），わよ 
び侍っているアイテムなどにより決定され 
ます。詳しくは AD & D または D & D のマ 
ニュアルを見てください。 

I 戦闘シークンス 

实際の戦闘例を見てみましょう。 

アリーナ （レベル 7 フアイター， AC 0 ，H 
P 35, THAC 013, # AT 2, damageld 8+2) 
ブライ （レベル 6 魔法使い， AC 6， HP 25, 
THAC 019, # AT 1， damageld 6) 

の2人が洞窟にはいると，4匹のオーガ 
Ogre ( AC 5, HD 4+1， HP 4 d 8+ l (平均19)， 
# AT 1， damageldlO ) 

それ【こ，2匹のトロー ル 

Troll ( AC 3, HD 6 十6, HP 6 d 8+6 ( 平た]3 
3),# AT 3, damage ld 4+4, ld 4+4, 2 d 6, 戦 
闘刚始後3ランド目から1ラウンド 3 HP 
のリジェネレート） 

が現れた。まだ距雕がある！ ブライの呪 
义ゲ響く。「ファイアーボール！」洞窟に 
爆発の炎が広がった。 

ここで，ブライをやっているプレイヤー 
はファイアーボールのダメージを決をしま 
す。というわけで，彼•は6面を6側おり， 

23を化しました。 

すかさず マスター は 才ーガ と トロールの 
魔法回避のチ卫ック （Saving Throw とい 
う）をします。20面を振って，ある数字の Ji 
ならばダメージが半分になります。をして， 
ダメージを現在の HP から引くわけです。 

ファイアーボールに生き残ったトロール 
が2人に向かってくる。 

マスターとプレイヤーはサイコロじよっ 
てイニシアチブを取り合い，どちらから先 
にな撃す るか 決をします。 （コロコロ），プ 



レイヤーが先手を取りました。 

アリーナの巧巧！ 必おの剣がトロール 
じ向かう。 

アリーナのプレイヤーは，20面を振って 
当たるかどうかを決定します。当たり！ 

2間目の攻撃は……当たり！ ダメージを 
計-劈し， マスター に向かって 「トロール A 
に15ダメージ， I 」など！：いい， マスター は 
ト ロール A の HP からダメージを引きます。 

そして，トロールの反巧！ 

マスターは やはり20面を振り， 当たった 
力，どうかを計節します。トロールの場合， 

3网攻擊するわけです。当たったらダメー 
ジを計算します。をして「アリーナに6ダ 
メージ！」などといい，みにトロール B の 
な雌をします。 

をして，すべて終わったらホのラウンド 
です。 

I CST の使ぃ方 

娘初は面倒莫いものですが，やがてルー 
ルは体に吸収され，ほ L んど機械的にこな 
せるようになるものでず。とはいうものの， 
マスター はすべての モンスターを 動かす わ 
けですから大変なのは大変です。ではここ 
で CST を 使うとどうなるでしょう 力>。 

まず， CST を起動するとファイル名を 
[州いてきますがとりあえず無視してリター 
ンキーを抑してください。 するしメイン 
画雨になります。 

GROUPO 
GROUP 1 
GROUP 2 
S , A , R ,0 —2, Q ^ 

4斤目にカーソルがあるはずです。この 
巧をコマンドラインと呼びます。 

♦モンスターのセット 

まず， 

SO ( ret ) ( ret ) はリターンキー 

と入力してください。これはグループ0に 


156 Oh ! X 1990.9. 





















データを七ットするとぃう恵味です。する 
t まず， 

N = 

U 背)ぃてくるので，モンスターの数を入力 
します。とりあえず，才ーガ4匹なので， 

N = 4( ret ) 
t するし次に， 

HP 二 (/ ret )_ 

t 聞ぃてきます。 HP が決まってぃる場合 
はをれを入力します。ここでは HP は HD 
から自動計算させることじして， （ ret ) とし 
ます。するし 
HD/LV = ? 

表示されるので，オーガの HD である，4 
+1 ( ret ), を入力します。ここで，敵が 
モンスターでなく人間の場合は， F(fight 
er ), C ( cleric ), T ( thief ), M(magic user ) 

のアルファベットに続けてレベルを入力し 

ます。 rex . F 5( ret)Jo 
また，決まった HP を入力した i ： きは， 
HD/LV 二 （ ret ) 

と表示されるので，もしをのモンスターカ s ' 
攻解をしなぃ！：き（つまり，後述の HPca 
Ic だけを使ぃたぃ場合）は， ( ret ) t すれば 
これ U 降をパスします。 

次に，攻撃のデータを聞ぃてきます。 

二— 

オーガは1回しかな擊しなぃので， l(re 
t ) と答えます。をして， 
dmg 1 (/ N ) =? 

に対し，オーガのダメージ IdlO を， 
dmg 1 (/ N ) 二 1*10 
( ndm+p は， n * m + pi ： 書く），または， 
dmg 1 (/ N ) =1—10 

と入力してくださぃ （ 1から10い、う意睐)。 
複数攻龄する場合，間違えたら， N ， を押 
す t ひとつ前に戻ります。最後に， 

TH adj 二 _ 

と出!てきます力 S '， 才ーガには当たりやすさ 
(To Hit ) の修正はなぃので， ( ret ) としま 
す。するしそれぞれの HP や THAC 0 が 
自動的に計算され，画面は， 

GROUPO A 13 B 17 C 23 D 23 

GROUP 1 

GROUP 2 

S , A , R ,0-2, Q >_ 

などとなるはずです。 A 〜 D のアルファベ 
ットはグループ内でのモンスターの識別記 
号で，をのすぐあとの数字はをれどれの H 
P です（乱数じよって決まるのでだぃたぃ 
このぐらぃ）。とりあえずグループ〇に才一 
ガのデータ七ットが完了しました。次に， 
グループ1に，トロールをセットします。 


Sl ( ret ) :グループ1をセット 
2 ( ret ) : 2帖 

( ret ) : HP はコンピュータが決定 

6 + 6( ret):HD 二6十6 
3 ( ret ) : # AT 二3 
日一 8 ( ret ) : da mage 日一 8 (or 1*4 + 4) 
( ret ) :同じ場合は省略できる 
2 *6( ret ) : da mage 2 — 12 (or 2 *6) 
( ret ) :当たりやすさの修正なし 
これで，トロ ールが七ットされました。 

ところで，假にアリーナをグループ2に 
七ットするとしたら， 

S 2( ret ) : グループ 2 
l ( ret ) :1人 
35( ret ) : HP 二35 
F 7( ret ) : Level 7 Fighter 
2 ( ret ) : 2| pU 父解 
l *8 + 2( ret ) :ダメージ ld 8+2 
( ret ) :同じなので省略 
1 :剣の当たりやすさに+1の 

修化がある。 

L なります。 

モンスターのグループは〇〜2の3 つで， 
それぞれ8匹まで。それぞれのモンスター 
の攻麟回数は8刚まで！：なっています。 

なわ，すでに使われているグループを使 
わうとするし OK ?( Y / N )， t 聞いてく 
るので， Y か N で答えてください。ここで， 
「N =」 と数を聞いてきむとき， （ ret ) とす 
るしをのグループは初期化されます（何 
も設定していないことになる）。 

ますこ， グループ間コピー^いうこ^がで 
きます。メイン圓而で， 
s 2 = l ( ret ) 

などとすると，モンスターの数を間いてき 
たあしグループ1のモンスターデータが 
グループ2にコピーされます。 

•モンスターへの巧巧 

メイン画面で，グループ番号だけを入力 
する t をのグループの HPcalc モードに入 
ります。 

とりあえず，ブライのファイアーボール 
ということで，まずメイン画而で， O ( ret ) 
とすると，コマンドラインカミ， 

HP calc ( 0 ) :_ 

となるはずです。これが HPcalc モードで’， 
この段階ではグループ〇のダメー ジを計算 
できます。才ーガ A から D にファイアー 
ボールで23ダメージということで， 

HP calc (0) : ABCD 23 F /16( ret ) 
入力してください。これは， ABCD に， 
炎によって （ F ) ,23ダメ ージ ， Saving Thr 
ow は16，という蔥睐です。をして， （ ret ) 
^すると， HPcalc モードから巧けるので， 


次に，1 ( re り^して， HPcalc をグループ 
1に移し，トロールのダメージを計算しま 
す。 

HP calc ( 1 ) : AB 23 F /14( ret ) 

次にアリーナのがえたダメージを入九。 
HP calc (1) : A 15( ret ) 

剣のダメ ージには Saving Throw はないの 
で，このようになります。 

また， HPcalc モードに入らずに，メイ 
ン廟师から薛梭， 

S , A , R ,0-2, Q >0 ABCD 23 F /16( ret ) 
のようにしてもダメージを入九できます。 
この t きはモードに入らずにメイン画閒に 
戻ってきます。 

ところで，ファイアーボールのところで 
触れまし たが 、ダメージを記述するとき後 
ろに 「 F 」 をつけるとおによるダメージと 
いうことになります。これはリジェネレー 
卜するモンスターのためのものです。 

また，特殊なダメージとして，備法など 
によるマヒや金縛りがあります。これは， 
ダメー ジのところを「*」で罵き換えてく 
ださい 。 Saving Throw も（設をしていた 
ら）奥斤されます。たとえば， 

HP calc (1) : AB */14( ret ) 

のようじします。マヒしたモンスターは， 
アルファベットが小义字になり，攻>掌でき 
なくなります。マヒを解除するには，むう 
一度「*」をすれば戾ります。 

♦モンスター側の巧巧 

をれでは，モンスターの攻!解です。メイ 
ン画刷から， A に統けてな1解するグループ 
の番号を入力します。この場合，グループ 
1のトロ ールならば， 

S , A , R ,0-2, Q > Al ( ret ) 

Advanced Dungeons S Dragons 

TSR inc . 

AD&D は D&D ( Dungeons & Dragons ) の改 
良版である。英米では D & D よりもはるかにま 
流で，おそらく世界でいちばんメジャーなテ 
—ブルトーク RPG た•ろう。 D & D の手軽さ（プ 
レイァビリティの商さ）をできるだけ生かし 
ながら，発散していくゲームバランスを抑え 
込む努力がを所に見られる。 

現をは第2版に nd edition ) が出回り始め 
たところであり，日本語版も徐々じ訳が出る 
子をだ。また，英語が読めるならば膨大な数 
の良質な巿敗シナリオを利用できる。私が思 
うじ最もよくできたテーブルトーク RPG で 
ぁる。 

マスターガイド，プレイヤーハンドブック， 
モンスターコンペディウムがをイを必要で，ほ 
かじ捉張ルールや世界設定集などありとあら 
ゆるものがある。みんな揃えようと思うとと 
つてもわをがかかる。 
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とします。すると画面は， 

G 1 d 20[ l 4] [7][15] 

化013 -1 6 -2 
dmg 66 4 

—>A hit ret / N ! 

のようになりますほし数によってみまるの 
で必ずしもこのとわりではない）。 

左側上から， 「 G 1」 は グルー プし「化 
013」は， THACO 力;'13て、'ある，「一 > A 」 

は， トロール A のな驚である，という こ t 
を表しています。また， 「 d 20」 の右侧は， 
攻擊のサイの目，をの下はをのサイの目で 
当たる AC ， をの下， 「 dmg 」 の右側は， 

をれぞれの攻驚のダメージです。 

ここで， （ ret ) とするしをのグループ 
のみのモンスターに移ります。また， N を 
入力するし直おメイン画而に戻ります。 
なわここでは，サイの目の「20」は絶対当 
たり，「しは絶が外れ!：しています。 

• リジェネ レー ト 

モンスターのリジュネレートもサポート 
しています。リジェネレートが始まるラウ 
ンドになったら，メイン闽面から， 

民 n m ( ret ) 

とするしグループ n に，每ラウンド mHP 
のリジェネレートがセットされます。た t 
えば，グループし每ラウンド 3 HP なら， 

民13 ( ret ) 

とします。七ットが終わったら，每ラウン 
ドの嚴初にメイン画面で， 

民 （ ret ) 

t すれば，自動的にすべてのリジェホレー 
卜が行われます。また，炎によるザメージ 
( F をつけたダメージ）はリジュネレート 
しませんし，最初の HP を上回ることはあ 
りません。 


• ファイル入出力 

CST を終了するには，メイン画面から， 
Q ( ret ) 

とします。すると， 

quit : filename / ret/N = 

と表示されます。ここで， （ ret ) とするし 
終了します。また，なにかファイルネーム 
を指をしてやるし現在のデータをファイ 
ルに書き化してから，終了します。また， 

N とする^ メイン画雨に戻ります。 

ここで嘗き出したデータファイルは，民 
AM ファイルに記憶されています 。 CST 
の起動時:に，このファイルネームを指定す 
るしをのデータファイルを読み込みます。 

したがって，をの[ I に化てくるモンスタ 
一をあらかじめ七ットしてわくことにより， 
をのときの手間を省くこ^ができます。 

•実巧の仕方 

プログラムは 7.5 K バイトありますから 
をれの《上の民 AM ファイルを礎保してから， 
リストを入力してくださし、。 PC — E 500 のよ 
うに エンジニア リ ングモー ドが使える機種 
では，ファイル名を 「 COMBAT .1##」 など 
^してわくと エンジニア リング モー ドで呼 
び出せて便利です。実際，私の E 500 ではメ 
ニューは すべて AD & D 用に使われていま 
す。すべて BASIC なのでデバッグは楽で 
すが，最初のほうに 「on error goto 」 が 
使ってあるので，デバッグが終わるまでは 
REM 文にしてわいてください。 

I 開発(こ当た3て 

このプログラムはもと杉扛 PC - E 500 で 
開発した^のですが，今回 PC -9801 上の 
エディタで書き直し，民 S -232 C で E 500 に 
転送したものです （ E 500 の民 AM ファイル 

リス h 1マスター戦醜支援ジー成 CS ず 


が飛んでしまって嚴ネ刀のプログラムが消え 
てしまったからです）。 

結局 98 上で再度開発したのですが，開発 
はパソコンの ほうが遥かに効率が上がるし 
安全性^向上します。本格的にポヶ コンを 
使いたい人には， 民 S _232 C レベルコン バ 
—夕 「 CE -140 T 」 でパソコン（テキスト 
ファイルがエディット できるもの）にす妾続 
する ことを おすすめします。 

なわ，この CE -140 T の マニュアルに褐 
載されているサンプルの通信プログラムは 
かなり使い勝手が惡く，なんだこりゃ？と 
思って使っていたのですが，あるときふと， 
save " com :” 
load " com :” 

とすればいいいうこに気づきました。 
普通の人はをうやって使うんだから，をの 
く、、らい マニュアルに 書いてわいてくれれば 
よかったのじ。といいつつの^後は便利に使 
っています。通信速度ら9600 bps でも取り 
こぼしはないようです（ X パラメータ付き）。 

このポケ コン は 一度 通信パ ラメー タを設 
定すると，リ七ットしない限り内容は保存 
されているので，あたかも PC — 9801(や X 
68000) のハード ディスクを ポケ コンに つ 
ないでいるような感じで使うこ^ができま 
す。 

ネ 

D & D , AD & DU 外をやっている人は， 
がんばってをれ用のプログラムを書いてく 
ださい。また，このプログラムでは「ヒド 
ラ」はサポートされていません。をれから 
今回のプログラムは PDS としてあつかっ 
てかまいません。ホットじアップするなり 
(?) 改造するなりご自由にどうぞ。 

次回はち よっ とした ツール や，シナリオ 
の作り方などを書いてみようと思います。 


100 C し S : CLEAR : RANDOMIZE 

110 ON ERROR GOTO »ERR 

120 PRINT .'*♦ combat support tool い .’ 

130 MN=7 

140 DIM HP I 2 ,MM) , HPORGI 2 , 义 、- > ,N ( 2 , • STATUS ( 2 . MK ) , THACO ( 2 » . N!AT( 2 ) • 【； 

HP( 2) , GHDS ( 2 ) , DMGN <2,7), DM じ D <2,7), DMGP ( i ： , 7 ) , F ( M\ I , R { 2 ) 

150 FS = ..": INPUT "file name/ret = '•: FS : IF FS«>.... THEN ‘JOSl B ♦し DATA 
160 tLOOP 

170 GOSUB »SETDISP 
180 ♦ し PMAIN 

190 GOSUB »SETLINE ： S$="" : INPIT "S,A,R.0-2,Q>"；SS 
200 IF S$ = ".. THEN’ ♦LOOP 

210 AS 三し EFTS (SS,1) : SS = RIGHTS ISS , し EN’ SS-1}: じ =VA し LEFTS (SS,1) 

220 IF A$ = ..S.. GOSUB »SET：GOTO « し OOP 

230 IF A$ = ’.A.. GOSUB ♦ATTACK ： GOTO ♦ し OOP 

240 IF AS = ..R.. GOSUB »REGEN'E ； GOTO ♦ し 0 OP 

250 IF A$ = ..Q.. GOTO 

260 IF ..0..<=AS AND AS<"9" THEN G=VAL \S ； GOSUB ♦ S1：T DMG ： GOTO »LPMA 
IN 

270 GOTO 化 0 OP 
280 ♦REGENE 

290 IF G<0 OR G>2 RETURN 

300 IF S$<>.FHEN R{G)=VAL (RIGHTS (SS, し EX SS-l) » : RKTIRN 

310 FOR G=0 TO 2 
320 IF R{G)=0 THEN 350 

330 FOR J = 0 TO N(G)-1 ： HP(G,J)=HP(G,J)+R(G) : IF HP(G,J)>HPORG(G,J) 
THEN HP(G,J >=HPORG(G,J) 

340 NEXT J 
350 NEXT G 
360 RETURN 
370 本 SET 


380 A$= し EFTS (S$,1) 

390 G=VA し （ S$) : CPY=0 
400 IF G<0 OR G>2 RETURN 

410 FOR J = 2 TO LEN SS : IF MIDS ( S$ , J ,1 > =THEN GG=VAL げ IGHTS ( 
S$ ，し EN S$-J)) : CPY =1： IF N{GG)=0 THEN RETURN 

420 IF N<G) THEN GOSUB ♦SETLINE: PRINT G ；" i s now used. OK(Y/N)?..: 
Y$ = INPUT $(1)：IF Y$<>..Y" RETURN 

430 GOSUB ♦SETLINE:N = 0: INPUT ..N = .. ;、’：IF N<0 OR N>MN+1 THEN 430 

440 N(G)=N:IF N=0 THEN RETURN 

450 IF CPY THEN GOSUB ♦CPY ELSE GOSUB ♦MSTR 

460 RETURN 

470 »CPY 

480 GHP(G)=GHP(GG) : HPG=GHP{GG) : GHDS(G)=GHD$(GG) ： GOSUB ♦し EVE し 
490 NAT(G)=NAT(GG)：IF NAT(G)=0 THEN RETURN 
500 THACO{G)=THAC0(GG) 

510 FOR J=0 TO NAT(G)-1 
520 DMGN(G,J)=DMGN(GO,J) 

530 DMGD(G,J)=DMGD{GG,J) 

540 DMGP(G,J)=DMGP(GG,J) 

550 NEXT J 
560 RETURN 
570 本 MSTR 

580 GOSUB tSETLINE : HPG=0:INPUT "HP=(/ret)";HPG 
590 GHP(G)=HPG 

600 GOSUB *SETLINE ： HD$ = '* ' ：PRINT "HD/ し V = " ; ; IF HPG>0 THEN PRINT ..( 
/ret )'*； 

610 HD わ.’ 0.. : INPUT " " ； HD$ 

620 IF HPG = 0 AND HD$ = ..0.. THEN N ( G ) =0 : RETURN 

630 GHD$(G)=HD$：GOSUB ♦し EVE し 

640 NAT(G)=0 

650 IF HDi = ..0.. THEN 68 白 
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99 凸け ON 

1000 IF P>=3 THEN HD=Hl け 1 

1010 IF HD< = 7 THEN THAC.0 = 20-1") ELSE THAC0=16-I N'T ( HD/2 ) 
1020 RETURN 
1030 »F1G 

1040 IF C し >l THEN *C し E 
1050 THAC0 = 19-I>JT( (HD-1 )/3) *2 
1060 RETURN 
1070 本 Cl ■.巨 

1080 IF C し >2 THEN け HI 

1090 THAC0 = 19-INT ((HD-1)/4 )*2 

1100 RETURN’ 

10 *THI 

20 IF CL>3 THEN *MAG 
30 THAC0=19-INT ((HD-1)/4 ) *2 
40 RETURN 
50 ♦MAG 

60 THAC0=20—INT <<HD-l»/5 い 2 
70 RETURN 


1740 PRINT #1,DMGN(G,J) ；••>•• ； DMGD(G,J) ： •• + •■ ； DMGP(G,J) 

1750 NEXT J 

1760 FOR J=0 TO N(G)-1 
1770 PRINT #1,HPORG(G,J) 

1780 NEXT J 
1790 NEXT G 
1800 CLOSE 
1810 END 
1820 »LDATA 

1830 OPEN ..E:" + Fi FOR INPUT AS #1 
1840 FOR 0=0 TO 2 

1860 IF EOF (1)THEN CLOSE : RETURN 

1860 INPUT #1,GHD$(G) : INPUT #1,N(G)：INPUT «1,GHP<0»:INPUT 9 1,THA 
C0(G) : INPUT «1,NAT(G) 

1870 FOR J=0 TO NAT(G)-1 

1880 INPUT #1,S$：GOSUB »NDPNDP ： DMGN(G,J)sND ： DMGD(U,J) =DT ； DMGP( G, 
J)=P 

1890 NEXT J 

1900 FOR J=0 TO N(G)-1 

1910 INPUT 9 1,HPORG(G,J) ： HP(G,J)=HPORG(G,J) 

1920 NEXT J 
1930 NEXT G 
1940 CLOSE : RETURN 
1950 *ATTACK 

1960 IF C<0 OR G>2 RETURN' 

1970 IF N(G)=0 RETURN 
1980 IF NAT(G)=0 RETURN 
1990 FOR J=0 TO N(G)-1 
2000 CLS 

2010 IF HP(G, J )<=0 OR STATUS (G, J )0 0 THHS け WAT 
2020 PRINT "G.. ;CHR$ (48 + G) ；" d20 .. 

2030 PRINT USING .. th0 ♦ い .. ； THAC ,，（ G > : PR しべ T .. dmg" 

2040 FOR K=0 TO NAT(G)-1 

2050 RrRND 20 ： IF R=20 THEN T$ = "!!!.. ELSE IF R=1 THEN TS = "---.. KL 
SE T$=STR$ {THAC0(G)-R) 

2060 R$ = RIGHT$ (" ..+STR$ R,2) 

2070 LOCATE 7+K*4 , 日 ： PRINT " f "； R$ LOCATE 7 + KM ,1 : PRIST .. ..;TS 

2080 ND=DMGN(G,K) : DT=DMGD { G , K ) ： P=DMGP( G , K ) : GOSUB »»JDP ： LOCATE 6 + K 
>4,2:PRINT USING ..####.’ ； R; 

2090 NEXT K 

2100 IF INKEYS O'... THEN 2100: 

2110 LOCATE 0,3：PRINT ;CHR$ (65+J )； 

2120 LOCATE 10,3：PRINT "hit ret/N ! " ; : A$= I KPl'T S(1) 

2130 IF A わ .. N" THEN 2150 
2140 *SKPAT:NEXT J 
2150 RETURN 
2160 け ETDMG 

2170 IF O<0 OR G>2 RETURN 
2180 IF N(G)=0 RETURN 
2190 LOOP=0 
2200 ♦LPDMG 

2210 IF S$ = " '• THEN GOSUB »SETLINE : PRINT "HPcaic < " ;G ;:1NPI:T .. J : 
； S$ : LOOP=l 

2220 IF S$="" THEN RETURN 

2230 FOR Js0 TO N(G)-1 : F(J)=0:NEXT J 

2240 A$ = LEFT$ {S$,1)：IF A$<"A" OR ..H..<AS THEN RETURN 

2250 F(ASC A$-65)=l 

2260 FOR J=2 TO LEN S$ 

2270 A$=MID$ (S$,J,1)：IF OR "H. く AS THHN "DO 

2280 F(ASC A$-65)=1 
2290 NEXT J 
2300 IF 
2310 St= 

2320 DMG 
2330 FOR 
2340 IF 
2350 IF 
0 2370 
2360 NEX 
2370 FOR 
2380 IF 
2390 D=D 
TUS(G,J) 

2400 HP( 

2410 IF 
2420 NEX 
2430 GOS 
2440 IF 
2450 RET 
2460 *SE 
2470 LOC 
,3 

2480 IF 
2490 RET 
2500 *ER 
2510 END 

D & D の 


660 GOSUB ♦SETLINE: INPUT .. 化い . ； NAT( G J 

670 IF NAT(G)>0 THEN GOSUB 本 SETAT ELSE NAT(G)=0 

680 RETURN 

690 tSETAT 

700 FOR J=0 TO NAT(G)-1 

710 SS = " + 000" ：GOSUB ♦SETLINE: PRINT "dmg; J+l; (/N )= 


: INPUT 


"；S 


720 IF S わ .. N" AND J>0 THEN J = J-l：GOTO 710 
730 IF J = 0 OR SJO..+0O0.. GOSUB ♦SETNDP 
740 DMGN(G,J)=ND : DMGD(G,J)=DT : DMGP{G,J)=P 
750 NEXT J 

760 GOSUB ♦SET し IN 巨： T=0:INPUT "TH adj=";T 
770 THAC0(G)=THACO(G)-T 
780 RETURN 
790 *LEVEL 

800 A$=LEFT$ ( 日 HD5(G),1):S わ RIGHTS (GHD$(G),LEN GHDS(G)-1) : IF SS 
="•• THEN S$ = "0" 

810 DT=8 ： ND=9999 ： P=0 ： CL=0 ： H$=GHD${G) 

820 IF A$="F" THEN DT=10 ： ND=9 ： P=3 ： CL=1 ： H$=SS 
830 IF A$="C" THEN DT=8 ： ND=9 ： P=2 ： CL=2:H$=SS 
840 IF A> = "T" THEN DT=6 ： ND=10 ： P=2 ： CL=3 ： H$ = SS 
850 IF A$ = "M" THEN DT=4 ： ND=10: P=1:CL=*I ； HS = SS 
860 HD=VAL H$ 

870 IF HD>ND THEN P=P»(HD-ND) ELSE ND=HD ： P=0 
880 P=P+EVAL H$-VAL H$ 

890 GOSUB *THAC0 
900 THAC0(G)=THAC0 
910 FOR J=0 TO N(G)-1 
920 STATUS(G,J)=0 

930 IF HPG=0 THEN GOSUB «NDP ： HPORG(G,J)=R ： HP(G,J)=R ELSE HPORG(G 
,J)=HPa ： HP(G,J)=HPG 

940 IF HP{G,J)<=0 THEN HPORG(G,J)=l : HP{G,J)=1 
950 NEXT J 
960 RETURN 
970 »THAC0 

980 IF C い 0 THEN *FIG 
990 >MON 

1000 IF P>=3 THEN HD=HD+1 

1010 IF HD>=1 THEN THAC0=19-INT ((HD-1)/2)»2 
1020 RETURN 
1030 け IG 

1040 IF CL>1 THEN ♦CLE 
1050 THAC0=21-HD 
1060 RETURN 
1070 拿 CLE 

1080 IF CL>2 THEN け HI 
1090 THAC0 = 20-INT ((HD-1 )/3 い 2 
1100 RETURN 
1110 巧 HI 

1120 IF CL>3 THEN け AG 
1130 THAC0 = 2O-INT ((HD-l)/2 I 
1140 RETURN 
1150 ♦MAG 

1160 THAC0 = 2O-INT ((HD-1 )/3) 

1170 RETURN 

1180 >SETNDP 

1190 FOR P=1 TO LEN S$ 

1200 IF MIDS (S*,P,1 > = THEN ♦NDPNDP 

1210 NEXT P 

1220 GOTO »NDPMM 

1230 ♦NDPNDP 

1240 .MD=VAL SS 

1250 FOR P=2 TO LEN S$ 

1260 IF MIDS (S*,P,1 )="♦.. THEN 1280 
1270 NEXT P 

1280 SS = RIGHTS けい , EN SS-P) 

1290 DT=VAL S$ 

1300 P=EVA し SJ—VAL SS 
1310 RETURN 
1320 »NDPMM 
1330 MINsVAL SS 

1340 IF EVA し S$=MIN THEN MAX=MIN ELSE MAX=—EVA し SS+MIN 

1350 ND=0 ： DT=0 ： P=0 

1360 FOR MM=1 TO 20 

1370 P=MIN-MM 

1380 DT=<MAX-P)/MM 

1390 IF DT=1 OR DT=2 OR DT = 3 OR DT=.1 OR DT=6 OR DT = 8 OR DT=U) OR 
DT=12 OR DT=20 THEN ND=MM：GOTO 1420 
1400 DT=0 
1410 NEXT MM 

1420 IF DT=0 THEN ND=0 ： DT=0:P=MIN 
1430 RETURN 
1440 »NDP 
145*0 R=P 

1460 FOR JRND=l TO ND 
1470 R=R+RND DT 
1480 NEXT 
1490 RETURN 
1500 ISETDISP 
1510 CLS 

1520 FOR G=0 TO 2 

1530 LOCATE 0, 日 ； PRINT "GROUP"；RIGHTS ISTR8 G.LEN STRS G- 1}; 

1540 IF N(G)<=0 THEN 1560 
1550 GOSUB «DISP 
1560 NEXT G 
1570 RETURN 
け 80 の ISP 

1590 FOR J=0 TO N(G)-1 
1600 LOCATE 7+4*J,G 

1610 IF HP(G,J)< = 0 PRINT .. " ； : GOTO 1630 

1620 PRINT HP(G,J);:LOCATE 7+4*J,G：IF STATUStG,J) THEN PRINT CH 
R$ (97 + J )； ELSE PRINT CHRS (65 + J )； 

1630 NEXT J 
1640 RETURN 
1650 »QUIT 

1660 GOSUB け ETLINE:F* = "..: INPUT "qui t: f i iename/ret/N = .. ; FS 

1670 IF F$ = "•' THEN END 

1680 IF F わ " N" THEN 化 OOP 

1690 OPEN "E：*' + F$ FOR OUTPUT AS #1 

1700 FOR G=0 TO 2 

1710 IF N(G)<=0 THEN 1790 

1720 PRINT #1,GHD$(C) : PRINT #1,N(G) : PRINT #1,GHP<G) : PRINT M,THA 
C0(G)：PRINT #1,NAT(G) 

1730 FOR J=0 TO NAT(G)-1 


AS="»" THEN HO し Dsl ELSE HO し D=0 
RIGHTS (SS,LEN S$-J+l) 

=VAL S$ ： SV=21 ； FIRE=0 ： D2=INT {(DMG+l)/2) 

J=2 TO LEN S$ 

MID$ (SJ , J,1 l=..F.. THEN FIRE=1 

MIDS (S$, J,1) = "/" THEN SV=V.A し （RIGHTS (SS, し EN S$-J ) ) : GOT 
T J 

J=0 TO N|G)-1 
F{ J)=0 THEN 2420 

2：IF SV>RND 20 THEN D=DMG：IF HOLD THEN STATUS(G,J)=1-STA 

G,J)=HP(G,J)-D：IF FIRE THEN HPORG(G,J)=HPORG(G,J)-D 
HP(0,J)>HPORG(G,J) THEN HP(G,J)=HPORG(G,J) 

T J 

UB ♦DISP 

LOOP THEN S$ = " ••: GOTO » し PDMG 

URN 

TLINE 

ATE 0,3 ： PRINT •• •' ； : LOCATE 0 

INKEYS THEN 2.180 
URN 

R：PRINT "DISK EKROR;":CLOSE 


巧合のをま点 


、S = "F.. THEN DT=8.A’D = 9 
け = "C.. THEN DT=6:N ： わ 9 
け = ..T.’ THEN DT= I ： S'D=9 
V た .. M" THEN nT = 4 : \I)=9 





い P=1 

Cl. = 2 

HS = SS 

)：P = i! 

C し = 3 

H5 = SS 

い P=1 

CL = 4 

H$ = S5 


F F F F 


0 0 0 0 
2 3 4 5 
8 8 8 8 
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バックナ廢 ^ES 


ここには1989キ9月号から1990年8月号までをご紹 
介しました。現在1989年10~12, 1990キ1~ 8巧号 
までの在庫がございます。バックナンバーおよびを 
期講読のわ申し込み方まじついては，174ぺージを参 
照、してください。 



9月号（品切り） 

特集活用ハードディスク&プリンタ 

各社ハードディスク巧続総チェック/ハードディスク雑学 
講座/ COPY キーメニュ ー/ ビデオプリンタま用ブログラ厶他 
THE S 0 FT 0 UCH ジェノサイド/琉巧/ mFORTH Compiler 
• サイバースティックで遊ぶ不思讓な環境ソフトの世界 

• XI /XI turbo 用シューティングゲーム Defeat X 
Z 80 ’s Bar / MZ - 2500グラフィックエディタ他 
[ X 68000] X - BASIC / マシン語 /C 調言語講座 / D 5 GA • CGA 
全機種共通システム生物進化シミュレーシヨン BUGS 

1日ち号 

特集ゲーム面白心理学 

ソーサリアン•宇宙からの訪問者/ファンタジーゾーン 
ねじホ/ガウディ•バルセロナの風/サバッシュ他 

♦ MZ -700 用シューティングゲー厶 Side Roll-F 

• Xl / X 1 turdo 用力ードゲーム Bonding 

シヨートプロ / ZSO’s Bar / MZ - 2500グラフィックエディタ 
X 68000 マシン語/ X-BAS に /C 調言語講座 / D 6 GA • CGA 
THE S 0 FT 0 UCH Z'sTRIPHONY DIGITAL CRAFT / James 68 K 
全機種共通システム小型インタブけ言語口 I 

11月号 

特集 microcomputer 入門 
ネ刀ホからの CPU 物語/ RISC プロセッサの設計と製作 
X 68000& X 1 で周ぶ LSI をイまいこなそう 
連 I シヨートプ a / ZSO’s Bar / MZ - 2500グラフィックエディタ 
取 I X 68000 マシン語/ X-BAS に /C 調言語講座 / D 6 GA.CGA 

♦ , X 68000 用カードゲー厶ばばめき 

LIVE in '89 メタルホーク/オブ•ラ•ディ，オブ•ラ•ダ 
THE SOFTOUCH S ね tionery PRO -68 K / リングマスター1 
全機種共通システム TTI 用パズルゲーム PUSH BON ! 


12月号 

特集 C プログラミングへの巧待 
付録 C 言語簡易リファレンス 
連 I ショートプロぱ一てい / Z 80 ’s Bar 
^ X 68000 マシン語/ X - BASIC/D り GA.CGA 

• Oh ! X 2 周年特別企画「ホ巧子の声が閒こえる」 

• Xl / turbo 用アクションゲーム ACTIVE UNIT 
LIVE in '89 天空の城ラビュタ/ギヤラクシー•フォース 
THE SOFTOUCH 38万キロの虚空/た一みのる2 
をが巧共通システム SLANG 用リダイレクションライブラリ 

1月号 

特集1オペレーティングスタイルの研究 
特集2 C プログラミング応用編 
[ ii ] ショートプロぱ一てい / Z 80 ’S Bar 
\n 1 x 68000 マシン語 / C 調言語謙座 / D 6 GA.CGA 

• Xl/turbo 用シミュレーションゲーム Super Battle 
LIVE in ’90さよならを過ぎて/ RYDEEN 
THE SOFTOUCH レナム/メタ J レサイト 

全機種共通システム WORM KUN / 再巧載 SLANG 
特別付録 X 68000 THE SOFTWARE CATALOGUE 

2月号 

特集画像圧縮へのァプローチ 

S ショー トプロぱ一 てい / ZSO's Bar / DoGA-CGA 

X 68000 マシン語 /C 調言語講座/ X-BAS に調理実智 
• X 68000 用 ゲームプロ グラム Gon Gon 
• MZ -700 用紙芝居 Eyelarth 
LIVE in ’90才ーダイン/巧ホの宅急イ更 
THE SOFTOUCH A - JAX / フラッピー2/夢の殺±ヴァリス D 
マジック/《レツト / Mu -1 /CYBERNOTE PRO -68 K 
を機種共通システム超/い型コンパイラ TTC + + 


ma 怒 





3ち号 


特集 MUS にアドベンチヤー 


X 68000 用 MIDI ドライバ&音源エディタ 
なんでも鳴らせる 0 PMD . X/MML を楽譜データじ 


酸這 


—トプロぱ一てい / Z 80 ’s Bar / DoGA-CGA 
離言語講座/ X-BAS に調 i 至実智 
XI /turbo シミュレーシヨン CR にに in Tokyo 


LIVE in ’90パワードリフト/スキーム / となりのトトロ 
THE SOFTOUCH ナイトアー厶ズ/が/ダンジョンマスター 
全機巧共通システム超を機能アセンブラ OHM - Z 80 


4月号 

特集ゲームシステム文学誌 
1989年巧 GAME OF THE Y 巨 AR 発ま 
「連！シヨート プロ ぱ一てい / Z 80 ’s Bar / DoGA-CGA 
I 載 I X-BAS に調巧実習 /C 調言語-满座/ X 68000 マシン語 
♦ XI . MZ — 2000/2500用 RPG The Cave of Dalk 
♦うわさの6804 0, ついじ登巧 
LIVE in '90 バーニングフォース (OPMD 巧応） 

THE SOFTOUCH The Fills Professor/HOST PRO -68 K 
全機種共通システムフアジイコンピュータシミュレータト MY 


邑巧ち 

特集 BASIC プログラミング 
第5回言わせてくれなくちゃだワ 
連 I シヨー トプロ ぱ一 てい / ZSO’s Bar 
載 I X-BAS に關巧実習/ X 68000 マシン語プログラミング 
• 新機種 X 6800 日 SUPER - HD / EXPERTB/PROD 

•ラジコンスティックの製作 

LIVE in *90 TURBO OUTRUN 

THE SOFTOUCH 天下統 一/ ポピユラス/ Hyperword 

全機巧共通システムインタプリタ言語 STACK 



B 月号 

特集創刊8周年記念 PRO -68 K (イオ録 5"2 HD ) 
Oh !X アン ケート 結果大々ネ斤大会 

シヨート プロ ぱ一てい / Z 80 ’s Bar/PurePASCAL 
X-BAS に調理実習/ X 68000 マシン語プログラミング 
• Xlturbo 用 コマン ドシェ ルシミ ユレータ 
•ハードウてアエ作入門 

LIVE in ’90ナイトアームズ/悪巧城な说/この木なんの木 
THE SOFTOUCH 兰国ホ D/FAR SIDE MOON / グラナダ 
をが度も i システム X 68000 用 S -0 S " SW 0 RD " 他 

マち吾 

特集マシン賠への第一歩 
X 68000 SUPER-HD 試:用レポート 

シヨートプロぱ一てぃ / Z 80 ’s Bar / DoGA-CGA 
X-BAS に調埋実習/ PurePASCAL 
• INTEGRAL XI ——•ノーマル X I への対応 
♦ハードウェアエ作入門 

LIVE in ’90 夢幻殺: t ヴァリス11ルンカータとフーガニ短勘 
THE SOFTOUCH サーク/あ一くしゆ/ダウンタウン觀血物語 
全お巧共通システムリロケータカレアセンブラ WZD 





S 月号 

特集 ADVANCED 2 D GRAPHICS 
100号き己を特別モニタプレゼント 
「連 I シヨートフ。口ぱ 一てぃ / Z 80 ,s Bar/INTEGRAL XI 
倍 X-BAS に調理実習/ X 68 抓0マシン語プログラミング 
I 載 I PurePASCALA 、ードウェアエ作入門 
• X 68000 用画像回転プログラム XROT 0 .X 
LIVE in '90 OMENS OF LOVE/ENDLESS RAIN / ダートフオックス 
THE SOFTOUCH 大航海時代/ウルティマ V / プロミストランド 
全機種共通システムリンカ WLK 


160 Oh ! X 1990.9. 


























愛読者 

プレゼント 


プレゼントの応募方法 

とじ込みのァンヶートはがきの該当項目をす 
ベてご記入のうえ，ホ望するプレゼント番号 
をはがき右下のスぺースじひとつ記入してわ 
申し込みくださし、。締め切りは1990年9月18 
日の到着みまでとします。当選者の発表は19 
90年 U 月号で行います。 



ナムコの大ヒッ h シューテインググー厶のリメイク版。 X 關日加用にアレンジされたダンシン 
グステージち見ちのだぞ。 


© 


データウェスト 巧 06(968) I の6 






ポニーキヤニオン巧 03(221)31 61 


□-Again 


ウルテイマ V 


X 郎日邮用已"21~!0版2が組 


9,800円 


根強い人気のあるウルティマ 
シリーズ第已イ乍。これはウル 
ティマ IV の続編となっている。 
もちろん IV のデータが利用で 
さるぞ。 


システムソフト 巧 092(7 I 4)62： B 6 


システムソフ h 
乂ーノ K — ンュ：=：レーソヨン 
サウンド 


2,718円 


D イ gain 

T 百反 4th UNIT FIV 拉 ：_ 


X 郎邮〇用已 " SHD 版4枚組 

8,800円 

3 ち 


いよいよ第4のユニッ h シリーズ 
もこの D - A 邑 ain をちって第1部 
WWWF 編完結。ブ□ンウインフ 
アン必携のアドベンチヤーだ。 


ビジネス•アスキー 包 03 (486)71 19 


© 

虹色ディップスイ、ツチ 


971円 


あのドラクエで有名な堀井雖二が，グー 
ム業界の裏話を書いたエッセイ集。ゲー 
ム業界に興がのある人でなくてち，十分 
楽しめる本だ。 


田ダウンタウン熱血物語（を知県）行松衞（和歌山県）木村誠吾（広萬県）山川剛信曰サー 
ク（北海道）山崎康則（大阪府）岩田薰（長崎県）帆足巧二因天下統一（東京都）小島おを 
(神奈川県）ホ城豊和（徳島県）を口成広因ファルコムシステム手帳（宮城県）宾野勝昭 
(岐阜県）藤お弓ム隆回メモ帳（福島県）根ま正巧（栃木県）ま塚健次（石川県）中村学（山 
口県）藤巧が昭（熊本県）松本ち貴 

が上の方々が当選されました。わめでとうございます。商品は順次発送いたしますが，入荷 
状況などじより遲れる場合らあります。また，公正取引ま員会のを示じより，このプレゼント 
じ当選された方は，この号の他のお苗には当選できない場合がありますのでご了承ください。 


7月号プレゼン h 当選き 


大戦略 n , 大戦略の，そして天下統一のゲー 
ムミュージックを収めた CD 。 発売元は株す 
会な X ルダック。 


(価格は すべて 消費税別です） 
愛■読者ブレゼント 161 















PEMGUWMg 顯 

ぺ•ン•ギ•ン•情•巧[•コ•一 •ナ•一 


NEW PRODUCTS 


64 K バイト RAM 標準装備 

PC - E 5 加 

シヤープ 



PC - E 550 


シャープはすでに発充中の嵩機能 I 的歡ポ 
ケットコンピュータ 「 PC - E 500」 の新機 a 
として 「 PC - E 550」 を発売した。 

「 PC - E 550」 は 64 K バイト民 AM を概準装 
備。さらに，民 AM 力ードを装蒋することで 
说人一 128 K バイトまで拡張可能となってい 
る。もちろん， PC - E 500 用のソフトはをの 
まま使用"了能である。また，外観はホワイ 
トデザインが採用されている。イ邮化は 
32,00 or リ（税別）。 

<問いなわせ化> 

シャープ ㈱ 巧 03(260) 1161 ,06(621) 1221 
八ンディターミナル 

HC -70 

セイコーエプソン 

七イコーエプソンは 16 ビット CPU の V 25 
を搭載し 128 X 192ドットの大 iWli 巧 STN 液 
,1 ふパネルを採川した ハンデイ ターミナル 

「 HC -70」 を発売した。 

「 HC -70」 では 256 K バイトの漢ザ民 OM を 
が鹏し JIS 第1水準はもとより， JIS 策2水 
準漢字もサポートしている。メモリは本体 
内赚民 AM 256 K バイト，拡張メモリ川オプ 
シヨンとして民 AM 力ード 128 K バイトわよ 
162 Oh!X 1990.9. 


び 256 K バイトが用愈されている。用途じな 
わせて民 AM カードを使用することにより， 
データの集が，脊珊が容おに巧える。さら 
に， RS -232 C インタフェイス，メモリカー 
ドインタフェイス，光通信インタフェイス 
を標準装備。入:データの転送速度の違い 
によって通信方法を削‘単に選がすることヵミ 
できる。 

この 「 HC -70」 のソフト刚摊はパソコン 
I •.で巧うこができる。対応機穩は「ェプ 
ソン PC -386/286 シリーズ 」， 「NEC PC 
-9801 シリーズ」。 主た、 I 州苑支援川ッール 
I :して 「 HC -70 部川ライブラリ」がけ]意さ 

れている。 

オプションは U 下のものが用意されてい 
る。 

• プリ ンタユニット 
• 化通信 ユニット 

•民 AM 力ード1281くバイト /256 K バイト 
-充電器 
-述信ヶーブル 

•キヤリングケース，ストラップバンド 

外お寸法203 .5 X 86.0 X 27.5 mm , 巧愚は 
本体約410もお池パック約120も述統使川 
畔問（電池寿命）約15時刖。価おは220,000 
円（税別)。 

〈 I 川い合わせ-化> 

七 イコーエプソン ㈱ 巧 0266 (58) 1705 
エプソン版光 ㈱ 巧 (け (377) 7001 



ノ_トワ—プロ 

WV -700 

シャープ 



シャープはノートワープロ 「 WV -700」 を 
9 巧 1 II に発充 する。 本体 ^プリンタ•フ 
ロッピーデイスクドライブユニットが必要 
に応じて分離" r 能，また障さ 30 mm ， 兼さ 
1.4 kg というコンパクトサイズの实骗 によ 
り， 携帯性を向 k している。 屯源はがミア 
ルカリ .乾;む也，充電式バッ テリーパックけリ 
売)， AC アダプタが 使用可能で，姑な述続 
使用時間は バックライトオフ 時で約 8 時刖 
(オン II 本は 4 wm ) を 突現し ている。イ 邮恪は 
218,0001 リ （税別)。 

<1!りいなわせ化> 

シャープ ㈱ 巧 03(260) 116し 06(621) 1221 
ポケッ h モデム 

MD 24 FP 仙/別 

才厶ロン 

オムロンはポケットモデム 「 MD 24 FP 4」 
のバージョンアップシリーズとして 
「 MD 24 FP 4 II / 日1しを発充した。いずれの 
概極もエラー訂正機能 i ： して MNP と蹤菊？ 
の圃隙標準規格 CCITT V .42 を搭載してい 
る。特に 「 MD 24 FP 5 I しは MNP クラス5を 
標準搭載し，をの圧縮機能により実劾通信 
速唆が4800 bps まで向上させ，信頼度もな 

めている。 

さらに， NCU は AA (自動雖蒋倩）だけ 
でなく MA (手動発信•む動翁倩 )， MM (ホ 











MD -24 FP 5 n 


動発眷信）にもがおしている。イ邮格は:38,800 
円と42,800円（いずれも税別）。 
〈問い合わせ先〉 

オムロン ㈱ 巧03 (5488) 3221 

電子手幌 1 C 力ード 

PA -3 巳19/巧〜24/巧〜巧 

シャープ 



電子システム手帳用に力ード 


带子システム手帳用に力ードの第3弾 
としてソフト剛発会社7社より8機輔が％ 
売される。 

-ビジネス英を訴カード 
英会話約2,500义例，英単語約1，300語， I け: 
界の都巿情報を収録。 

㈱ 学お研究社 

標準仙 i 格9,0001リ(税別）発売中 
•「パズル火迷宮」力ード 
を100閒，エジプトの砂漠を舞台にしたアド 
ベンチヤー仕立てのパダル。 

㈱ アスク講談社 

標準価格6,0001リ(税別）発売中 
-おす易占いカード「易道」 

中圃5千年の歷おを持つ易学を誰にでら简 
単に。 

㈱ アスミック 

標準伽格9，000円（税別）8 )-] 発売 
-旺义社の入試に化るホ义単語300 
胚义社刊斤の「入試に化るホ义単語300」川 I 
ネホ幸弘著）を 1 C 力ード化。 


ソフトバンク ㈱ 

標準価格8,5001』](税別） 9パ発売 

•株式 力ー ド「キャピタルゲイン」 

株伽のグラフ，利益管理のための計算，さ 
らには税やず数料の計算などを備単に。 

II 本データ機器 ㈱ 

標剩邮恪8,5001り（税別） 9り発売 
. 1-.海 II 力ード 

巧さんゎ馴染みの「上海」がパヮーアップ 
した「上海 I し力 qc 力ードに。 

サン屯す ㈱ 

標準伽恪7,00 Of リけ化別） 8り発売 

- TALKING BUSINESS 力ード 
英会話約1，600义例，英単熟語約4，400語（う 
ち700語は使川されている义例を検索叫‘能） 
を収録したビジ本ス英を話カード。 

㈱ アスミック 

標準仙術9,0001リ（脱別）10り発売 

• 多機能 メモカー •ド 「ハイパーメモ」 

PA - 8600の約2巧の記憶容捉を持ち，アイ 
デア乂おでさまざまな情報を記慌，活パ j で 
きる多機能メモリカード。 

㈱ •マイクロキャビン 

標準伽化16,0001リ（税別）10り発売 
〈問いなゎせ化〉 

シャープ ㈱ 巧 03(260) 116し 06(621) 1221 

XB 日日日日用アドインポー•ド 

TP - 郎 K/K-TRAM-2 

国際データシステム 


TP -68 K 



關際データシステムは X 6800() 対応の大 
容おメモリ付•きトランスピュータアドイン 
ボード，拡張モジュール，およびパラレル 


C コンパイラを8巧より発売する。 

アドインボード MODEL TP -68 K は4 
MDRAM を採 W することによりオンボー 
ドに基本 4 M バイト，姑大 8 M バイトの人が 
量メモリを搭載した。トランスピュータの 
高速嫂理性と乂容愚 ローカル メモリにより 
X 68000(：よるレイトレーシングなどをな 
速化する。価格は428,000円より。 

拡張モジュール MODEL K - T 民 AM -2 は 
アドインボードに装着することによりマル 
チ CPU 化（並列化）するサブボードであ 
る。パラレルプログラミングの容坊なコン 
ピュータグラフィック I 閲係ではトランスピ 
ュータのマルチ数にほぼ比例してスピード 
向」•.が巧られる。仙術は260,0001リより。 

ノ《ラレル〔コンパイラはトランスピユー 
夕 rn パラ レルコンパイラとして齊仗してい 
る英關 3 L 社製コンパイラを移楠し， XC の 
グラフィック関係コマンドを取り込んだら 
の。 C コンパイラ t しては K & R に完全準拠 
している （ ANSI ではない）。伽がは268,0 ()() 
円（すべて税別）。 

〈 I !りいなわせ化> 

国際データシステム ㈱ 巧 ()423(76) 4800 

INFORMATION 


栽回サィクロン CG 於 

アンス.コンサルタンツが主催する「サ 
イクロン CG 火を」が今がも關俏される。|;り 
催の11時は9 )1 241](り）午後1時半より6 
がまで，場所は昨年と同じ柬な渋を道玄が 
のフォーラム8 (新人ぶビル）！：なってい 
る。 

サイクロン CG 人をはレイトレーシング 
ツール 「サイクロン」 のュー ザーを対象に 
した CG か品コンテストで，昨年の萊1回人- 
をでは X 68000 版のサイ クロンューザーを 
中'こ、として質のない作品におまれ盛り上が 
りを姐せた。 

今间は， PC わよび FM シリーズのューザ 
一 も含め，より スヶールァ ップした火をと 
なる予定。賞を20万 r リのグランプリほか' i’t 
を.'む:品ら多数川恵されている。 

応與作が,の締め切りは9巧8 n で， U K 
の宛化まで郵送のこと。 

干810楠岡ボ|||央区平を町68 

アンス•コンサルタンツ 
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このインデックスは，タイトル，ま記—— 
筆者名，誌名，月号，ページで構成されて 
います。受験生の方，夏休みの間思うよう 
じ勉強ははかどりましたか？ あと半年の 
辛抱です。頑張ってください。 


を 考义が 

I / O 工学社 

ASCII アス キー 

コンブテイー ク 角川 書店 

The BASIC 巧術評篇な 

テクノポリス德巧 書店 

P 0 PC 0 M 7 巧号小学館 

マイコン巧ぶ巧 閒 社 

マイコン BASIC Magazine 電波巧 M 社 

LOGIN ア スキー 


— egi 

ml 

►ネットワーカー•ホリック第23回 
PDS 特集第2弾。 LHARC アーカイバ。や山美穂のラジ 
才を組と連技!したネット r 中山美巧 P . S . I LOVE YOUj 
を紹介。——編！!部 . LOGIN . 13号， 204-205 pp . 

►特集記がするものたち 

フ □ッビー， CD - ROM ，ハードディスク，に力ード. 
光磁気ディスクといった，コンピュータじ不可义な記憶 
メディアの巧造，製造まなどを詳しく解悦。——編集部， 
LOGIN . 14号，128- 141 pp . 

►ネット つ一力一. ホりック第24回 
大手ネットのフォーラム巧新情報。 NIFTY - Serve のぴ 
あ関連コーナーやプロレスフォーラム， Rupo - NET など。 
PDS は X 68000の 3 D ポリゴンフライトシミュレータ 「CA 
PTAINj 。 全国 BBS 探訪記はま京搜町の 「 SC - NKj を紹 
介。——編集部 . LOGIN . 14号，216 — 219 pp . 

► My Opinion 日コン連にもの申す 

日コン連の実情に対する日コン連反主流が （ ？ ） からの 
巧部告発配を。—— Mr . X 滿隻まち ， The BASIC , 8月号， 
172- 174 pp . 

► NEW PRODUCTS 

はがき，リフィルへの巧字が巧能な電子手帳用プリン 
夕，シャープ CE -80 P を紹介。——編集部，マイコン BA 
SIC Magazine , 8月号， 96 p . 

►イメージスキャナの谢を研究 

いまや画像処理じ化、須じなったイメージスキャナの仕 
組み，インタフェイスの問超じついての巧が記事。製品 
と画像サンブルの紹介も斤う。——山田巧一.マイコン， 
8月号， M 3-128 pp . 

► ビジネスツールレポート 

電子手帳の新潮流，キヤノン Ai ノートのお能，文字入 
力の実力，実用性じついて考察する。一佐田守ミム.マ 
イコン，8月号，151 - 1 58 pp . 

►実戰ハード入門 

光センサをイまって風力•風向計を作る。 PC - E 200 など 
でも測れるぞ。——石川至知，マイコン，8月号，321 
-325 pp . 

► M に 0 M WATCHING 

NEC の新本社" NEC スーパータワー"のユニークなデ 
ザインや，ネットワークサービスの秘密に迫る。——菊 
巧!秀 一 ， マイコン，8巧号. 3 I 6-3 I 9 PP . 

►ノート型バソコンの正しい使い方 

急速に普及しつつあるノートパソコン。スペックの違 
いやそれぞれのお長に合った使い方を研巧する。——編 
集部 . ASCII . 8月号， 257-279PP. 

►ど一するど一する研究所 

わからなくならない フロッ ピーの营理ぶは？ デ イス 


クはどうやって運ぶのがいいか？ フロッピーはどれく 

らい丈夫か？などの疑問を解き明かす。-文字真， 

ASCII . 8巧号，289 -296 pp . 

► PRODUCTS SHOWCASE 

シャープ All in Note のハードウてアレポート。がをじ 
革新的なスタンスじ評価が离い。——おお部， ASCII . 

8 月号. 30 l -304 pp . 

► PRODUCTS SHOWCASE 

を新光巧巧ディスク巧巧と称して，8機巧の M 0 ドラ 
イブの傲能とか向を探る。——編集部. ASCI し 8 月号, 
305 -307 pp . 

► AV STRASSE 

音声を重ディスプレイ CZ -6 I 3 D-TN と 0 S 9 -VSED の紹 
介と， GUNSHIP の X 68000 版登場のニュースなど巧栽。—— 
編集带 ASCII . 8 月号， 375-%0 pp . 

MZ シ U — ズ 

MZ 1500 ( MZ に001 BASIC ) 

► UP-DOWN 

ダイヤをすべて取って始めの位*じ房る。ショートブ 
U グラしゲーム。 ——川ぶ悟，マイコン BASIC Magazin 
e . 8 月号， I 28 p . 

MZ -2500 ( M 25 -BASIC ) 

►しらいむの野望 

全国をひとつにまとめるべし。截国シミュレーション 
ゲーム。——白井巧明.マイコン BAS に Magazine . 8 巧 
号， I 29- I 3 IPP . 

XI /turbo/Z 

XI シリーズ 

► HOLE ON WALL 

7 巧ま負のブロックを使って壁じあいた巧をふさぐ。風 
変わりなバズルゲーム。—— JIR 0 NKA .マイコン BASK 
Magazine , 8 月号， 155- 157 pp . 

►マグネッタ君 

リモコンロボットを操作して货源をすべて取る。故力 
バズルゲーム。—— BANCO ，マイコン BASIC Magazine . 

8 月号， 158- 160 pp . 

►誌上な開巧巧状 

CU - I 4 ED . CU - I 4 FD は X 68000 と接続できるか？ XIG 
モデル 30 でが械賠モニタから BASK じ戻らずにデータを 
セーブすることができるか？ などに答える。——を田 
太が，マイコン BASK Magazine . 8 月号， 30 Ip . 

XII FM 音源ボード（要 NEW FM 音巧ドライバ） 

►マーペルランド〜アスレチック面〜 

ナムコのアクションゲー厶，ミュージックプログラム。 
——小室和生，マイコン BASIC Magazine . 8 月号， 184 


巧巧書案巧 



ロココ町は5年前廃圃になったロココ ランド 跡 
地にできた都巿。「超遊围地都巿 J 。東京は遊圃 
地都巿の一形態で，ロココ町は「東まの可能世 
界」のひとつ。「都巿は境界のない化大された遊 
園地」。作者が東まディズ ニーランド をを頭にお 
いていることは間違いない。ディズ ニーランド 
は都巿としては安全で人畜無害すぎる。人々は住 
人を演じているだけでディズ ニーラン ドは人々の 
ある節みを解がする代わりじ，ほかの部みを抑圧 
する。ロココ町はそうではない。常識を越えて住 
民を教育し，解がする。思考回路や斤動形態を解 
がして生まれ変わる。そして，ロココ町の一部に 


ならなければならない。それをスムーズ(こ巧うた 
めじ「巧伝子みが」なるものがある。遺伝子みネ斤 
じよってあるべき自みをみつけ，ありのまま快楽 
するなりなんなりする。 

センスのない時代遅れのコピーライターのため 
じ帯に" SF " と含いてあるが，これは SF ではない。 
確かじひと昔前なら SF としかみけられなかった 
が，今は一敝文学として成り立つ時代になったの 
だ。そして ，これは今を巧えるに欠かせない都巿と 
遊園地を胃も合した現代文学のひとつである。 （ K ) 
ロココ巧篇田雅彦ま集英社巧 03(230)6100 
四六判 243ぺージ1，200円 
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-185 pp . 

XIturbo シリーズ 
►巧 新ゲーム徹底解剖！！ 

大航海時代，セレクテッドソーサリアン4を徹底解剖。 
——編集部 ， LOGIN . 13号， 184-185, I 98- I 99 pp . 

► How To Win 

セレクテッドソーサリアン4,=圃志 II の紹介。——編 
集部，コンプティーク，8月号，1%-141 I 150- 152 pp . 
►ボパの塔 

をのついたパネルをすべて育じをえる，バズルゲーム。 
——中西弘幸，マイコン BAS 忙 Magazine , 8月号.161 
—1 62 pp . 

X68000 

► NEW SOFT 

ポピュラスデータ集「ポピュラス•ブロミストラン 
ド」とブームの新作口ールプレイング「ラグーン」を紹 
介。一編集部， LOGIN . 13号， 17-18 pp . 

► X 68000新閒 

北海道じあるソフトメーカー「ズーム」と「デービー 
ソフト」を訪ねる。そのほかポピュラス•プロミストラ 
ンド，トンネルズ&トロールズ，ギャラガ’88, Vesse 
I . GUNSHIP , を紹介。——編集靴 LOGIN , 13号，130- 
135 pp . 

►ホ 新ゲーム徹底解剖！！ 

トンネルズ&トロールズを徹底解剖！ ~編集部， 
LOGIN , 13号，190- 191 pp . 

► NEW SOFT 

新着ゲームの紹介。ギャラガ’88,ウルティマ V ，9月発 
売のレインフォーサー。——編集部 . LOGIN , 14号，20 
-23 pp . 

► X 68日日日新冊 

シムシティー X 68000 版の発売発表。新着ゲー厶のサ 
イバリオン，プロテニスワールドコート.ジェミニウイン 

グ，阳の血族。——編集部， LOGIN , 14号， 146-151 pp . 
►あ新ゲーム徹底解剖！！ 

トンネルズ&卜□—ルブの攻略まレポート。——編集 
部，し 0 GIN , 14号，196- 199 pp . 

►先取りおすすめゲーム 

ポピュラスのシナリオデータ集「ポピュラス.ブロミ 
ストランド J を紹介。——編集部，テクノポリス，8巧 
号， 8-10 pp . 

► GAMING WORLD 

新蒲ゲー厶のギャラガ’88,プロテニスワールドコー 
卜を紹介。 ——編集部，テクノポリス，8月号, 20-2 IPP . 
►新作ゲーム先取り！ Soft Flash 
制が中のソフトを紹介。銀巧英雄伝献 II . スペース 
口ーグ，クオータースタッフ，パイピヤン，サイバリオ 


ン ， Thrice ,イメージフアイト。——编集部，テクノポ 
リス. 8月号. 27 -29 pp . 

►巧略おすすめゲーム 

ウルティマ V を巧略。——編集部，テクノポリス，8 
月号，54 -56 pp . 

► How To Win 

ポピュラス•プロミストランドの紹介。——編集部， 
コンプティーク， 8 巧号， I46-I48PP. 

► X 68000 SPIRITS 

新着ゲーム，サイバリオン.ブロテニスワールドコー 
卜， 天下統 一 ，エメラルド.ドラゴンを紹介。——編集 
部.コンプティーク， 8 月号， 248-249PP. 

► WE ARE THE X 68000 WORLD 

ギャラガ’88,プロテニスワールドコート，間の血族 
•上巻， GUNSHIP と8月発売のサイバリオン， Thrice , 
——編集部. P 0 PC 0 M . 8月号，90 -93 pp . 

►ミュージック•パビリオン 

ミュージックプログラム。「パパ 」 By PRINCESS ?。 
——編集部 ， POPCOM , 8巧号.147 -150 pp . 

► SPACE W に P 

単純な敵よけワンキーゲー厶。一を野類.マイコン 
BASK Magazine - 8月号.163- 164 pp . 

► Legend of Adventure 

旅の途中に立ちふさがる騎±を倒して王女を救い出す。 
ジョイスティック専用。アクションゲー厶。——林純一, 
マイコン BAS に Magazine . 8月号，165— 167 pp . 

►恋のホットロック 

コナミのゲー厶ミュージックブログラ厶。——中西道 
—,マイコン BAS に Magazine , 8月号，186- 188 pp . 
►誌上公開質問状 

X 68000 SUPER - HD は BIOS のな良が巧われたが，これに 
よリゲ ームの スピードもち速化されるか？ X 68000 と Xlt 
win の両方が接続できるディスブレイは？ などの資問 
じ答えている。——を田太郎，マイコン BAS に Magazin 
e , 8月号，300 -301 pp . 

►ギャラガ '88 

電戒新冊社から発売されたシューティングゲー厶 
「ギャラガ’88」のメインブログラマ佐伯氏のインタビ 
ユー 。—— MUNEPI . マイコン， 8巧号，186- 187 pp . 

► X 68000 マシン語入門 

グラフィック加エプログラム集。階調ダウン，を平均 
化.画面とファイルの重ね合わせブログラ厶が収ままされ 
ている。——离橋雄一，マイコン，8巧号， 290-300 pp . 
►なんでも Q&A 

ビデオボードとカラーイメージユニットの違いは？ 
現をのパレットコードを調べたいのた•が？ などの舆問 
じ答える。——編お部，マイコン，8月号， 386-：387 pp . 

► Human 68 k VS MS-DOS 

Human 68 k じついて， MS - DOS との相違点-類似点を 


検証， Human ならではのバッチファイルの使用まなどを 
紹介する。——吉ミ尺敏男， I / O . 8月号. 97-1 1 0 pp . 

► HDC 

商速ディスクコピーブログラ厶。必要ない動作を省け 
るので巧率的。なわ，セクタをずらしたを則フォーマッ 
卜もできる。——巿原昌文， I / O . 8月号，161 -165 pp . 

► Graph メ ーカー 

データを入力すると巧れ線グラフを描画してくれると 
いう理工系学生の必霖お，グラフ作成ソフト。——西方 
茂樹， I/O , 8月号，153- 157 pp . 

►コン ピュータ.ビー ルス 対策 

を近世間を販わせているコンピュータウイルスの動作 
-巧策.退治まと IPL & SRAM チェックブログラ厶の掲載。 
——巿原昌文， I / O . 8 月号， I93-208PP. 

► PUSHD P 0 PD 

マーキング方ホのディレクトリ移勤ブログラム。面倒 
なコマンド入力がないのがを力。——井本裕司， I/O . 

8巧号， 248-252 pp . 

►俺ってドラ厶スコ 

ジョイバッドをたたいて FM 音;原のドラ厶を鳴らそう。 
——宮城良行. I/O . 8ち号. 256 p . 

► ENV.X 

環巧を数を，あたかも BAS にの文字列のようじ簡おじ 
操作するためのツール。——高橋美幸. I/O . 8月号. 2 

66 -268 pp . 

► G 98 SX 

SX - WINDOW 用のグラフィックローダ。 PC -9801の BR 
G データを ".PIX " おホに変換する 。—— Zenobia , 1/ 
0 , 8巧号. 270-27 Ipp . 

► LOAD TEST 

X 68000 の長期試用レポート。第 I 回の今回は賭入し 
てから，同捆のマニュアルのチェック， SX - WIND 0 W の 
試用まで。——編集部. ASCII , 8巧号， 426-429 pp . 

ポケコン 

PC - 巨500 

►ガンバレセイビイン 

荷物と自みを，入れ替えたりしながら，指定どおりに 
ホび換えるバズルゲー厶。——町野な，マイコン BASK 
Magazine , 8巧号， I 69 p . 

► AIR-WOLF 

ヘリコブターで敵をぶっつぶせ！ バリバリシュー 
ティ ングアクシ ョンゲー ム。——ミ毎上黄信，マイコン B 
AS に Magazine , 8月号， I 70- I 7 lpp . 

►表計巧プログラムのま用 （4) 

5月号の PC - E 500 表計をブログラ厶と PC -980 I のアシ 
ストカルクを使ってデータ交換をやってみる。——塚田 
洋 一 ，マイコン， 8 月号， 327-33IPP. 


mm 

数字オンチの諸君！ が原ぷ^^^ 3 m 

「数字オンチとは，数や確率といった基本的な概藥ソ卿 
念をぅまくぉぇなし、ことをし、ぅ」。こぅし、ぅ人は 

みン y レン•"ウロ^^ 胃 

算数の教育レベルが离い觀らしし、日本でも実落し^ 

JfWIR if 

じ多し、。よって，い-加減な数字やエセ科学じみ 


んなコロリと驅される。本害はそういった人々じ it 


冷たく儘しく数字の概念を身につける大切さとそ 

)爲1.で 

れがなんら難しくなし、ことを説く。ひとっひとっ参^^^^ 

• 

挙げるとキりがないが，珊を人間の良い点が随 
所に発揮された良きである。みんな必読！ （ K ) 

ジョン•アレン•パウロス著野本席代訳草思 

ス •A 

社巧 03(470)6565 四六判190ぺージ1. 400円 


パソコンかキのコスモロ ジー 

コンピュータを代表とするハイテクの持つ可能 
性に魅了される人はをい。彼らはコンピュータじ 
よって変わる精神やをまじ視点を•法ぐ。本書もそ 
う。パソコン少年に関する考察はイマイチた'が， 
ポイントは後半。パーチャルリアリティなど「パ 
ソコンを通して，人類のコスモロジーじ転換がわ 
こること」を示そうとする。秀逸なのが「めまし 、 J 
の概念。情報化は従来のさまざまな概念に「めま 
い」を起こすという。そのとおりどと思う。 （ K ) 
奥野卓司き筑摩書房巧日3(日 687)267 日四六判 
202ぺージ1,440円 
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X 68000 で常駐プログラムを作 
ろうと思ったのですが，作り方 
がまった < わからないので困っ 
ています。できることならサンプルプログ 
ラムも交えて，常駐プログラムの作り方を 
説明してくどさい。東京都須藤ネロ也 
が通にプログラムを終了させる 
城合は DOS コール $ FF00 (_E 
XIT ) を使いますね。この DO 
S コールは プログラムの確保していむメモ 
リが化戈をすべて開放してしまいますから， 
プログラムを常駐させることなどできはし 
ません。が粧させたいときは DOS コール 
$ FF31(_KEEPPR ) を DOS コール $FF 
00のけ;わりに攸います。 

化いぶはじ[下のようになっています。 
move.w code,—(sp) 
move.l prglen,-(sp) 
dc.w $FF31 

code にはプログラムの終 j •コードをネち 
をします。正皆;終 J ' のときは0を巧をして 
わきましよう。 prglen にはプログラムを 
巧;駐させる範晒を梢をします。引数を必嬰 
とする DOS コールを使ったあとはスタツ 
クの補正をしなくてはいけません力この 


DOS コールでは必要ありません。 

I 斯駐プログラムのサンプルがリスト1で 
す。エディタを化って入>0，アセンブル， 
リンクして灾こけ可能ファイルをれミウます。 
実巧の前に CTRL + F7 を 2 い， 1 押して，刚 
师に出てぃるファンクションキー表示を消 
します（こうしなぃとぶ斤結ががわかりづ 
らぃからです）。奥むすると Iluman68 … 
…，と装示されるでしょう。义ぞのをがし 
だぃにがみをが/してぃき巧っなじなったか 
と化うし今おはぶに淡くなってつぃには 
兄えなくなってしまぃます。するとまたも 
や靑みを增してくる。この動作を延々と娛 
り返すだけのプログラムです。 

プログラムが常駐してぃるのを確認する 
には，システムディスク （ Ver.2.0WJ: そ） 
の BIN デイレクトリにある PROCESS を 
奥けします。巧;駐してぃるプログラムは K 
E 巨 P と表示されます。 

このプログラムは常駐部分と非常駐部分 
で構ぶされてぃます。巧;駐部分ではパレッ 
卜のが更をしてぃます。非が駐部分では H 
uman ……を表示し，乖觀お j 側削り込みの 
設を，プログラムの•がが-化珊（ラベル skip 
U ド 5 巧です）をします。 


ここでは巧耻跪削を init — S ね rt を別•巧し 
て求めています力ず，私だってもっと節単に， 
move.l # init - start ,-( sp ) 

と:がきたいのです。しかし初期削 I けりがの 
AS.X では煎動かします。この巧き方で 
は II ，りをにソースリストにないコードが 2 
ワード（イミディエイトデータの値がをっ 
くりをのまま）埋め込まれてしまうのです。 

をのはかにプログラムを•某•おさせるとき 
に化なしてわきたいことをいくつか學げて 
わきましょう。 

いままで特に触れませんでした力す， DOS 
コール $FF31 で巧;駐することのできる範 
淵は，プログラムの化頭から引数 prglen バ 
イトかです。そういうわけで，プログラム 
を系化も、ときはまず常駐させる部分から帯き 
始めるのが私のやり方です。しかし，奥巧 
は非が駐部かの init からしなくてはいけま 
せん。をれには ii を終巧の. end に統けて init 
をおをします C これで夹巧アドレスが init 
になります。 

プログラムを組む場合はとんどの人がメ 
イン化现やサブルーチン群を前半に，ワー 
クやデ—夕を後半に-甚 いていく と思います 
力;’，巧;强プログラムで使うワークやデータ 




1 

•p 

♦ sample 1 .s 

3 

EXIT: 


equ SffOO 

4 

KEEPPR ： 

equ $ f f 31 

5 

B PRINT ： 

equ S21 

6 

VDISPST ： 

equ $6c 

7 

_G_CLR 

ON ： 

equ S90 

8 

GPALET ： 

equ $94 

9 

SYMBOL ： 

equ Sbd 

10 




11 


， text 


12 


， even 


13 




14 


15 




16 

start: 

movem.1 

d0-d2/a1,-(sp) 

17 


move.w 

St ,dl 

18 


move.w 

p 只 J et,d2 

19 


t s t ， w 

f J ag 

20 


bne 

pal2 

21 


arfdq.w 

#2 ,d2 

22 


cmpi ， w 

が 3 ,d2 

23 


ble 

pa 13 

24 

pall ： 

move.w 

* し flag 

25 

pa 12 : 

aubq.w 

»2,d2 

26 


cmpi.w 

M ,d2 

27 


bne 

pais 

28 


cl r, w 

l.lag 

29 

pal3 : 

and i ， w 

#63,d2 

30 


move.w 

d2 , pai e t. 

31 


move.l 

» GPALET,do 

32 


trap 

¢15 

33 


movem•1 

(sp)+,d0-d2/al 

34 


rte 


35 




36 

palet : 

dc. w 

1 

37 

flag: 

dr . K 

け 

38 




39 

♦ ここ 

までが巧な部み 

40 

♦拿拿京章本♦♦♦♦♦♦♦拿♦♦♦♦♦本♦♦♦♦♦♦♦京 ♦♦♦♦♦♦♦> 

41 

42 

♦ ♦ 本本本♦♦♦本本 ♦♦♦♦♦♦♦♦♦♦♦♦«♦♦♦♦♦♦♦♦♦«♦♦♦ 

43 

♦ ここ 

からががが gf 部か 


45 

init: 

moveq 

9 G CLR ON, か） 

X 

グラフィック画面を 

46 


trap 


♦ 

クリアしてま巧する 

47 


iea ， 1 

symdata,a 1 

拿 

X 6 8 0 0 0 

4 8 


moveq 

#_SYMBOL,dO 

本 

をま示する 

49 


trap 

#T 5 

♦ 


50 


tst ， i 

dO 



51 


bne 

error 

♦ 

グラフィックが使えない 

52 






53 


lea ， i 

start. , al 



54 


move.w 

#1*256+2,dl 



55 


move.1 

お -VDISPST,dO 



56 


trap 

»15 

♦ 

夕 J り込み巧を 

57 


tst ， 1 

dO 



58 


beq 

skip 



59 


lea ， 1 

mes1,a 1 

♦ 

削 0 込みが使用中 

60 


move.l 

*_B_PRINT,dO 

♦ 


61 


trap 

之 Td 

拿 

メ ッセー シをを示 

6 と 


dc.w 

_ 巨 XIT 

♦ 

诸おせず！こ終了 

63 






64 

skip: 

clr. w 

-(sp) 

♦ 

start 力、ら ini t まて ’ 

65 


move.l 

さ init,dl 

♦ 

を巧なさせて 

66 


sub ， 1 

#start,dl 

本 

が了する 

67 


move•1 

dl,-(sp) 



68 


dc.w 

J く 巨 EPl’R 



69 






70 

error: 

lea ， 1 

mes2,a I 



71 


moveq 

# B PRINT,dO 



72 


trap 

#15 



73 


dc.w 

EXIT 



74 






75 

mes 1 : 

dc ， b 

• をち巧ががりをみは巧に使用されています . 

76 






77 

me32 : 

dc ， b 

• グラフイツクは使用不可能です . • • U • 10,0 

•1 

J, 10，0 





78 






79 

symdata 

: dc.w 

0,16*31 



80 


dc ， 1 

x68 



81 


dc，b 

2.1 



82 


dc ， w 

1 



83 


dc.b 

1,0 



84 






85 

x68: 

过 c. b 

'Human68k V2.0r 

• |〇 


86 






87 


.end 

init 
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/jiiiIY 質問巧 


はが駐プログラムじ続くように黨いてくだ 
さい（サンプルでは pa 1 et , f 1 ag 力;'•が駐す 
るワーク）。こうしない^ワークやデータ 
のが駐ができなくなってしまいます。 

ド]じファイルが何個も常駐できてしまう 
ことらありがちです。をれを防ぐには类む 
するファイルおと同じファイル名の プロ グ 
ラムが， 如化メモリ上にある力，調べればい 
いのです。それにはメモリ管理ポインタを 
鄕ってファイルを検'糸•照合すればいいので 
すカミ，たいてい6， 7义字のファイル名力': 

つけられていることらあって，照なするに 
はちよいと I む i 削です。をこで考えられたの 
が プログラムの 化顿にヘッダをつけて，を 
れを檢索照なしていく方法です。ヘッダを 
半か4义•半にしてわけば，1 ロング ワード 
の 比較ですむので，ずいぶんと検索が楽に 
なります。 

これをプログラムにするにはメモリ管郡. 
ポインタの知識が必が不可欠ですから，りな 
単に触れてわきましよう。 

お々円身のメモリ瞥理ポインタは起動り 
後の aO レジスタによって示されています。 
ひとつ前のメモリ巧:理ポインタを知るには 
aO レジスタを使って， 
movea.l ( aO)，aO 

とします。 aO レジスタが0ならこれよりが j 
にメモリ'嘗现ポインタはありません。プロ 
グラムの-化贿はメモリ管现ポインタ+10011 
です。つまり， 

lea.l $100( a 0 ),al 

とすれば， al レジスタにプログラムの化が i 
アドレスが入ります。 

あ I は a 1レジスタとへッダを比較して 
一数すればすでに常粧しているのですから， 
メッ七ージを化力して終/させればいいで 
しよう。このヘッダチェック部かをプログ 
ラムにすると次のようになります。 
header : dc.b ’ X 68 K > 

* これより非常駐部 
check : movea.l ( a 0)， a 0 
tst.l ( aO ) 

beq 常•駐していない 

lea.l $100( a 0 ),al 

move.l ( al),dl 
cmp.l header , dl 

beq すでに常駐している 

bra check 

2 り•口は aO レジスタが 0 かどうかチェ 
I ックしているのですが，夹際問题として h 


かと閒じプログラムが1000011よりネ V いあ地 
に常駐しているとは考えられません。です 
から， 

cmpa.l #$10000 , al 
bcs 常駐していない 
としても[巧趙はないと思います。 

紹介したサンプルにはヘッダもないし， 
ファイル名の検索扛していません。サンプ 
ルでは垂直同期割り込みが使われていれば 
巧駐しないようになっています。おかむ身 
が垂 I 肉;问期割り込みを使っているのでこれ 
でいいのです（手かきかな）。 

常粧プログラムには削り込み化理やべク 
夕の雙ががついてまわりますから，これらに 
ついても話さないわけにはいきません。劑 
り込みを使うには10じ S コールを利)りしま 
す。注を;してほしいのは割0込み化靴の前 
後でレジスタの値が雙わらないようにする 
ことです。サンプルで^レジスタの保仔-を 
しているのがわかると思います。 

削り込みを利用してプログラムを呼び川 
したときは， rts ではなく rte を使います。 
削り込みは何秘類もあるのでひとつずつ説 
I リ1していく スペース はありません。ザ’ひプ 
ログ ラマー ズ マニュアル などの参考パな料で 
調べてみてください。 

次'じ，ベクタををがする場なです。べク 
夕を带き換えるといろいろとがしいことが 
できます。昔， V 区脳化楽部にあったゲボボ 
ディスクを'なえている人も夕いでしよう。 
あれはディスクのイジェクト I 划がの;削り込 
みべクタを変おしむものです。ベクタのを 
がは DOS コール$ FF 25(_ INT V CS ) を使 
って简単にできます力;'，不必巧にべクタを 
がき懊えることはシステムの破壊にらつな 
がるので，お信-のない人にはあまりすすめ 
られるらのではありません。 

さて，ここまでプログラムを•お駐させる 
ことに夢||!になっていました。が粧できる 
ようになったら解除もできるようにしなく 
ては片ホをちです。これには DOS コール 
$ FF 49(_ MFREE ) を使し、ます。 
move.l memptr ,-( sp ) 
dc.w $ ff 49 
addcj.l #4 ，sp 

上のようじ使います。 memptr には I 制放し 
たい プログラムのプロセス巧刊1ポインタを 
おをします。弊通はお駐プログラムを解除 
するときはスイッチをおをして巧うように 
なっているらのが多いのです力';，ここでは 


简略化して説 I リ1しましょう。 

化に紹介したへッダチェックプログラム 
を使ったとします。すでに同じ‘常駐プログ 
ラムがが化している場なはラベル「すでに 
常駐している」，に分岐します。をのとき 
の al レジスタはすで_に伴;駐しているプロ 
グラムの化颇アドレスを示していまず。こ 
れよりプロセス巧埋ポインタは FOh 前にあ 
りますから.引•なによって削がに求めるこ 
とができます。削り込みを使っているお郎 
プログラムの場なは，削り込みを雜 .11: する 
ことをおれてはいけません。「わかしな命 
令を実れしました」なんてメッ七ージが化 
てし まし、 ますよ。 

これでプログラムの巧;粧と解除の方法に 
ついてわかってもらえたと思います 。XI 
で問じようなことをするなら， LIMIT で 
マシン能領城を備保して，をこにお駐プロ 
グラムを的いてわくだけです。削り込みの 
設•去は Z 8() でらけっこう人がなものがあり 
ます力;'， X 68000 ではプロ七ス辟理やメモリ 
管现の前が絡んでくるので相当雛しく化え 
るからしれません。川:にはいろいろと巧駐 
ソフトが,111111，1っているので，デバッガで化 
人のプログラムを解析してみるのもいい勉 
強（恶い勉強になる可能性もある）になる 
かしれません。 Oh ! X にも OPMD などの 
巧駐プログラムがソースリストでな閒され 
ているので，それらを参そ-にするのもいい 
でしょう。 敝山御が) 


質問にお答えします 
日ごろ疑問に思っていること，どんなこ 
とでも結構です。どんどんお優りくピさい。 
難問，奇問，編集室が総力を上げてお答え 
いたします。ただし，お寄せいたた‘いてい 
るものの中には，マニュアルを読めばすぐ 
じ回答が得られるようなものも多々ありま 
す。最低限，マニュアルは熟読してわきま 
しょう。質問はなるべく具体的に機種名， 
システム構成，か要なら図も入れてこと細 
かじをいてくださし、。また，返信用切手同封 
の質問をよくをけますが，原則として，質 
問には本誌上でわ答えすることじなってい 
ますのでご了承ください。なわ，質問の内 
容じついて，直接問い合わせることもあり 
ますので，電話番号も明記してくピさいね。 
宛先：干108東ま都港区高輪 2-19-13 

NS 高輪ビ J レ 

ソフトバンク株式会社出版部 
「 Oh ! X 質問箱」係 
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FROM READERS TO THE EDITOR 


いまはすっかり夏休み。外では暇そうな 
子供たちゲ走り回り，どこへ巧っても人 
ばかり。こっちは仕事だというのに…… 


(単なるひがみ）。まあいいか，会社じい 
れば涼しし、し。しかし，それではあまり 
にも悲しいのでどっか行こうかな。 


た。ごめんなさい。岩崎利香 (20) 大阪府 
いえいえ，就んでいただくだけで大変光栄 
です。 

♦このハガキを7月 I 日に^降に出すとソフトバ 
ンクじは届かないのた•ろう々、。 

山崎幹生 （16) 新漏県 
いえいえ，もゃんとがきましたよ。郵攸摇 
さんが転ぶしてくれますし。お送といって 
扛スタートレックみたいなやつじゃないよ 
(をんなことは皆さん巧々ごを対0。 

♦私は某予備おの効きすぎるクーラーのせいか 
最近体の調子がよくありません。編集室は適 
温ですか？ 田舎の Pure な空気とうちわで健 
康を維持しタメじなる記事を書き続けてくだ 
さい。 上原巧哉 （18) 滋賀県 

僕の化身地は大阪ピから，空気はをんなに 
きれいじゃありません……。でも，り;1をっ 
ていいですよね。 

♦私の部屋のディスプレイ CZ -600 D じは， RF 端 
子でファミコンが，ビデオ入力端子にはメガ 
ドライブカ、’，デジタル RGB じは XlturboZ 力そ 
してアナ□グ RGB で X 68000 EXPERT D がつな 
がっている。いやあ， CZ -600 D って本当にすご 
いですねえ。デザインもいいし。 


梅ま信幸 （18) 京都府 
いいなあ，部塵にものがいっぱいあって。 

♦ある日，学校の図香館で僕が「なんでここに 
は Oh ! X がないんピ」なんてひとり言をいうと 
横じいたち人 K が「あっ。ということはおまえ 
持ってるのか J と聞いてきた。もちろん 
X 68000 のことだと思って「持ってるぞ」「おま 
えもか！ やっとユーザーが見つかった」と， 
しばらくの間，2人はとても喜んだ。2人と 
もネ刀めて同じユーザーが見つかったのだから。 
しかし，「おれドラスピ持ってるから何かと交 
換しよう」と言ったら，「へ？ それ X 68000 た’ 
ろ。なんのことピ。われ Xlturbo ピぞ J 。 その瞬 
間2人は白裝と化した……。というわけで 
X 68000 はユーザーが少ない。カナシイ……。 

福井達也 （16) 滋賀県 
をんなに恕概するほど X 68000 のューザー 
が少ないとは,世、わないんですけど。か俏わ 
をも10万台を突破したことだし。まあ，こ 
れからどんどん化をうようになるでしょう。 

♦天王寺公園がきれいになっていました。編集 
室には関西出身の方が大勢いると聞きました。 
大阪出身の方でわ盈休みなどで帰省される方 
は I 度巧ってみると涼がとれてよいと思いま 
すよ。入固料は150円です。 

鍋富之 (28) 大阪府 
別に関則化みは大勢 L 、ないんですけど……0 
まあ，僕は火阪化みなので暇があれば巧っ 
てみます。 

♦この間，あの 「 X 68000 ステツカー」を買って 
きた。何に貼るのかって一と，学校のゲタバ 
コのくつを入れるロツカーじ貼るのである。 
うお一，目立つ目立つ（カツコいい！）。 

清水了 （16) 大阪府 
をんなとこに貼らずにおでこに貼るとかし 
たらもっとり立つからしれない。 

♦うちの卓球部では国体予選で落ちたのでみん 
なスポーツ刈りじすることじなった。夏は巧 
ま頭で過ごすよ。 离橋政考 （16) 宫城惧 

いいなあ，ぶしをうで。で()，巧を頭にす 
る気はをがないけど。 

♦今春，うまいことじある外資系の会社の研巧 
室に潜り込んピのた‘が，毎日英文のレポート 


♦徹夜明けに Y 口を3回やって学校へ行く 。 JR 

の中で上から3色のブロックが . 。"ちゃら 

らん；>"，はっっ。目が党めると私は終点門司 
駅。その日私は I 限目に間に合わず，学科の 
全28名に大笑いされ……。また今日も徹夜明 
けに YET を3回やって。レポートの山に;立い 
てんた•よゎぉッ！岩瀬貴代美 （18) 福岡県 
よかったピゃないですか。終,なが一化福岡 
が内の門司駅だったんだから。^しをうで 
なくて，をのまま岡門トンネルを i 近って III 
II 化の下脚まで斤ってしまったりしたら， 
らう-大巧（をんなおホはないのかむしれな 

ぃ)。 

♦ 17 歳のときじ兄が買ったファミコンがゲーム 
との出会い。ゲームの世界にのめり込んで， 
はや7年。24にもなってこんなことをしてい 
ていいんピろうかと思う今日この頃。すべて 
のゲームが面白いと感じたあの頃じ戻りたい 
と思う私です。 大吉千恵子 (23) 茨城県 
あの巧に契りたいというのは，ひょっとし 
てネルじ、じ戾ウたいという理由ではなく，若 

返りたいということなのた•ろう力 . 。と 

ころで，どっちの年齢が本誓なんです力>。 

♦お]めて Oh ! X を読んた•とき，はっきりいってま 
るでわからなかった。2冊目……，やっぱり 
わからなかった。3冊……，4冊……，ずっ 

とわからないまま？ . グスン。と思いき 

やこの頃か〜しわかるようになってきたみた 
し、。30のね一ちゃん（未婚ですのでおばさん 
と呼ばないようじ！）になってからでも，わ 
勉強ってできるんですね。がんば！ Oh ! X さ 
ん，これからもどうぞよろしく 

か内夕起 (30) 静岡県 
いえいえ，こちらこをよろしくゎ哪いします。 
はかに内容がわからない人もいるかと思 
います力 f ， いきなりを部を现解しようとせ 
ずこのぶのようじのんびりとわかるところ 
を巧やしていけばいいじゃないです力>。 

♦主人のコンピユータでゲー厶をするピけなの 
で，7月号の特集さっぱりわかりませんでし 
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夕一となりつつある。はたして，元を取り巧 
すじはソフトを作って売るのと，友人にゲー 
ムのプレイ料を請求するのとではどっちが早 
いどろうか？ が井博 (20) 宮城県 

はたらけ 一。 

♦どうかわ許しく ださし、。 私はあやまって Oh!X 
7月号をある雨の日【こ地面じ落としてしまし、 
ました……。おわ！ せっかくの純白が巧れ 
てしまった。 森義穂 (24) 大阪府 

まさ力‘，わざとじゃあないでしようね。 

♦シミュレーシヨンファンとしては戦争ものが 
外にも何か出てほしいですね〜。 X 68000 用で 
もいいからスポーツ関係で何かないですかね 
〜。アメフトとかラグビー，ラクロス，オー 
ストラリアンフットボールなどなど。しかし， 
ルールを知らない人が多いから売りじくいか 
も。ゴルフゲームをこれが上リアルじするじ 
は経験を積まなければ場所じよる風の違いが 
わからなくすると力、，自みの巧つ前にライバ 
ルがノくーディをホめてプレッシャーをかけて 
くれるとかいうのもいいんじゃないでしよう 
力、。 山田和志 (21) 奈良県 

ス ポーツなら，やっばりインディアカと 力， 
を化すといいんじゃないでしよう力‘。 

♦透視力の話が出ましたが，たとえ透視力が使 
えるようじなったとしてもピント合わせが難 
しいのではないでしようか？ ピいたい服な 
んて I cm もないんですから透視しすぎて2 
cm ぐらい奥を見ようもんなら，体内の内腺と 
かが見えてしまうと思うんですけど……。ま， 
医者にとってはカラー版のん線写真として使 
えて便利なんでしようけどね……。 

佐々木美武 （17) 富山県 
あ一， 想像するだけでもお持ち恶い。 

♦ひとリ專らしをするようじなって明け方まで 
パソコンをやる日々が続いている。普通は体 
を'。配するが，僕は電気代のほうが'む配であ 
る。パソコンって電気食うのかなあ。 

河野英±(19)愛媛県 
をんなに電気は消巧しないと姐、いますが。 
実は夜な化とかのほうが夕かったりして。 

♦ 「ソフトバンク（株)」へ社名変更並びに新社 
屋完成わめでとうございます。しかも，まつ 


たくもってわめでたいことじ私は第 I 種情報 
処理試験に合格しました。月刊情報処理も買 
ってたた'けで置きっがした‘ったのどが……。 
午前問題で出た RISC とか TSS とかは Oh ! X で仕 
入れた知識でいけましたが，問題は関連知識 
の選択！数学と英語から4問おってあと I 
問，工業から取るつもりが答えがわからなく 
てその場で金融に変えるという……，よかっ 
た，共通 I 次の倫理政経を3回も受けてわい 
て（笑）。さあて，次はオンラインど！ 

広顧巧 (21) 京都府 
僕も-化姐1次は3川受•けたけど，あんまり 
なにはぶっていないようだ。 

♦大学で中国語が第2外国語の中に入っている 
どろう力、‘，「中国語は簡単ピ J なんて思ってい 
るあなた！それはとんでもない大間違いで 
あ一る。中国語はと一っても面倒臭一くて， 
いやじなる言語である。夏休みに中国語の大 
変な課題が出た！うわ一，をけてくる。卜 
ホホ。 小野寺光 (20) 宮城県 

ドイッ祕もフランス語も师倒舆いよ一ん。 

♦暑中お見舞い申し上げます。東京は水不足で 
大変だそうですね。水がなくて Oh ! X が発売で 
きなくなってもいいですから，無理しないで 
ください。 を野育規 （18) 和歌山県 

はい。 

♦そ一か，そ一どったのか。いくら送っても採 
用されないと思っていたら，僕が送ったディ 

スクはフォーマットされていたのか . 。も 

うこうなったら仕返しだ。もしプレゼントの 
ディスクが届いたら フォーマット してイまって 
やる！ 曽我部恭昌 （15) 富山県 

をんなこと言うんだったら，プレゼント当 
ててやんないら一ん（丫•供のケンカカ>)。 

♦編集室へ届いたフロッピーを I なじつき，ノ 
ーブランド50円，ブランド品100円で買いま 
す。10枚セットなら Z 80 A じ 4.7 kQ の巧巧:3本 
を付けて交換します。いや，たまたま机の上 
じ転がっていたもので……。ウソだよ一！ 

白井お （17) 神奈川県 
今りみから説んだ人はこの2通のハガキが 
なんのことだかをがわからないんだろうな。 

♦今度ひとり暮らしを始めようと思うのですが, 


を読まなきゃならんことじなってしまった。 
強制的に英会話のカリキュラムを受けさせら 
れるわで……。英語なんてどわいキライだあ 
〜。うっうっ家に帰れば X 68000 の コマンドは 
全部英文どし ィ〜。 ん〜ん！ 

原田真志 （19) 静岡県 
ホ巧系というとマクドナルドかな？をれ 
t も，ケンタ ッキー フライドチキン？（決 
してバカにしているわけではありません） 

♦労災で骨がして，はや3力月。会社にも行け 
ない，友人にも会えない C ましてや，彼女も 
いない寂しさから，つい X 68000 を買ってしも 
うた…… oH ソフトばっかやってる毎日。この 
ままではいか一ん！比企野一雄(巧）静岡県 
本当にをのままではいか一ん。 

♦ X 68000 SUPER - HD の最大の目玉は丹氏が含い 
ているようじ 「 SCSI 」 の標準装備であろう。し 
かし問題がひとつ潜んでいる。 SCSI は世界共 
通規おであるので他社製の周ぶ機器を使える 
ようじなるのピが， チタン カラーに合わせた, 
さらに マンハッタン シエイプに違和感のない 
デザインの機器がシャープ义外から出るのた‘ 
ろうか？ 外せけのハードディスクのときも 
こピわりの X ユーザーとして巧抗があったよ 
うじ思うのだが。山本雅昭 (34) 神奈川県 
う一ん，むかでをを塗るしかないかもしれ 
なし、。 

♦編集部の皆さん，こんじちは。僕はいま目が 
回るような感動に震えています。 Oh ! X のわま 
けディスクじ 入って いた 「0 PMD 」 を使った か 
らなのです。実は，が前に打ち込んだ Oh!X 
Live in ' SO のプログラムがサンプリングと同 
期されて バカスコ とスピー カーから 流れてき 
たときじは涙がこぼれそうでした。誰しもが， 
「なんだいまさら。こり ゃ！」 と思われるで 
しょうが，本人はそう思われてら平気なくら 
し、じはしゃいでます。ううう……。 Oh ! X さん， 
ありがとう！ 森田宣幸 （19) 宮城県 

なんだいまさら。こりゃ！（とかいったり 
して） 

♦いまさらながら， X 68000 の;令却ファンはうる 
さい。せめて30み動いたら5み回るというよ 
うじならないものか。昔， PC - 8801 mkn モデル 
30のときはディスプレイがきで4万円だった 
のをいいことじ，；令却ファンの配線を外して 
使っていたものだ。通気孔にガムテープ貼っ 
たりもした。でも，ぜ〜んぜん壊れなかった。 
まあ， X 68000 はプラスチック製でいかにも壊 
れそうピし，値段も張るので無茶なことはや 
めているが。 =宅宏典 （17) 岡山県 

たぶん，やめたほうがいいと,世、います。 

♦ XI 40 という雑誌を見つけた。 だが， 実は Oh!X 
がをさまになっているだけの話だった。 

西本圭輔 （15) 東京都 
しかし，縱がぶさまにしたんだろう。 

♦とうとう親に無断で X 68000 PRO を買ってしま 
った。早く C 言語を覚えてナイトストライカ 
一やメタルサイトを超える3 D シユーティン 
グを制作したい。しかし，現実はゲームセン 
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現在ひとりまらしをしている人に田]きます。 
どいたいI力月いくらぐらいで生活できるの 
でしょうか。 井田奨一 (22) 東京都 

をれはをの人の育ってきた生活レベルによ 


いいなあ，ウルトラ Q 力 U、 つでら兄られて 
(をういう刖題じやな一い）。 

♦美しいものはやっぱり自がに生きる生物た’と 
思う。表紙にはアツと誰もが思うような生物 


音しか出ないけど.これでスーパーハングオ 
ンやった日じゃあ，も一•最高ですって！ But 
モトスた•と間はけた•けれど……。 

野田敏么 （19) 神奈パ|県 


ってかなり異なります。巧乏ながらしをし 
てきた人はぞくて済みます力す，染势な蘇ら 
しをしてきた人は何—扛乃もかかるからしれ 
なぃ。 

♦大学の研究室で使っている PC-980IVX のハー 
ドディスクが冗んでしまった……。なれたと 
いう話はよく閒いていましたが自みのところ 
へ番が回ってくるとは。あ一，自みの X68000 
のでなくてよかった（といいつつもちくなっ 
てバックアップを取った私でした）。 

広瀬真二 (24) 東京都 
ホが间ってきませんように……。 

♦Oh!X は若い読者ばかりでなく，离年齢者も読 
んでいることを知ってくださし、。 

合原を (61) 千葉県 
いえいえ，ハガキを説んでいると,な年齡あ 
らお桃いることに気づきますよ。 

♦ 4 月に大学生になって6月よりバイト代をす 
ベて預金してわります。計實するとI年をじ 
X68000 SUPER-HD が買える予ま:。あくまでも 
計算上であるところが悲しい。 

小川佳昭 （19) 東京都 
がなすると200乃年後ぐらいに都内に•泉が 
n えるで•を。 

♦今日（7/8)，昼前に NHK を何気なく見ていた 
ら，いきなりソーサリアンのエンデイングが 
流れてきた（たぶんそうだと思う）。アザラシ 
がみいでいるシーンだった。 NHK でもゲーム 
ミュージックを使うのかとおいてしまった。 

宮岡=幸 (23) 千葉県 

ふ一ん〇 

♦現ホ私の X68000 はイカれています。電源を入 
れると 0S とかゲームは走るんピけれど，画面 
がウルトラ0してしまいます。 PC-880I をつ 
ないでみたら異常ないのでイカれているのは 
X68000 本体のほうた•と思う。そんなわけで私 
は毎日ネ斤るようじしてスイッチをオンじして 
います（早く修理に出せばいいのじね）。 

新帯達哉 （19) を知県 


のグラフィックを載せてもらいたい。いまま 
での表紙はせの中や社会に柿いて捨てるほど 
あるようなパターンばっかり。うんざり。う 
んざり。も一いや。やめて。ふが乾く。潤い 
を！ が畑貴史 （19) 広島県 

をうですよね。オコゼと力>，チョウチンア 
ンコウと力>,ナマコと力*,サナダムシと力*, 
自がには美しいらのがいっぱい（償ってや 
なやっでしよ）。 

♦X68000 のウイルスで大騒ぎしてましたけど， 
Macin れ sh では日常茶飯をのようです。ゼミの 
予習で使っていたら画面に死神が出てきまし 
た。ゼミは明日た•というのじ。誰か私の予習 
ディスクを元に戻してくださし、。 

加藤弓なじの大阪お 
じゃあ，あなたのディスクを元に，つまり 
化ディスクじなこしてあげましよう。 

♦マシン語， CG, ハードウてアエ作。やりたい 
ことはたくさんあるのになかなか手が出ない。 
いままでヒマがないからできないと思ってい 
たが，もしかしたら，そうではないのではな 
いか。足りないもの，それは「締め切り」？ 

村尾遊 (26) 岡山県 
「締め切り」力巧るからといっても，なか 
なかできむいことはよくあります（絳験-名- 
は語る）。 

♦ついじ X68000 を買った。戚取）！ ちなみじこ 
いつと MZ- 2500が6畳一間の部屋じホんでい 
るさまはなかなか化観です。なんと情報処理 
のI種じをかってしまった。感激！と幸せ 
いっぱいの日々を送っている最近の私ですが， 
さすがに X68000 のン十万の借をはつらい 

. 。 中村祐一 (20) 東京都 

楽あれば巧あり。起きてザ巧:，おて1巧:。 

♦MIDI ボード買ったけど，音源までをが回らな 
いという間巧けなあなた（んな人はいないっ 
て？）。口ーランドの 「DR-550 (32, 000円）」 

を買いなさい。これはドラ厶マシン（いわゆ 
るドンカマってやつ）だから，当がドラムの 


だを一です。 

♦この間読んだ新聞じよると，2030年頃には平 
巧気温が温室効果で2〜3度上がるそうだ。 
そして，夏はぃまよりも猛署で天候不腊じな 
るとぃう，となるとパソコンじは辛ぃことじ 
なるのは間違ぃなぃわけで，熱と雷にかする 
方法を何か考えねば！（全国の皆さんはどう 
してぃるのだろう？） 岡部誠(巧)福井県 

をれよりらクーラーを巧ってぃなぃ人（っ 
まり，僕のこと）じホぃことは間ぶぃなぃ 
わけで，をれじがしてぃぃ方法を巧えても 
らわねば！えっ，クーラーを巧えって？ 
をりや，もっとも。 

♦このち，ロシア語聴講者と講師でソビエトじ 
旅行に巧くはずだった。でも.貯金が足りな 
かったのであきらめた。ぃまじして思えば 
X68000 を巧保じしてでも行ってみたかった。 
トホホ……。 神生直敏 (20) 板木県 

う一ん，ソビエトじ巧くとぶしぃかもしれ 
なぃなあ。 

♦大学生ってI忙しぃものだったんて•すね。クラ 
ブ活動，コンバ，ボウリング，ハイキングじ 
キャンプ，自助車学校にアルバイト，これに 
パソコンが加わるとまさじ体が2つぃるなあ。 
なじ？ 勉強？ テスト直前まで忘れてぃな 
さぃ，そんなもんは。越智一秀 （19) 広萬県 
はぃ，私もテストI立前までをれてぃるはう 
でした。かいこをんなじが:しぃことらなかっ 
たんです力 f。 

♦ 6 月9日（±)，ビジネスショウで見た PC-286 
Book のコマーシャルがテレビで。「あれっ，も 
う売り出してぃたのか」。6巧II日（巧），会 
社が暇なのをぃぃことじ巧け出して秋葉原へ。 
ああ，つぃじ PC- 9801互換機を買ってしまっ 
た。ゲームをやりたぃばっかりじ！ 遥かな 
る才ーガスタをやる。うん，速ぃ。ポピユラ 
スをやる。反応がよぃ。ソーサリアンをやる。 
音がさみしぃ……。しかし 4kg を超えるとや 
はり重ぃ。 AC アダプタやフロッピー，マウス 
なんかも持ってぃかなくてはならんとなると 
つらぃ。で，今週は会なじ置きっがしなのだ 
った。ゲームをするためじ貿ったのに，実は 
仕をじ使ってぃる。 X68000 のときとは逆ピ。 

森啓泰 (23) 東京都 
今週だけでなく，ずっとな社に;巧きっ攸し 
のような則•もする。 

♦X6800 の100万台突破のためじも，これからも 
ガンバッテくださぃ。 X6800 が国民機になる 
日も近ぃ！この前，伝言板に X6800 のパン 
フレットを貼って「これ買わなきや操するよ」 

と書ぃてわぃた。 木下闻リ （16) 神奈川県 

あの一，をれはぃぃんですけど。 X6800 じや 
なくて X68000 なんです力 f。 まあ，よくある 
りリ述ぃってやっですむ。 

♦ 7 月号の特集の中のマルチタスクへの挑載で 
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は昔のことを思い出してしまいました。7, 8キ 

ダメージを受けたトルコ，フィンランド両国 

前，月刊マイコンじ MZ -80 シリーズ用の 

は歴史上でただ1国ロシアを屈服させた日本 

MONIOS とかいうのの記まがあって，8253をイま 

の東郷平八郎を称えて，それぞれがの像，斗を 

ったマルチタスクのわ話で，当時 MZ -80 K 化を 

軍ビールシリーズというものを作ってム、中う 

持っていた私はアセンブラでマルチタスクを 

っぷんをはらしているのです。 

して遊んピことがありました。 

上田秀晃 （19) 福島県 

野村正文 (21) 茨城県 

♦いまを潮ること85年，フィンランドは帝政口 

マルチタスクというと盤徳太平（?)。 

シアの支配下じありました。しかし，日本;‘毎 

♦ナポレオンが日本で人気があるようじ，東郷 

海戰でバルチック艦隊を東郷平八郎率いる日 

平八郎はフィンランドでは人気があるのです。 

本軍が破り，ロシアは戟争に負け，ロシア革 

理由は東郷元帥がいつも自みたちフィンラン 

をが起こり，フィンランドは独立を腺ち取る 

ドをしいたげてきた帝政□シアのバルチック 

ことができたのです。フィンランド人という 

艦をを日本•海海截で破ったからです。 

のはなんと義理堅い人たちではありませんか e 

新熊昂 (34) 大阪府 

趙智巧 （17) 島根県 

というわけで， 7り皆の山崎さんの問い力‘ 

♦書いてきた人も多いかな？ フィンランドの 

けに対する巧えをいちばん早く普いてきて 

宙ビールはアドミラル（将軍）ビールといっ 

くれたのがこの方です。ああ，ありがたや 

て，東郷平八郎がロシアの艦隊を破ったとき. 

ありがたやと思っていたら……。 

当時ロシアに苦しめられていたフィンランド 

♦たしか日謀戰争で当時世界最強と i 屋われてい 

がその勝利を称えて作ったものらしいですよ 

たロシアのバルチック艦隊に弱小日本の帝国 

(山崎さんへの回答をする山曠)。 

艦隊が勝ってしまったということで，その頃 

山崎勇 （28) 新谓県 

ロシアに支配されていたフインランドの人々 

♦週刊朝日百科「日本の歴史」（朝日新聞な）じ 

が大いに勇気づけられた。ということなのだ 

よると世界•海載史上で 「The Battle of Tsu 

そうです。どから，向こうでは「東郷のへ一 

shima 」 の名で呼ばれる日本海海戟の指澤官と 

チャンは英雄なんだ！」って高枝の時の英語 

して大胆なる敵前大回頭をとった騰利の見事 

の先生 （6? 歳）が言ってました。 

さじよって，東郷平八郎は「東洋のネルソン」 

イ尹藤義博 （19) 東京都 

として喧伝された。そのため，バイキングの 

♦たとえ，いまソ連が変わってきたといっても 

が地ともいうべきフィンランドでネルソンと 

過去に数え切れない死傷者と政治的圧迫で大 

ともに著名な提督の名をつけたビールの商品 
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名じなり.現在も売られているそうです。 

青山ネ日広 （18) 愛知県 
しこのように山のようなお郷•ド八郎のハ 
ガキがぶられてきて（ここに,1がっているの 
はをのうちのごく一部》 Jii ぶまでをの II に 
米たハボキを説んでいくと必ず何姐かはお 
郷 f •八郎に脚するハボキを I !にするという 
II 々が統きました（が郷‘ド八郎の5 父.•が’ 
如にこびりついて離れないよ一）。どうもた 
くさんのハガキありがとうございましむ。 
これで山崎さんむぐっすりと眠ることがで 
きるでしよう（いままでらちゃんと眠って 
た？）。 


(まくらの揭示板 


♦巧載ごを望の方は，官製ハガキじ項目（売る•買う•氏名•年齢•連 
絡方ま…… ） を明記してわ申し込みくピさい。 

参ソフトの売買，交換じついては，いっさい巧載できません。 
♦取り引きじついては当編集部では黄任を負いかねます。 

♦応募者多数の場合，掲載できない場合もあります。 


仲間 


売ります 


★ X 68000 ユーザーズクラブ 「 WATER 」 では第2次 

会員を募集しています。今回より f HYPER - 
SHAKEj というディスクマガジンを発行してわ 
ります。 X 68000 を持っているあなた！ I 度連 

絡くピさい。巧はさせません。入会資料のみ希 
望の方は62円切手を貼った封筒を，ディスクマ 
ガジンを見てみたい方は400円みの為替を同封 
のうえ，下記までご連絡を。〒975福島県原町 
市小川町 109-2 山崎潤一 (21) 

★ X 68000 ユー ザーのための， X 68000 ユーザー じよ 
るサークル「兎団」ではたピいま会員を大募集 
しています。活動は主にプログラムや情報など 
の交換をしたり，シエアウ X アソフトの発表を 
したりします。合言葉は「巧倒電脳俱楽部」で 
す。やってみて巧はありません。詳しくは120円 
切手3枚同封のうえ，下記までご連絡を。干503 
-21 岐阜県不破郡垂井町宮代 2840-1 田川和 
義 （16) 


★カワイ KI D (箱が外が属品はすべてあり.新同 
品）を RAM 力ード， ROM 力ードをを I かイ寸けて5 
万5千円で。ホ莲じよりソフトケース （3 千円 
増)，スタンド （5 千円増）もせけます。連絡は 
往復ハガキで。干243巧奈パ|県属木巿妻田し 
158そりだハイツし423 山野和也 （19) 

I 買います 

★ MIDI 音源口ーランド 「 CM -64」 を6万〜7万円， 
シャープ 「 CZ -6 BMI 」 か 「 SX -68 M 」 を1万円1^>^ 
内で。いずれも完動，箱，マニュアル，付属品 
がき。連絡はハガキで。〒164東京都中野区東 
中野 2-3-8 林方安嶋栄巧 （19) 

★ CZ -6 VTI を3万円で。多少、巧れていたり傷があ 
つても結補です。連絡は往なハガキで。〒186 
東京都小平巿上水南町 4-9-8 山野得生 （18) 

★カラーイメージボード 「 CZ -8 BV 2」 または 「 CZ - 
8 BVIJ を送料込み I 万円で。連絡は往複ハガキ 


で。干652兵庫県神戸巿兵庫区塚本通 3-1-4 
岡崎礼子 (25) 

★ X 68000 の増設 RAM ボード 「 CZ -6 BEI 」 を I 万5干 
円前後で（マニュアルがき）。連絡はハガキで。 
価格優先で I 人ピけに2週間け内に連絡します。 
品物が届いてから代金を送るつらりですので， 
そのを件では都合の悪い方はご遠巧くピさい。 
〒399-日2長野県諷訪郡富±見町富±見4654 
宮下朗 （18) 

★ XI 用 FM 音源ボード 「 CZ -8 BSIJ (付属ソフト.マ 
ニュアルがき）を8千円で。完動品.外観不問。 
1987キ10, 12月号，1988年12巧号および1989年し 
2月号をせけてくれる方には I 万 I 千円で。連絡 
は往復ハガキで。〒839-11福岡県义留ホホ善 
導寺町与田 37-14 鹿田剛 （18) 

/ぐツクナンノぐ一 

★ Oh ! XI 989 年1〜8巧号を送料込み6千円で買い 
ます。切り巧き不可。連絡はハガキで。〒280千 
葉県干葉巿星义喜巧1173佐义間馆 （18) 
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編集まから 





DRIVE ON 

このコーナーでは，本誌年間モニタの方々の 
ごち見を紹介しています。今回から新しいモ 
二夕の方々じご意見をいただくということで， 
記事に関することどけではなく，コンピュー 

夕や本誌に関していろいろなことを質問させ 

ていただきました。これからもいろんな二と 

を聞かせてもらいたいと思います。1年間ど 

うずよろしくも'願いします。 

バソコンじついての考え 

•パーソナルコンピューティングとは本来 
「それ自身 J を楽しむもの。つまりコンピュ 
—夕に触リイマジネーシヨンを高めていくと 
ころに楽しさがあると思う。また，僕がコン 
ピュータをタロった頃というのはそのような考 
え方が当然の時代であった。 BAS にじしろ，マ 
シン語じしろ.数々の言語じしろ，それを使 
って何かものを作る，ということは二の次で 
あるような楽しみ方をしている。考えて，ぶ 
つかって，反応が返ってくるのが面白いとで 
もいうのであろうか。また，そのような楽し 
み方があるからこそ， MZ の古いテープベース 
の言語なども出回ったのであったと思う。 

長を川敦±(17) MZ -252 I . MSX 2 山形県 
参私はハード屋さんですので，「人間の生み出 
した技術は人間の生命維持に役立たなくては 
いけない」という基本理念を持っています。 

ホ厶が自ら作り出すものにおいても，作る人間， 

使う人間巧方にその有効性を享受しなければ 

いけないと思っています。私の周りの機械た 

ちは人間の害になるものじついてはどんなこ 

とがあっても排除されるというたいへん厳し 

い環境に覆かれて苦労しているようです（で 
も，動かなくなったら屯、を込めて修理しま 
す）。しかし，これをかし飛罐した解釈で臨む 
なら，「人間が生み出した技術は人間が便利に 
なるならどう用いても構わない J ということ 
じなると思うのです。言い換えれば，「骨まで 
しやぶる」ということじなります。コンピュ 
一夕，とりわけパソコンは信じられないよう 
な進化を遂げ，より髙い性能を，より使いや 
すい環境で我々じ提供しています。ユーザー 
が 「あぁ，便利だなぁ」と思えばそれはパソ 
コンがその能力を発揮していると考えるべき 

で，どうして便利と思われたのかは特に問わ 
れるものではないと思うのです。つまり，せ 

っかく個人で巧有できるのだから，使いたい 
ようじ使って便利に，そして幸せになればそ 
れでいい，これが私のパーソナルコンピュー 

ティングに対する考えです。そもそも检は， 

コンピュータを個人で所有することなど考え 

てはいけなかった時代の人々が現実じ個人所 

有できる"コンピュータ"を目の当たりじし 
たとき，そのギャップの大きさゆえに「パー 
ソナル」と誇張するに至ったのだと考えてい 
まして，あまり個人用ということじ巧しては 

二た•わりたくないというのが本音だったりす 

るのです。 

浅野 お （19) X 68000 PRO , XI turbo の ，XI F 
model 20, MZ -80 C , PC -6001, M 5 jr , PC - 1245 

大阪府 

巧 近の本誌の傾向じついて 

参最近特に気づくことであるが，内容がやさ 
しすぎるものがあると思う。記まではなくそ刀 
ム、者に巧してこのことをいいたいのである。 

於下のことを例として挙げる力 S これらのこ 
とは絶巧に人に閒くよりも自みでマニュアル 

などで調べて理解しないと，将巧本当に理解 

できないだろうと思う。アフターケアの 
config . sys の含き換え，メモリの件などであ 
る。この2つは（ほかにももっとありますが） 
システムを i 里解するうえで逃げられないもの 

であるピろうし，人に聞く前に自みで工夫し 
てみてもいいんじやないかと思う。やはり， 

年1回か2年に1回くらい，永义保存版でこ 
れが上やさしくできないというくらいの特集 
を組むしかありませんね。……でも，言わせ 
てもらっちやうとマニュアル読んでできるこ 

とは説明しなくていいと思うし，初屯、者の甘 

えはよくないと思う。 

中川比呂志 （19) X 68000, X ICs 東京都 

特お 「マシンおへのま 一歩」 じついて 
♦いやいや，私にはむずかしすぎて。でも， 
「ぜんまいち やん」 は面白かったです。私は 
「ぜんまいち やん」の 過去を知りませんが。 
こういった取っ付きやすい記事は大歓迎です。 

6月号の付録ディスクの PASCAL コンバイラ 

で1から100まで順に足すというなんとも単 
純でアホらしい（しかし，昔はソロバンでよ 
くやったものである。それに，私はそれくら 
いのプログラムしか組めないのである）プロ 
グラムを組んでコンパイルしたのですが， 

AS . X がなくて（リンカは HLK を持っている） 

ソースファイルしかできなかったんですね 

( P . 132の 「 Q 」 は私ではありませんが，私も 
そう思ったもののひとりです）。そこでなんだ 
か興巧がわいて，できたソースファイルを ED 
じ読み込んだんです。そこで，「あ一」。10行に 
も満たなかった稚拙なプログラムがなんとも 
長くわからないものに（当たり前か）なって 
いたんですね。そこでひと言，「マシン語とは 
なんと奥深いものなのだろう！」ということ 
で， いつ力、68000のマシン語を勉強してみたい 

ですね。 

安井百合ミエ （16) X 68000 PRO 愛知県 
• 7 月号の特集でよかった点は，マシン語が 
まったくわからない人でも読めるということ。 
吉田幸一氏の「ぜんまいちゃん」はマシンと 
マシン語の関係を理解しやすく，しかも面白 
く説明している。そして，毛巧俊斤氏の記事 
ではもっと具体的にアセンブラの使い方を示 
している。この中で目新しいのは例題がある 
こと。たったこれピけのことで，知識として 
ピけでなくビジュアルじキ足えることができる。 

私もこの例題にはわ世話じなりました。しか 

し，そのあとは MC 68000の話になってしまっ 

て，基礎知識がまったくない私にはさっぱり 
わからなかった。なわ，最後に山田純二巧が 
しっかりと XI , MZ ユーザーをフォローして 

いるのを見て，これが Oh ! X という雑誌の本来 
のをどと思った。 

烟剛志 （18) XI turbo modelI 0 /ZD , JR - 100, 

MSX 北海道 

ごめんなないの 

8月号表紙ぎやらリぃ 

1989年7巧号の写真が8月号のものじなっ 
ていました。わ詰びいたします。 

8 巧号 XROTO.X 

大きなオブジェクトとリンクしたときにリ 

ンカの才ーバーフロ ーエラー【こなることがあ 

りますので， XROT 0. S の208行の BSR W LINE 
を JSR WJJNE じ変更してくださし、。また， 
XROT 0. S は画面サイズを設定する引数 W , H 
を128までしか受けせけません。 

7 月 号 ノーマル XI への 巧応 

P . 140リスト2の1040行の「で1」は正し 
くは 「 KM 0 DE Ij です。 

パ 1—— ォプ 、 A « l ^4+ f + わ問い合わせは原則として’本誌のバグ 情 

八ク1一曲するお巧し1口りでな 報のみに限らせてし、たた•きます。 入力ま，撰 

巧的【5488)1311(直适） 

月〜金曜日 16 : 00 〜 18 : 00 ホめるわ電話をいたた'きますが.本誌ではい 

っさいお答えできません。ご了承くださし、。 
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港区高輪唐 
Dh ! X 第1号 
それがどぅしたって？ 

▼編集室が引っ越し，今月号は新しいビルで 
ネ刀めて作った Oh ! X となります。一口に引っ越 
しといっても， Oh ! MZ ^ た!)、らのマシンやソ 
フト，資料などを引きずる Oh ! X の荷物は生半 
可なものではありません。たった4人の部で 
あるじもかかわらず，荷札の数は50懒を超 
え，数ある編集部のなかでも最高でした。 

その新しい建物ですが， I ，2階力く‘銀斤で， 
3〜10階がソフトバンク，最上!皆がレストラ 
ンというデイレクトリです（ちなみに Oh ! X は 
3階じあります)。新築で設備もなかなかなの 
ですが，なじしろ下に銀行があるものでビル 
の管理力懒しい。24時間得体の知れないスタ 
ッフが出入りする編集部じはきついのです。 
深夜来るスタッフじは駅前の公衆電話から 
「開けてコール」をかけてもらい， I 階の通 
用口まで迎えに巧くという情けなさ。なんと 
かしてもらいたいのです力 <。おまけにこのぶ 


じは食べるところが異常に少ない。上のレス 
トランは高すぎて巧^けないし……，編集スタ 
ッフの食生活はどうなるのでしょう。 

というわけて今回は， Oh ! MZ の創刊第2号 
を3名の方に差し上げたいと思います。ご希 
望の方は綴じ込みのアンケートハガキのプレ 
ゼント No •じ0と記入してお送りくピさい。 
▼さて，今月号の特集 I は，かねてよりあ々 
やらねばと考えていた日本語処理に関するも 
のです。 Oh ! X が考えるパーソナルマシンはそ 
れ自体が魅力的であると同時に，ユーザー•が 
使う気になれば実務にも耐えうるものでなけ 
ればなりません。でも，本誌読者の皆さんの 
大多数は，年賀状や簡単な文書が外に，日本 
語の文章を自みで考えて作成する機会があま 
りないのではないでしょう力、。ビジネスソフ 
卜が少、ないという前に，そういうソフトを必 
要とする状況を現ユーザーのなかからも生み 
出していかなければと思うのです。できれば， 
バソコンで日本語を処主里することに関する皆 
さんのご意見をお聞かせくピさい。 

▼今月の INTEGRAL XI は編集の都合じより 
わ休みさせていたピきます。 


•原稿じは，佳巧•氏名•年齢•職業•連格 
先電話番号.機種.使用言語.必要な周ぶ 
機器.マイコン歴を明記してくださし、。 

•プログラ厶を投稿される方は，詳しい内容 
の説明，利用ま，できればフローチャート， 
変数表，メモリマップ（マシン語の場合） 

じ，文献を明記し，ブログラムをセー 
ブしたテープ（ディスケット）を;素えてわ 
送りください。また，掲載じあたっては， 
編集上の者恰じより加筆修正させていただ 
くことがありますのでご了承ください。 

•ハードの製作などを投稿される方は，詳し 
い内容の説明のほかに回路因，部品表，て- 
き れば実体配線図も添えてくピさい。編集 
室で検討のうえ，製作したハードが'必要な 
場合はご連絡いたします。 

♦投稿者のモラルとして，他誌との二重}鋪 I ， 
他機種用プログラ厶を単に移植したものは 
固くわ断りいたします。 

あて先 

干108東京都港区高輪 2-19-1 3 NS 高輪ビル 
ソフ ト バンク出版部 
Oh ! X「©©@®j 係 


SH IFT -BREAK 


►まぶたを閉じると，グラデーンヨンが浮かび，耳 
をすませばジエノサイドの音楽が……〇最後の夏休 
みた’というのじ暇をもてあましている。楽しみじし 
ていた旅斤も巧けなくなってしまったし。ここは， 

涼しいマシンルーム，部屋に帰れば3娘も振り切り 
っぱなしの温度計が僕を迎えてくれる。不毛な日々 
々带!いているなあ。がんばろ。 （純） 

►車で編集室にくると，そのままどっ力、へ巧 P くこと 
もままある。この前は S . K . 氏とタイヤを鳴らして深 
巧の17号を爆走(でも軽なの)。まあ S . K . 氏との爆走 
ドライブはいいとしてら，編集の A 氏との迷走ドラ 
イブじは困るな一。なぜか A 氏が横に座ると必ず迷 
うのだ。車の中でダジャレ勝負をしてし、るせいでは 
ない，と思うけど。多み。 （ H . U .) 

►リンドバーグのボーカルの旌瀬マキが元アイド 
ルた’とは知らなかった。一本取られたな。さて，夏 
休みはむじをしよう？友達はみんな田舎に帰るし 
なあ（下宿にはクーラーがないが実家にはあるか 
ら帰るのだそうた’)。一方 I 東まじ残る組はをのスキ 
—じ備えてバイトするのどそうた’。まったくなんな 
んだ？こいつら。 （亀） 

► 出張でスペインとポルトガルに巧^ くことになった 
のだが、 出発予定日の3日前になっても飛斤機が何 
時に成田を出るの力、知らされていない。それどころ 
か，旅行会社は昼出発と言い，航空会社は夜出発だ 
と言い張る。おまけじ，旅行会社から聞いたポルト 
ガルのホテルのを所は実をしなし、地名ピという增だ。 
果たして無事たどり清くのだろうか。 ( K . M .) 


►全国的に恥をさらすようだがし、ま免停中である。 
この本が出るころには更生していることどろう。 
常々 I あんな取り締まりで違反者が减るはずないと 
思っていた。しかし今日，その考えを変えた。あの 
2日間もの講習はイヤガラセとしか思えない。あれ 
をもう一度をけることを考えると，違反する気が失 
せる。う一ん素晴らしし卿止効を （ A . T .) 

►効き力课い一たまじ巧かなくなる一> たまじは効く 
一減をじ効かなし一効いたら奇狐と5段活用して 
インタラプトスイッチカ巧 E んピ。デバッグ中にバコ 
バコネ甲しまくったからな一。追い打ちをかけるよう 
じ，今度はリターンキーがチャタり出す。期せずし 
て CTRL + M の人となった僕は，右手 W 旨が楽た•ぜと 
うそぶくのだった。 （ Mu ) 

►そんでもって，ハンニバル•レクターである。人 
間を論理的に面白く書けるトマス•ハリスって凄い 
と思う。ハヤカワ文庫 NV の「レッドドラゴン」と新 
潮文庫の「羊たちの沈黙」を読んでちよ。1^1的な 
親切と力、論51的な愛とか論 i 動 U な狂気とか論理的な 
ギャグと力、言疑里的な極雷!と力、。論 i 里的冷さと 
曼转敲里的情動はゃはり'必要ピよね0 ( K ) 

►ふと,思い立って車を賈うことをホ'。した。契約す 
るのに呈文判ではカッコ悪いと思って新しいハンコ 
も作った。だがディーラーは僕に駐車場がないとい 
う理由でハンコを押させてくれなし、。せっかくの意 
気込みを巧ち砕力、れた。サービスて堀車場くらし觸 
してくれてもいいじゃなし、。ああ面便误いなあ。 

舶夕ーボの3倍モードが I お画な K 0) 


►電車に乗っていると，突然横に座っていた外国 
人が話しかけてきた。なにかと思ったら自みの降り 
るべき駅々市頗^目かと……そこでとりあえず教えて 
あげると，わホしじ （？） 名刺をくれた。名前を見てイ 
ンド人かと思い「インディアン？」と聞いてみたが 
見事タトれてしまった。今度パキスタンじ斤ったら家 
じ泊めてね0モハメッド=ユーナスさん。 （ A ) 

►編集部の引っ越しを微こ，杉並区民から橫兵巿民 
じなる;夫意をした。力\間題は荷造り。4年間で蓄 
ネきされたおおよそ独り暮らしとは思えない物 fi をま 
とめるのは不可能に近い。何人か友達を引っ張り込 
もうかとも思ったが，また不恃定多数の人間が出入 
りしそうなのでやめた（今度は 3 LDK ピし)。ああ， 
ドラえもんがほしい……。（と思う怠け者の E . O .) 
►「 ASK 68 K ってなじがまずいんでしたっけ？ J 「や 
っぱリ举漢字じゃなし、ですか J 「読みがなも単漢字登 
録すればよくなりますよ/なるほど」「ほかにまずい 
点って？」「なんでしたっけ？」 i 見なのところメイン 
辞さ 740 K バイト，サブ g 辛書 I I 8 K バイト。もうかしな 
ら，なんとかなるな。あとはレーザープリンタもほ 
しいところピが……〇 ( U ) 

► 8つの編集部が I つの大きなフロアに並んピ。整 
然としたオフィスの端に立つと， I 力菌所だけニヨ 
キニヨキとそびえ立つ棚の上じさらじ荷物力欄み上 
げられた义山地帯が視界をさえぎる。そこ力<秘境と 
呼ばれる Oh ! X と Oh ! FM の編集部た’。しかも夕方じな 
ると織封装を背負ったゴーストバスターズわばさん 
がやってくる。「ここって迷路ね」どって。 （ T ) 
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巧々じとってワープロは商売道具ど。原稿用 
おを相手じする代わりじワープロで文字を追う， 
それが当たり前になって3,4年。すっかりワープ 
口に傅れきってしまった。いまでは原稿用紙じ 
ひとマスずつ字を埋めて論理的文章を完成させ 
るということは神業のようじも思える。どうし 
て昔はそんなことができたのた•ろうか。 

ワープロは文含作成効率を劇的に引き上げる。 
アイデアプロセッサという考え方が出るが前か 
らワープロそのものが同種の機能を果たしてい 
たからた’。 

力弊害もある。それは文字フォントのせいか 
もしれ ないし一 度にアクセスできる情報量の 
せいかもしれ なし、， とにかく画面上ではケアレ 
スミスが多くなる。デバッグ効率同株一をブリ 
ントアウトしたものと画面上のものでは認誠の 
しやすさが違うのど。結果として，ワープロで書 
いた文幸は小さなミスが発生しやすい。また，安 
易に切り貼りすることができるためワープロゆ 
えの悪文というのら出てくる。下書きがそのま 
まお書となりうるからか，つい推敲が甘くなる。 

そう，ここで問題なのは「下書き用」のワープ 
口なのた‘。ここでいう下をきとは，文含の内容そ 
のものだ。ワープロはよりよい内容を舍くこと 
をサポートするツールであってほしい。ことワ 
ープロにわいて「清書用」という言窠が悪口从 
外で使われないのは，下害きの段階を無視して 
巧書を斤おうとするものがあまりじ多いからだ。 
下含きができない状態で DTP じついて語っても 
実のあるものにはなるまい。ワープロじ閲する 
をそ刀の問題点といえるどろう。 

日本語処理の最終的な問題点じ入力装置を挙 
げる人は多い。そして，をくの人が手書き文字認 
識，音声入力などじ期待をかける。 

手書き义字認證は一部の電子文具ですでに実 
用化されている。ひらがなを入力して巧換機能 
を併用するもの，直接漢字を認識するもの。認識 
ネ肖度や速をはいくらでもな善可能だから特に問 
題にはならない。字画数が多くなると手書きが 
本当に楽なのかという疑問は残る力、‘，これも技 
術が解;夫してくれる可能性がある。まあ，期待し 
てみるのも悪くない。 

巧して，音声入力だ。入力のための労力はさら 
じ轻滅されるだろう。が，音声入力をしている図 
をお像するとなかなか不気ホなのではないか， 
という意見もある。確かに音声入カワーブロで 
ラブレターを書くまというのはあまり巧像した 
く なし、。 

たとえ，完成したら公になるものどとしても， 
書きかけの文幸を他人に視かれるのは気持ちの 
いいものではない。まして，プライべートな文書 
ならなわさらた‘。音声入力が一敝的な入力装置 
として確立される際にこういった問題は解ホさ 
れるピろうか？ 

そうこうしているうちじ，いっそ「思考を直接 
入力できたら……」という夢物語に行きつくこ 
とじなる。頭に浮かんどことが，淀みなくデイス 
プレイに表示される画期的インタフェイス。あ 
らゆる点で理巧的た‘といえよう。夢物語？ 手 
首に電極でら埋め込む気かって？ところ力、‘， 
それに非常に近いものはすでに存なしている。 
そう，それは「ブラインドタッチ」とも呼ばれて 
いる技術だ。 （ U ) 
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定巧お藤のお知らせ 

少し前じご通知いたします。継続希望の方は， 
上記と同じ要領でわ申し込みください。 

おかを付ごホ望の方へ 

Oh!X のを期瞒統をご希望の方は織じ込みの 

本誌の•海外発送代理店，日本 IPS (株）にわ 

振替用紙の「申込書」欄じある「新規」 r 継 

申し込みください。なわ，購読料をは郵送方 

続 J のいずれかじ3をつけ.必要事項を明記 

ま，地域じよっ 

て異なりますので，下記巧か 

のうえ，郵便局で購読料をわ振り込みくださ 

ずわ問い合わせください。 

し、。その際ぶされるキ券は領収書になってい 

日本 IPS 株式会社 

ますので，大切に保管してください。なわ， 

〒101東ま都千代田区飯田巧 3-11-6 

すでに定期購読をご利用の方には期限終了の 

狂03 (238) 0700 
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阴20(ち)/21(火)/22(水)/23(木)/24猫 

を場/本な総務人事部 

時間/2日日：9:邮〜、引日、22日、巧日、24日：13:邮〜 

纖/〇3-5488-1115 

(人事部/を屋•望月） 

住所/〒1邮東京都港区高輪 2-19-1 3 NS 高輪ビル 


8月21(乂 )/27( ち)/9月3(月） 

を場/西曰本営業部 
時間/13:邮〜 

連給ホ/ 06-264-1471 (代） 

(総務課/坂本-前田） 

住所/〒日41大阪市中央区南本町卜 7-1 日明治生命巧お本町ビル 10 F 
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048-824-5321 


S 省を書庙神田本店 

03-233-3312 

書をグランデ 

的-巧 5-001 1 

巧まま書店 

03-291-5181 

化厘》巧水道巧な 

03-294-3781 

か善お茶の水巧 

03-295-5581 

お毋を 

03-291-1362 

いずみ巧田巧口店 

03-254-8521 

明正をが葉巧巧 

03-257-0758 

Bit INN 巧巧 

03-255-4575 

T - Z 0 NE 

03-257-2660 

ラオックス THE COMPUTER 巧 

03-5256-3111 

八 S ザ!ブックセンター 

03-281-1811 

日木巧化善 

03-272-7211 

旭运書巧が座店 

03-573-4936 

書巧巧巧店 

03-591-8738 

巧巧を N S 巧 

03-503-6586 

巧ノ巧*巧本店 

03-502-3461 

ホノ巧書巧田巧店 

03-454-2571 

芳ネネ堂大井町巧 

03-474-4946 

巧运書店五反田店 

03-492-3881 

紀が困屋書店おを巧 

03-463-3241 

化屋書巧巧る店 

03-476-3971 


03-407-4545 

大盛を書な 

03-463-0511 

紀巧困厘書店を巧巧 

03-485-0131 

紀巧困屋書な本店 

03-354-0131 

=ちを書店巧宿西口店 

03-343-4871 

巧ま書店センタービル店 

03-345-1246 

巧巧書店巧れビル店 

03-342-0298 

新をを N S ビル店 

03-344-2055 

西武新宿ブックセンター 

03-208-0380 

芳ネネを苗田巧場店 

03-208-0241 

未巧ま 

03-200-9185 

旭厘書店化な店 

03-986-0311 

芳ネネを池な店 

03-984-1101 

リブロ池な店 

03-981-01 11 

S ちま:書な池な店 

03-987-0511 

巧栄愛本巧 

03-984-2345 

巧栄まアルバ店 

03-988-0181 

明正まや巧り店 

03-831-0191 

ブックストア•談 

03-635-1841 

文が堂靑戸店 

03-838-5938 

文教ま西«西店 

03-689-3621 

アクトブックスサンカマタ店 

03-735-1551 

そ文を大巧がビル巧 

03-775-3851 

明屋》巧巧な本社： 

03-387-8451 

ブックセンター获莲 

03-393-5571 

書原杉並店 

03-313-4778 

紀巧困屋書店ま巧寺束み店 

0422-21-5543 

ミム栄堂ま巧寺巧 

0422-22-1031 

バルコブックセンターま巧寺 

0422-21-8122 

舆光書店 

0424-87-2222 

巧文望： 

0423-66-3151 

互ち堂:書店互/!店 

0422-48-4510 

巧西書ち 

0422-46-0275 

文が堂小を井店 

0423-86-0161 

=ぶ堂国み寺店 

0423-25-3211 


ソフトバンクの 

書籍特約書店 


下記の書店の一験は、ソフトバンク書籍特約 
店として右じある商品の化新刊もとりそろえ 
ております。ご希望の商品がある場合は、下言己 
のわ近くの書店じてお買いホめ下さい。 

(諷現品が売れて捕充中の場合もございま すので、 
ごミ去看下さい 0 


邸; 


ソフ h バンク出版事業部 

于 10 B 東京都港区高搞 2-19-13 ぐ 03(54 邮 )13 郎 

〔全国持約書店一覚) 



区区区区区 区区 
グ巧田餘巧田グ巧並が 
台—惠江大中杉 


市 巿巿巧巧巿巿巿巧が巿 
宮ググ 日が巧グ訓泣木^企お 
大巧川川巧上巧をを比干 


巿巿巿巿ホ饰巧於巿巧巧が巿怖 
ッが田お A ッ山2が劑巧戸ッ旧巧*巧；； 
秋山なおい 55巧伽水化巧巧主つ 












































































































0 寺約謹本図書一覧 J 態すベて税込です。 


// 

グ 

// 

が 

»巧巿 
// 

を巧巿 

が 

巧々巧巧 
巧ザ巿 
// 

<束巧> 
お间巿 

が 

// 

// 

// 

ミ召巧巿 


// 

化本ホ 
// 

// 

上旧巿 
巧田巧 
岡さ巿 
规巧郡 
が’渴ホ 
// 

// 

ft 岡ホ 

け 


姫おお 


巧が山ホ 
// 

<中国> 
岡山巧 
// 

津山市 
広み巧 
// 

// 


巧道巧 
福山巿 


を古足ホ 
// 

り 


呈ミ羊ま:パソコンシヨッブ2 

052-251-8334 

福山巿 

ブックシティ啓文れ 

D 849-25-0050 

吉ホ望:いりなか本店 

052-832-8202 

// 

な文化コア 

0849-41-0909 

ちくさ正义館本店 

052-741-1137 

山口巿 

五十部誠文を 

0839-24-6630 

白巧書房西店 

052-774-7223 

// 

文栄堂 

0839-22-561 1 

神文お 

0532-54-2345 

下閒巿 

中巧害巧 

0832-22-6181 

ブックス巧た 

0564-54-1822 

宇部巿 

巧屋香巧 

0836-31-2323 

云ミ羊堂巧巧巧 

0565-35-2334 

グ 

ホに書店 

0836-31-0086 

=ホ堂 S 川店 

05338 -3-0334 

防巧巿 

が文を国街な 

0835-25-1988 

云;羊を刈を店 

0566-24-1134 

ホ 巧 

云■文字运 

0833-71-0251 

吉ホ堂お川店 

0568-32-7806 

魚取巿 

宙±書な 

0857-23-7271 

吉ホ堂一宮店 

0586-77-5734 

松な巿 

西山書な 

0852-21-4167 

自由書房 

0582-65-4301 

<四国> 



大洞堂ブックス巧8 

0584-81-2553 

巧 A 巿 

小山か学お本店 

0886-54-2135 

大洞堂が大バイパス店 

0584-74-7766 

// 

小山助学館巧口巧 

0886-25-1380 

互ず堂巧児巧 

0574-63-2334 

// 

巧住か存 

0886-23-3228 

吉ミ牽堂そお見巧 

0572-24-0340 

ち松巿 

宮脇書巧本店 

0878-51-3733 

别巧鲁店 II ビル店 

0592-24-1014 

5 L A 巿 

宮胳書なか》店 

0877-22-5533 

文化センター白巧 

0593-51-0711 

松山ホ 

紀巧困屋書巧松山巧 

邮 99-32-0005 

シエトワ白巧スズカ 

0593-82-5221 

// 

明尾書庙本店 

0899-41-4141 



// 

明屋書な大が進巧 

0899-41-4242 

巧々をまま巧 

075-223-1003 

// 

化 =♦ 巧 

0899-31-8501 

アハ•ンティ*ブックセンター 

075-682-5031 

新居お巿 

明屋星巧店 

0897-44-4000 

才ー ム社書店; 可巧巧な 

075-221-0280 

宇が A 巿 

明屋宇が A 巧 

0895-23-1118 

ジュンク堂まが店 

075-252-0101 

巧知ホ 

を苗を 

0888-22-0161 

オームれ書店れ田店 

075-644-2611 

<九が • ホ縄> 


巧々を大丸店 

0742-26-6241 

福岡巿 

紀巧困屋書店巧岡巧 

092-721-7755 

旭厘*巧本な 

06-313-1191 

// 

り一ぷる天神 

092-713-1001 

た巧困屋害店巧田店 

06-372-5821 

// 

试义巧巧天巧な 

092-781-2991 

オーム社書巧大阪店 

06-345-064 1 

// 

巧!岡を文を本店 

092-741-2106 

巧々堂京巧巧 

06-353-3209 

// 

巧岡を文を巧日ビル店 

092-431-1094 

巧々を•むる巧巧 

06-251-0881 

// 

巧岡を文をデイトスな 

092-451-6175 

化厘書店ナンパ店 

06-644-2551 

け 

巧岡を文まアニマート巧 

092-844-0088 

ナンバブックセンター 

06-644-5501 

化九州市 

ナガリ害な 

093-521-1044 

ヒバリヤ書店ナンパ店 

06-644-5407 

// 

を栄堂 

093-531-3685 

化运書店ァぺノ店 

06-631-6051 

// 

化厘害巧化九州巧 

093-631-6421 

ューゴー書店 

06-623-2341 

// 

并巧屋ブックセンター 

093-641-0131 

河が書店 

06-951-2968 

// 

カ ルバ— ク平巧 

093-661-7988 

水哺書ち京おデバートな 

0720-51-3432 

// 

白石書店本が巧 

093-601-2200 

コー-^ブックス西武な攪店 

0726-83-1766 

义留米市 

エマックスたがみ 

0942-33-1841 

ヒバリヤ書店本社 

06-722-1121 

が巧巧 

BOOK ソード 

0948-25-7266 

ジュンクまセンター街巧 

078-392-1001 

大み巿 

バルコブックセンター大み巧 

的 75-35-0643 

ジュンク堂サンバル店 

078-252-0777 

// 

本町巧をを 

0975-33-0231 

巧义ま書店 

078-331-6501 

别巧巿 

a 月がま： 

0977-23-2183 

日巧活書ネネ 

078-391-8701 

宮巧巿 

中央、田や窘巧 

0985-24-3511 

新興書ち 

0792-85-3344 

// 

巧昆畜巧な 

0985-27-4111 

誠古ま書店 

0792-81-2055 

佐 W 巿 

を華を化バイバスな 

0952-32-1965 

ま井平まを 

0734-31-1331 

// 

巧义巧佐黄巧 

0952-24-4314 

巧巧•巧 

0734-22-0441 

// 

ホ文巧デイトス巧 

0952-23-7155 



疫巧巿 

メトロ書店 

0958-21-5453 

紀巧困屋書店岡山店 

0862-32-3411 

// 

好义堂 

0958-23-7171 

化宙巧山支店 

0862-31-2261 

佐せ保巿 

を明堂書店 

0956-22-4214 

ず山ブックセンター 

08682 -6-4047 

熊本巿 

紀が函运書店お本な 

096-322-5531 

紀巧困厘書店に*店 

082-225-3232 

// 

及巧書店 

096-353-0555 

かを広 A 支店 

082-247-2251 

人まホ 

明を人まな 

0966-22-5486 

を正堂 

082-248-3715 

鹿妃 A 巿 

ホ巧堂ブックブラザ 

0992-25-3200 

巧鲁お 

082-248-3151 

// 

ブックスみすみ 

0992-57-1011 

啓文せ尾道店 

0848-37 -引51 

那巧あ 

巧访堂:害巧ビル店 

0988-63-3752 

啓文化福山店 

0849-22-31 11 

// 

文教図書 

0988-62-1201 


巧西書な 

04巧- 75-5061 

文がま小平な 

0423-43-9229 

文か堂束が山店 

0423-96-11 15 

オリオン*巧ウイル巧 

0425-27-2311 

くまざわ書な本な 

0426-25-1201 

ち巧堂巧田巧 

0427-23-3018 

义巧堂本な 

0427-25-1330 

义巧を小田る.店 

0427-27-1111 

文教堂 a 川店 

0427-35-41 17 

文教堂小川店 

0427-96-1781 

<まざわ書店裕ヶ豆店 

0423-37-2531 

义教ま巧を店 

0425-53-7708 

化ほ> 


ス教を甲巧店 

0552-22-4600 

平を堂を巧店 

0262-26-4545 

及を川書な 

0262-26-2122 

ブックスロクサン 

0263-35-5555 

巧進な松木队ピル店 

02的- 36-3777 

アクロスブックセンター 

0263-32-5733 

平安堂上田店 

0268-22-4545 

平安堂が田巧 

0265-24-4545 

を巧書な 

0266-23-5070 

平安堂下化が店 

0266-28-1 III 

紀巧困屋書店新お店 

025-241-5281 

萬のま 

025-229-2221 

化ホ社 

025-228-2321 

»巧書店 

0258-32-1139 

ブックセンタ—县巧 

0258-36-1360 

ft 巧な大&巧文化 

0258-46-6437 

バソトピアコスモス 

0255-25-5867 

BOOK メディア 

0254-77-3850 

お川書店 

0764-24-4566 

ミが月堂 

0764-24-4166 

BOOKS なかた’豊田店 

0764-32-1353 

文巧堂木微店 

0764-22-0552 

义巧堂ホな,を 

0764-33-0321 

义巧堂 

0766-21-0333 

义巧ま巧田店 

0766-21-0431 

うつのみや片町店 

0762-21-6136 

害が香ネネ巧本店 

0762-20-501 1 

王巧の本本巧 

0762-46-5325 

木書な 

0776-24-0428 

品川書巧が田1 冢店 

0776-24-11 12 

が巧を*ちみ版町本な 

0542-54-1301 

ゴ巧書巧 

0542-54-4481 

まを書店 

0542-52-0157 

戸田書店 S B S 店 

0542-81-5733 

戸田害巧曲を巧 

0542-81-5899 

吉巧屋 

0559-23-5676 

マルサン書店ま巧な 

0559-63-0350 

戸田書店*±店 

0545-51-5121 

戸田書な木な 

0543-65-2345 

お化を A 度巧尺本店 

0534-53-9121 

ま:書店を古运巧 

052-562-0077 

を巧書店ぶおビル店 

052-581-4796 

か宙を古ちま店 

052-261-2251 

化善ブックメイツセントラルパーク 

052-971-1231 

日を堂上前ホ店 

052-263-0550 


I 邮日目アセンブリ言語 • 2, 890円 

日日日日マクロプログラミング • 2, 680円 

AP^Turbo PASCAL ver . 5 ：/ P ^ 7S >^ • 3, 300円 
I GDC テクニカルブック • 3, 500円 

C 言語の基礎知識 • 2, 580円 

C 言語の活用理解 • 2, 060円 

C 言語の応用如例 •2.370 円 

上級 •(：： 言語の応用加例 • 2, 480円 

Play the C 上卷 * 1 , 550 円 

戸 lay the C 下卷 •し巧〇円 

C プリプロセ、ッサ•パワー • 2, 270円 

I Turbo C 入門 • 2, 680円 

C ++ プログラミング • 2, 680円 

QuickC プ□グラ 5 ング • 2, 680円 
詳説 C 言語 *4,500 円 

MS - CVer . 日. 1 プログラミング • 3 , 3 〇〇円 
iTurboCVer .2.0 プログラ S ング • 2, 900円 


タイナブック•スーパーガイド ' 
最新八ードディスク入門 ( 
驗斤 EMS’RAM ディスク入門< 
プレイ MS-DOS 、 

MS-DOS いたれりつくせり本 I 
新 MS-DOS 入門 ビギナー編 
a 新 MS-DOS 入門 シニア編 
新 MS-DOS 入門応用編 
OS /2 API ブック I 
OS /2 API ブック II 
UNIX オペレーティング•ガイド 
—太郎 Ver .3 ガイド 
入門一太郎 Ver .4.2 
P 1 EXE ガィド 
円戶 G 幻想事典 
RPG 幻想事典曰本編 
魔法王国シムルグン K 


I 


| LOTUSl -2-3 ガイドビギナー編 ♦ 2, 480円 
LOTUS 1-2-3 ガィド II • 2, 580円 
铜 Ve 〔2 ガイド •い 80 円 

入門桐 Ver .2 —括処理 • 3, 500円 
NinJa 3 ガイド • 2, 300円 

MS-Cha け Ver .3.1 ガイド ♦ 2, 990円 
まいと一くガイド • 2, 370円 

dBASEIII PLUS ガイド • 3, 800円 
iThe CARD 3ガィド • 2, 900円 
I アセンブラ CASL 入門 ♦ 2, 060円 
八ードウエア徹底マスター ♦ 2, 580円 
FORTRAN 徹底マスター ♦ 2, 890円 
受験用語八ンドブック ♦ 1,860 円 
情報処理入門 I 基礎知識 • 1, 24 〇円 
情報処理入門 II 関連知識 •し 24 0円 
CASL で学ぶアセンブラ入門 *2,270 円 
I そっくり模擬試験 ♦ 2, 200円 


巧 

m 

化 

理 

な 


巿巧市 
グ巧化山 
上山 g 


巿巿巿巿巿巧巧お巧巿巿お巿巧わホ おホ ホあお 
ツ巧巧田川を^宮をあグ化?§ ^庇がツグググを阪グググググツグツググ方襯別戸 
S 岡里*!刈を-な大巧おず四鈴^ま を大 枚な巧巧 


巿巿巿巿 

か±水松がかかがか 

»巧决ち 


ホ巿巿ホ巧巿 巿ホ巧市巿 
立平 SW 巧田グツツグ巧生化巧巧 
国小巧な八巧 をな甲& 


アフ U ケ—シ 


アセンブラ 
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PRO -60 K 


概要 


巧応回綜数 1〜9回線 

使用モデム AT モデム MNP ( RTS / CTS ) 巧 

通倍速度 最大 9600 bps 

会員数 * お大9999人 

お示巧数 * お大40個 

な能 電みお示お-這ろ手紙* ち 子会譲(チャ、ソ h ) • 会員巧報 

これらは、コンフィブファイルで設定できます。 

を1 :* 扭じついて拡張を巧望する巧合は、ブ□ブラムの■さ換えヴ化愛になりますので、 
別お金じて巧破致します。当巧までご巧跋<ださい。 

2:2回おが上で運用される巧合は、 CZ -6 BF 1 (シ—フ觀正)ヴ脚要になります。 

3：このホス h はテキス h お式の転を方法を採用しております。 

■特長 

• 各巧投度の〕ンフィブファイル化。 • RS -232 C 回線とは别じキーポードウらのアクセス、グ 
ウン□ード、で、ジフ□—ドヴ可能。•モニタで、各チゃンネル①ユーヴー①巧ち込んだコ7ンドゃ 
通信が巧を確度。•奋巧示板到に SIG 、 ポード/ S スの投定。 • メンテナンス作業のブンライン実行。 
(ポードインデ、ソクス，乂ールインデックス）•スンラインサインアッフ寄、グス h への股をヴ可能。 
• 通厦ヴービス T r I - 尸な晒。*巧紀夕(スンライン®易エディタ)が能。 • その他•シスブペレペル 
でを««级のを垂ヴ巧お。タイムアウトじよる回は切が。 PDS 巧用巧示おの採用。 （1 塞込中で、ド 
キユ乂ン h とテキス h ブ□ブラムのろ巧)。•接巧 MNP タイフの掛别。 • □クイン、□ブでウ h 時 
間の拓錄。 • 巧アクセス時のモニタ画面消去可能。 


PRO -60 K 


HOST 3I 

锭能は統べて、 「 HOSTS 巨25巧23」と同じですヴ、巧砸回が数ザ、 
1〜3回なじ制限されて、低価巧で：!ーザーじが給します。 


バージョンアップ ( Verl . lO ) 

サービス 実施 中 

現在発売されています製品は S Ve 「1 .1 0じ変更になつて 
います。お使いの製品ヴ Ver 1.00 のユープーの方のため 
じ、バージョンアッフサービスを実施しておりますので、 
お早目に、ユーザー登録葉書をおちり下さい。 

Ve 「1 . 10へ無料交換を実施しております。 

巧評発売中 


HOST 引匿勉地;! ¥ 日 9, 日日日 円 
HOST 3 liM 5 a ¥39,目日日円 

SPS-NET nz^n 、蛋 mcb // 
下 SUKUMO - NET ^ アル運用中グ 


總蝶/ち 


偉力'、を 


ュ-ヴ-蠢琪のが$削して 

巧巧発売や 

17,8 □□ 円 
24/31 KHz 

ディスフレイ 


2 


HOST 旺因应3使用 SPS-NET 


TEL 

(0245)46-1167(ft) 


:色日〇〇〇専访 

パソコン通«ソフト 


f た〜みのるヴ 
装いをがたじ 

「た〜みのる2 J としてを W / 

「た〜みのる J ヴ 
远«人巧版なら 
*"た〜みのる2^は 
スニアタイフの巧信ソフ I - です/// 

r た一みのる2 J は xeaoQo 用じ W 巧だのソフ K で口。 
X日8000の巧巧ろじ弓16吐!して、 ZI — ヴーの巧々ヴ簡 《*» 
じ»巧で®るぶ j ェま •» 巧ちのていな巧。 


□ 


ラマ募集 


SPS でゲームを作ってみませんか？ 

アセンフラでプ□クラムの組める優秀な人巧を若干名寒集してい 
ます。就職希望の方は目2円切手同封の上、「就職案内係大和」ま 
でお手紙<ださい。巧の返し就職のご案内をお送〇致します。 

尚、デザイナー、音楽ブ□ブラム等の専門職は赛集しておりません。 


J!：'L 




巧 


だ: 


n 


巧* 


(巧)マイコン八ウス 

SE5 

■ 巧胡 MS 巧太平をぞ巧ノ巧 5-3 巧 0245)45.5777 
FAX(0245)45-1804(G ll.Glli) 


■表示価格に消’費税はままれてわりません。 


当化の«なはを田の有€デバート.バソ 
コンショップでおホめじなれます。か、わ 
ホめじなれない H を.枯«巧じてお申し 
这み < ださい •口巧番巧な山5-122地 
■か入者を ㈱ エス.ピー.エス•ホなれ 
々じ3%の消*おをカロ g した抑•油 WW 
(» 面）ごホ a ゲームソフトる、巧■，化金 
をけ、キ齡、巧を、««を、テープかディス 
クの«巧。（一 ii 町 1 U 上かかりますので、 

わ»ダの方は巧を書曲をご利用ください， 
ザの*•を、おつりのいらないようじわ M 


—般回線 
(9 回線） 
MNP クラス7 


W . P 鐘 営！/ 

■ ■■ ■ (4 回お)/ 

24 時間運営 （ NmXN) 
ゲス hlD(GUEST) 

* GU E S T アクセスは無がですのでぜひ、 
—度がして < ださい。 


入を方法難黯 3 ’。日。佩別） 

門己の川がじを巧記入するか又は、コピーしてお人し，72円 
切ず同封の1:,巧 PS - NET お J までわぶりドさい。扣き次嘴、 
化巧なをけい I D mi 後 SPS-N E T が川のが使が込み印化 
ならびに进用の手引きをも'送りいたします。それに淀い、3ケ 
胆巧に巧な船000円(腳 j ) を巧人を下さい。 

人细淹巧をル:式会 U としておします。 


例◎バスワードニ SPS-NET ◎職業二株す会社エス•ピー•エス (1 のままで） 

/ 旧タミまで大小巧〇谢腑り)、 


))( 


◎本名=大和大五郎 (8 文きまで） ◎住所二福島巧太平寺き町ノ巧 5-3(24 巧まで） 

( )( 干 : 

◎ペンネーム=大ちゃん (4 文ぎまで）◎自己紹介 = SPS-NET をよろしく 

/ \ ( 巧が巧まで)、 


◎年齢=30(現在の巧お） 

( : 

◎電話二 0245-45-5777 饰外局番なら） 


◎システム構成 = X 68000 ACE-HD MD 2400 B 

/ (1 のミまで)\ 































干101東京都千代田区外神田 3-2-3 巧日 3-253-7611 (が) 


今すぐおよりの電話巧ら 

仙台日 22-2 目 4-37 日4 

をを屋 052-4 お-3巧1 

広島日日 2-295- 6日73 

ネし幌0り-目り-引日4 

新漏 0252-75-4175 

大阪 06-311-3931 

福岡 092-481-2494 



Welcome/ 
ご来店もどうそ； 


X68000 の情報のすべて/煙店は X68000 の認定が理店です。お気輕にご巧談下す(リ 


XI 68000 待望の新しい仲間登場夕 忍目目000 

PERSONAL WORKSTATION _ ^ 1,11^ PERSONAL WORKSTATION 

EXPERT !!， EXPERTS 阻] - 成 麵戶片〇ル P /?0 ぶ脚 


EXPERT !!- 
EXPERT !! HD 

集積度を窝めた A マンハッ 
タンシエイプ" 3 M の大容量 
メモリを搭載。本格的なゥ 
インドウシステム、 SX-WIN- 
DOW 塔載。 


I のモニタは別売です。） 



が.锦歡紙方 


PROn-PROn HD 

化張 I/O ポートを4スロットを搭載し、化用 
性苗低価格が魅力。 

もちろん、 SX-WINDOW 搭載。 


【写真のモニタは別巧です。] 


ぶ 

CZ -653 C 標準価格¥28日，0日0 
CZ -663 C 標準価格 ¥395,000 


AVC 特価 


CZ - BPC 4 

お勧めディスプレイコーナー組合せは自由、価格はわ気おにご相談下さい。 

48ドットがお写プリンタ 
—。巧をな义字、ハード 
が-も可能。 

广 7-604 D •0.31 mm ドットピッチ 

巧 ホ価な V 94.800 *2 モードオートスキャン 

AVC 特価 •ステレォスヒ-力巧が 

•チルトを同姻 

•ドットピッチ 0.31 mm 

巧 单価巧 ¥135.000 •TV チユ-ナ-搭が 

AVC 特価こご レ ご品 力—搭化 

フ，ご日 3d •0.3 lmm ドットヒッチ 

巧ホ価な ¥84.800 ^TV チユーナ無し 

AVC 特価 *3 モ-ドォ-トスキャン 

•チルト台同巧 

AVC 特価¥ ? ? ? 

广し)ーフ 1HD *0 520101 ドットビッチ 

巧 ホ-価裕 ¥148.000 *21 型ディスブレイ 

AVC 特価 -s モ-ドォ-トスキャン 

参ステレオスピーカ塔化 

日 5 D •ドットピッチ 0.39 mm 
巧 ホ価倚 ¥115.000 •TV チユ—ナー搭が 

AVC 特価 :;: ご言 r — 错ぉ 

CZ-R02D •ドットビッチ 0.33 mm 

巧单価な ¥99.800 •TV チユ-ナ-洛化 

AVC 特価 •ナルト台同補 
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XI 68000 

PERSONAL WORKSTATION 

SUPER 皿 



80MB ハードデ f スタ 
SCSI インターフエー ス 
搭載/ 

CZ-623C-TN 

. ¥498,000 

CZ-613D-TN 

¥135,000 


AVC 特価 


お電話で< 


X 68000 PRO.EXPERTSET 


• CZ-602C & CZ-603D. 定価 ¥440,800吟特価 ¥292,000 

• CZ-602C & CZ-602D. を価 ¥455,800吟特価 ¥298,000 

•CZ-602C & CZ-613D. 定価 ¥491,000吟特価 ¥335,000 

•CZ-602C & CZ-604D. 定価 ¥化0,800今_特価 ¥298,000 

• CZ-652C & CZ-603D. 定価 ¥：382,800 特価 ¥254,000 

• CZ-652C & CZ-602D. 定価 ¥397,800 特価 ¥258,80日 

•CZ-652C & CZ-613D. 定価 ¥433,000 特価 ¥300,000 

参 CZ-652C & CZ-604D. 定価 ¥392.800 今特価 ¥263,000 

参 CZ-612C & CZ-602D. 定価 ¥565.800 吟特価 ¥375,800 

• CZ-612C & CZ-603D. 定価 ¥550,800 特価 ¥ %5,800 

•CZ-662C & CZ-602D. 定価 ¥507,800 特価 ¥329,800 

参 CZ-662C & CZ-603D. 定価¥492,800特価 ¥319,8日日 

※セットでわ買上の方に、 SX-WINDOW、 ジョイカード、"グラデーウス"デイス 
ケット10枚プレゼント/ 


•巧をなし(手巧な g 招クレジット）•製品先取り(お支払いは約卜2ヶ月をから）•低を利クレジット（ I 回の支仏いは2.700円じ01て ‘3-48 回。ボー 
ナス併用も巧）*カレッジクレジット(保证人なし。但し;帯20ホ 1 U 上の学生の方） *18 巧未巧の方（ご両親が代巧麻入者としても'申し込み下さい） 
•供期(油ホの巧合、当社に申込書が到«を I 週阿し U 巧。特に人巧のある商品て•品薄の巧合、か々納期が遅れる二とがありますので抑了を下さい） 
•巧を供化（すべてメーカー保化書付。アフターケア巧全）•全国代引（わ届けした者に、代ををわ支払いいただく方；去です但し手がネ斗し000円） 


AM 10 時から PM 7 時 

まで受イす日曜•祝日も営業 






































































◎ 

巧木#厅 






micro computer shop 

[ J •いし誦 

宇都宮店&大田原店 


PROSHOP 





XB 8000用八ードディスク 

アイテック ITX-680. 美巧わがの 

アイテック ITX.640.MiSSreOO 

アイテム HXD-040. 

アイテム HXD042. 吏 mr0OO 

ロジテック SHD.40.Basic 特価 

シャープ CZ-64H.Basic 特価 

XB 80 邮用 SCSI 予約大募集 

ンヤーつ 

光磁気ディスクユニット 

CZ-6M01 
SCSI ボード 
CZ-6 巨 S1 


予約受付中 


予約受付中 


XB 郎 00 用 PRINTER’S 

シャープ CZ-8PC4. 

シャープ CZ-8PG1. 

シャープ CZ-8PG2. 

シャープ CZ.PK10. 

エプソン AP-850. 

エプソン AP-550EX. 

エプソン VP-1350. 

エプソン VP- 2050 .Basic 特価 

NEC PC-PR201GS.Basic 特価 

スター CR-3415CL.Basic 特価 



通信関連品 

NEC COMSTER2424/4- 
NEC COMSTER2424/5- 
OMRON MD24FS5 …… 
OMRON MD24FS7 …… 
CommumcationProV2. •. 
た〜みのる2 . 


•Basic 特価 
•Basic 特価 

•^.-647800 


グー マー必須アイテム 

CYBER STICK. 

XEl-AP. 

XEl-PRO. 

XEl-ST-. 




クラつイッククー ) I 

スキャナパラレルボード • 

CZ-8NS1. 

GT- 6000 . 

GT-1000. 

HS-10RII. 

HS-7R1I. 

CZ-6VP1. 

IO-735X. 

ジーズスタッフ PR068K‘ 

デジタルクラフト . 

マジックパレット . 

サイクロン Express 〇68’’ 


•Basic 特価 

• M 24 M 00 

•Basic 特価 

•Basic 特価 


その他周辺機器 

掘張 I/O BOX 
アンプ 内蔵 スピー カ ー 
カラーイメージユニッ 
ビデ オボード’ 

RGB システムチューナー 
CRT フィルター 



CRT 

CU-21HD. 
CZ-605D-- 
CZ.604D.. 
CZ-613D • 
CZ-603D-- 



ロケットキャッシャー完成！ 

新アルゴリズムの採用じより従来比約3倍の 
离速化を実現。 

ハー ドディスクキャッシャーのみのバージ ヨ ンアップ 
となります。旧製品のディスクのラベルを同封のうえ、 
し500円（送料.税込）を現金書留でお送り下さい。 


ビデオボード （CZ-6BV1) を外付けじ！ 

ビデオボード！)又納ケース （KGB- 巨V吕X) 

近日発売予定（通信販売のみで一般販売は 
しません） 


全国どこでも発送可長期クレジット OK 送料を国均一 ¥1.000 宅お便じて即日配送 


台か瓜を雲ナず 

A SET 

PA -8600 

C 巨-200し 

CYBERNOTE PR068k 

; 帳特別セット 

B SET 

PA -8600 

CE- 200 L 

Stationary PR068k 

PLA 

ASET 

CM-32L 

SX-68M 

MusicStudio Mu-1 

f THE MIDI M 

B SET 

CM-64 

SX-68M 

MusicStudio Mu-1 

USIC 

CSET 

ivrr-32 

SX-68M 

MusicStudio Mu-1 

Basic 特価 ¥41,800 Basic 特価 ¥37,800 

Basic 特価 ¥93,000 Basic 特価 ¥1 43,000 Basic 特価 ¥88,000 


株式会社計測巧研 

大田原営業 


本社営業部/マイコンショップ/通版部宇都き市竹林巧 503— 1 TEL0286-22-9811 FAX 0286 -25 -3970 
大田原営業所/マイコンショップ 大田原市美原 1— 口一4 TEL0287- 23 5352 FAX0286- 23 5%4 


マイコンシミ 


いりし 1115 お串し諭•ち問し、合せは ^ 0286 - 22 - 981 im 


NEWS 


NEWS 1 



が前大通：： 


競給巧通り 








































































































































2 巧のボードが峨になった 

於感眞項猫翊 P 眞於」 
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1 1 4 • ♦ 
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■ ■ • * • 

' 1 ♦ 


酬1111111ミ 


※写ちは KG 目- X 68 PRK -14 です 

製品価格一覧 


広大ながリ空間を実現ずる最大 4 M バイトの 

高速増設乂モリ 


高速演算を約束してくれる 

数値演算 
プロセッサ 

> メモリアクセスノーウェイトじよる高速アクセス 

► CZ -6 BE 2/ CZ -6 巨 E 4/ CZ -6 BP 1との混在が可能です 
•複数かの KG 目- X 68 PRK の実装が可能です 

•ジャンパのを更により任意のアドレス空間にメモリの配置が可能 
です 

•ジャンパのを更により数値演算プロセッサの1ネ女目2か目/未使用 
の選択が可能です 

♦1 M /2 M /3 M メモリモデルは購入後にメモリをボード上に追加可 
能です 

•数値演算プロセッサにはデバイスドライバ ( FL 0 AT 3 X ) が付属します 

ぷ CZ -602 C / CZ -6 1 2 C 1 U 外の機裡では CZ -6 BE 1/ CZ -6 BE 1 A を実裝してし、る化、要があります 
みメモリアクセスノーウェイトのため化巧 I/O BOX ではか作しません 


KGB-X68PRK-01 ¥ 58,000 

(1 M メモリ/数値演算プロセッサ無し） 

KGB-X68PRK-02 ¥ 74,000 

(2 M メモリ/数値演算プロセッサ無し） 

KGB-X68PRK-03 ¥ 98,000 

(3 M メモリ/数値演算プロセッサ無し） 

KGB-X68PRK-04 ¥122,000 

(4 M メモリ/数値演算プロセッサ無し） 


KGB-X68PRK-11 ¥ 96,000 

(1 M メモリ/数値演算プロセッサ付き） 

KGB-X68PRK-12 ¥ 112,000 

(2 N /1 メモリ/数値演算プロセッサ付き） 

KGB-X68PRK-13 ¥136,000 

(3 M メモリ/数値演算プロセッサせき） 

KGB-X68PRK-14 ¥160,000 

(4 M メモリ/数値演算プロセッサ付き） 


購入後の増設費用 


充実の BASIC H 日 USE 八ードウェア邑ソフトウェア 


y モ U 


1M バイト 

¥24,000 

2M バイト 

¥51,000 

3M バイト 

¥76,000 

数値演算プロセッサ 

MC 68881 RC16 ¥38,000 


高速 12BIT ， 16CHA D コンバータボード (KGB-AD じ） X1 ¥118,000 
フオトアイソレーシヨン 16BIT デジタル入出カボード （ KGB-PI0) XI¥ 42,000 
ハードディスクインターフエースボード （ KGB-HDIF) XI ¥16,0 日日 

アイソレーシヨン 16 日 IT デジタル入出カボード (KGB-X 68 円 0)X680 日 0 ¥ 68,000 
ハンデ f プリンタ & インターフエース （ HANDYPRINTjack)X68 日日日 ¥ 24,80 日 


高速 12BIT ， 4CH D A コンバータボ-ド (KG 目 - DA4) XI 
況用口ーコスト A D&PI0 ボード (KGB-X1S) XI 
高速 12BITJ6CHA D コンバータ (KG 目 - X68ADC) X68000 
641 卵 CPU ボード Mach180(KGB-CPX 目） X68000 
口ーコスト MIDI インターフェース （ MELODY 目 0X) X68000 


¥ 98,000 
¥ 19,800 
¥128,000 
¥ 98,000 
¥ 16,800 


BASIC 拡張関数パッケージ (86.6301) ¥9,800 
ディスクキヤッシャ- (B6-63 日 4) ¥6,800 


C 言語ライブラリ （ B6-6305) ¥6,800 
Toys & Tools ( 目 6-63 日 7) ¥6,800 


BAS にお張関数パッヶージ C 言語ライブラリ付（巨 6-63 日 6) ¥14,800 

アイコンエディタ（目 6 -6303) ¥4,800 CP M68K エミュレ-夕 (B6-63 脚 ¥19,800 


ェーシヨン販売開始/ PRK 10 コプロセッサ付/メモリー無し定価¥72,000 


BASICHOUSE BBS TECOSYS NET ダスト ID なし（オンラインサインアップ） 


全国どこでも発送可長期クレジット OK 送料全国巧一¥1,000宅が便じて即日お送 


巧:-丄吉 4- 巧 || 壬た左 江本社営業部/マイコンショップ通販部宇都宮巿竹林巧 5 的一 1 TEL 0286 22 9811 FAX 0286 25 3970 
の^て、で千 I 己了パ I リす又^ HTT 大田原営業所/マイコンショップ 大田原巿美原 1— 口一 4 TEL 0287- 23^5352 FAX 0 286 23 5364 

マイコンショップ匹回团 H お申し逆み•お問い含せは巧02巧 6-22 歷夕 0 ff (代） 


マイコンショップ 






































全国通販 


鲁トト哉くな'/。画-縱/ 


オフコンからパソコンまで 
幅広~ぃ品揃え。おまかせあれク 



★全商品保証書が。専門のアドバイザーがお客様の二ーズじ親切に対応します。 
★ネ刀巧不良•輪送トラブル等に迅速に巧応し即交換させていただきます0 
★送料は H 固じつき¥し000です。（※一部離島は除きます。お問合せ下さい。） 


>ごを文、お問合せは • ••毎日午前10時から午な8時まで 
>下取.買取は電話で見積りしてわります。貴任を持って下取りさせて頂き3 
>商品のお届けは…入を確認な、即日発送致します。 


[ OAB 特選〜 X 巨目00日シリーズセット（ダームパック•ディスケット付）（税抜き） 


① X68000 巨 XPERTII 


• CZ-603C- 巨 K/GY 

• CZ-605D-BK/GY 

• MD-2HD 20枚 


定価合計¥453,000 



③ X68 日 00EXP 巳 RTII-HD (3)X68000 PROII 


• SX-WINDOW 搭お// 


♦ CZ-6I3C- 巨 K/GY 

♦ CZ-605D- 曰 K/GY 

♦ MD-2HD 20が 


• CZ-653C- 巨 K/GY 

• CZ-605D- 巨 K/GY 

• MD-2HD 20枚 


• SX-WINDOW 巧が// 


定価合計¥ 563,000 


定価合計¥400,000 


OAB 大特価 


【斗; 

ぷお喊 


(3)X68000 PROII-HD 


CZ-663C- 巨 K/GY 
CZ-60 目 D- 巨 K/GY 
MD-2HD 20枚 


定価合計¥510,000 


OAB 大特価 OAB 大特価 OAB 大特価 


X68000 SUP 巨 R - HD , sx - window 搭載// ⑥ X68000SUP 巨 R-HD 

• SX-WINDOW 搭載 

• SCSI インタ-フエ—ス装備 • CZ-623C-TN (チタン） 

• 80MB ハ—ドディスク搭載達 • CZ-6 1 3D-TN (チタン） 

• 3N/1 日大容量メモリ装備 ■ h •MD-2HD20 枚 

•高解像度グラフィック 


XB 8000 EXPERT - HD = 特選限定品 



XB 8000 EXPERT-HD 

CZ-6I2(BK) 
(定価 ¥466,000) 
CZ-605( 巨 K) 

_ (定価 ¥ L 15,00 0) 

を価合計¥58し000 


八 00 UUU こ 

m 


特選 CRT 


ま:価合計¥ 633,000 

OA 巨大特価 OAB 特価¥368,000 


• CZ-605D 
(¥1 15,000). 

• CZ-6I3D 

(¥ 135,000). 

• CZ-604D 

(¥ 94,800)- 

• CU-2IHD 

( ¥ 148,000). 


•大特価// 
•大特価// 
•大特価.// 
•大特価// 


周辺機器コーナー 


DATA 増設 RAM ボード 


プリンターセット コーナー 


X 郎〇邮用ソフトウエアー•コーナー 


• CZ-6PVI けラービデオプリパー） 

ま:価 ¥198,000 . ►特価 ¥152,000 

• GZ4PC3(24 ドットおお写カラ—プリンタ-) 

を価 V 65,800 . ►巧巧¥ 53,000 

• GZ*8PKI0(24 ピン漢字ドットブリンタ— • 136 備 

を価¥ 97,800 . ►特価¥ 73,000 

• CZ-8PGI (24 ピンカラー漢字ドットプリバー .8 晰） 

ま:価 ¥130 •〇邮 . ►特価¥ 98,000 

• GZ*8PG2(2 化•ンカラ-漢字ドットプリバ- • 136 侃 

定価 ¥160,000 . ►特価¥119,000 

• I0735X けラ—イメ—ジェットブリンタ—） 

を価 ¥248,000 . ►特価¥185,000 


① GZ -2 I 2 BS ( BUSINESS ). を価¥ 68,000►巧価¥ 53.000 

② GZ -220 BS ( DATA ). を価 ¥ 58,000►お価¥ 45,000 


• 1MB 増設 PAM ボード 
PI0-6BEI-A 

を価 , 、 

¥25,000 I ■ HjHp ] 


• 2MB 増設 RAM ボード 
PIO-6BE2-2M 

定価 dBmp 

¥50,000 B — 


■ 4MB 増設 RAM ボード 
PIO-6BE4-4M 

定価 


③ CZ -2 に MS ( Sampling ). 

® CZ - の HS(NEW Print 就叩）. 
愈 CZ -227 BS ( TOP おおを計) 

重) GZ ぶ 6 BS ( CARD ). 

⑦ CZ -223 CS ( Gommunicabion) … I 

(|) CZ -2 I 3 MS ( MUSIC ). 

( DCZ -2 IILS(C compiler ). 

@ C*TRACE (キャスト） . 

魄 W (イースト） . 


••を17,邮〇►巧 ffi ¥ 13,8助 
。を巧 ¥ 10,800►お巧 ¥ 15,500 

••を® ¥洗0,邮〇►特価¥側,0扣 

••を巧 ¥229,邮〇►お価¥ 23,000 
••を巧¥ 19,即〇^特価¥け5,500 
•.を化¥ 18,扣〇►特価¥14,8助 
••ti V 39,邮〇►特 ffi ¥ 31,0助 
••を巧 ¥ 68,邮〇►巧®¥ 52,000 
••ま化¥ 38,000►巧证¥ 29,0扣 


特価¥18,800特価 ¥37,800特価 ¥65,800 


■八ードディスク■特価品もありますので T 巨し下さい 


圓 CZ-8PC4 馆価 ¥ 99,800) 

特選品// 


胥郎日00用周巧機器コニ子一—! 


■アイテック ITX -640...... 

♦アイテック ITX -680 ...… 

• ロジテック LHD -32 V -"- 

• ロジテック LHD -34 VE -- 

• ロジテック LHD -34 V •••• 


♦ 48 ドット熟転写カラ- 
漢字ブ J ンタ- 


特価勤ち 80 ir 




• CZ -6 BEIB - 

• CZ -6 BMI .... 

• CZ -6 EBI •... 

• CZ -6 VTI ••- 
参 CZ -8 NSI •... 

• CZ -6 BCI ••- 


•を価 ¥ 28,0 日 0 ►特価 ¥ 22,000 
•を価 ¥ 26,800 ►特価 ¥ 21,000 
■を価¥ 88,000 ►特価¥ 69,800 
•ま:価 ¥ 69,800 ► T 巨 L 下さし、 

. を価 ¥ 188,000 ►特価¥149,000 
•を供 ¥ 79,800 ►特価 ¥ 63,000 


特证 ¥117,000 •シャーブ CZ -620 H 
特価 ¥149,000 •シャープ CZ -64 H -- 
龍 ¥ 85,000 ♦アイテム HXD -040 •- 
巧価 ¥ 90,000 ♦アイテム HXD -042 •- 
•特価¥104,000 •に M SR 80 . 


巧®¥118,000 

龍¥ 95,000 
お® ¥ 88,000 
お価 ¥ 95,000 
特価 ¥130,000 


中古パソコン（価格/在庫はを動します。予約は 5 日が内とします。） 


[ 


今月の特価品(限定)お早目に// 


★CZ-652C(BK) + CZ-602D(BK) 

■RgailM 大特価 ¥258,000 

■ SHARP WD - A 300( ヮープロ） 

を価 VI 65,000 . 巧価 ¥110,000 


• SHARP WD - A 330( ヮーブロ） 

定価 V 185,000 . 特価 ¥125,000 

• SHARP WD + H し30(ワーブロ） 

定価 ¥ 198.000 . 特価 ¥134,000 


• SHARP PW -9 I 0( ワーブ □) 

• NEC PC - KD 853 くアナ□グ CRT ) 
■ミを XC - I 498 C (アナ□グ CRT ) 

• SHARP CU - I 4 FD (アナ □ グ CRT ) 

• SHARP PA . 8500 (巧:子手巧） 


特価¥ 85,000 
巧価¥ 50,000 

特価¥ 54,800 

) 

特価¥ 46,000 
特価 ¥ 16.000 


PC -980 IRA 5---- 
PC -980 IRA 2••• 
PC -980 IRX 2••• 
PC -980 IEX 2••• 
PC -980 IVX 2 I -- 
PC -980 IUX 2 I .. 
PC -980 IVX 2... 
PC -980 IVM 2 I - 
PC -980 IUVI I - 
PC -980 ILV 22- 

PC -286 VE . 

PC -286 US . 


¥338,000より 
¥265,000より 
¥199,000より 
¥190,000より 
¥170,000より 
¥165,000より 
¥160,000より 
¥150,000より 
¥148,000より 
¥160,000より 
¥150,000より 
¥155,000より 


PC -286 VS . ¥165,000 ょり 

CZ -600 C . ¥160,000 ょり 

CZ -601 C . ¥170,000 ょリ 

CZ -6 IIC . ¥198,000 ょり 

CZ -652 C ¥178,000 より 

CZ -6 I 2 C . ¥210,000 ょ I , 

68000 用モニター . ¥ 49,000より 

PC -980 I 用サウンドポード . ¥ 13,000 より 

PC -88 SR.FR . ¥ 50,000 より 

PC -88 FH . FA . ¥ 65,000 ょり 

400ライン CRT . ¥ 38,000 より 

200ライン CRT . ¥ 10,000 より 


オーエーブレイン今月の特価品//台数限定お早目に.グ 


通信販売じよるご購入ちま（わ電話でわ申し込み下さい。） 


[ 


現を一巧仏い 


J L 


振么先 


紐巧巧込；巧:なかいしてわ化心ドさい 巧用のわ申し込み用巧をお送り巧します 

手が糾さわ客はか旦となります のて、'必巧单 I 日をこだ入•巧印のうえ.こ 

現を•扭：は巧.氏を.巧なをち、面 i おを.巧用倘け、あを下さい 

メティア巧をわ.窗さホえのうえ，巧を爾留;こホホ巧年--右の方は、な巧をのこホ巧を 
て当化までわなり下さい をけてからお申し込み下さい 


>第一か典が巧 御化巧支巧 
(普）1376679才ーェーフレイン 
* 巧日巧用を度本店 

(巧）334833才-ェ-フレイン 


★クレジットは！ ~60回仏いて•月々5,000円よりご自由に設定できます. 


會才 - I - ブレイン置と 


東京都台東区台東 1-2 目-4 

S FAX 5688-3621 


ドライブ . 


アクセル 

• FDC - 357…… 巧巧¥36,000 

• FDC -358 …… が巧¥49,000 

コンピユータ.リサーチ 

• CRC - FD 3.5 S ••特化 ¥29,000 
• crc - FD 3.5 W .««¥42,000 

グローリア 

• GD -35 MI …… 祷巧¥23,000 

• QD -35 M 2 …… 巧化 ¥39,000 
»爾子 

• Liuio-Fi . 巧征 V 26,000 

♦し iui 0— F 2. 巧{&¥38,000 

SN 巨 

• SNE -2 巧化 ¥49,000 


プリンター 


N 巨 C 

• PC - PR 20 IG + 
PC . PR 20 IG -04* 

• NM -4 I 50 . 

エフソン 

参 AP -850 PC . 

V 戸 -2050 戸 C . 


キ V ノン 


IOJ - 


ミ，000 

巧価 V 64,000 
巧価 V 99,000 

巧価 V 1 25,000 


サウンド•ボード 


SNE 

I サウンドオーケストラ V . 抑価 V 23,000 
2サウンドオーケストラし.的俯 yi 7,800 
ーケストラ 巧価¥14,500 

—ケストラし 中ろ価 VI 2,000 

ミユージシャン巧価 yi 6,000 

' 巧価 V 8,500 


4ソト J レホー 
らサウンド， 

S ソト J レミユ- 


-ド•ディスク 


■ ARK WOOD 
NEC*«feiE ドライフ 
参 AW . N 40 C 
<’ぶ饰 V I 
…材価¥ < 
参 AW-NIOO 


'織!: 


ワーブ h 


NEC 

• pw 户 -yoHR . 巧価 ¥17 

•戸 W 户 -TOR . 巧価¥12 

• PWP .50 RD . 林価¥11 

巧芝 巧価 V 14 

• JW -95 HD . 巧 

• JW -95 F . 巧化¥10 


キ1•ノン 

• CW - a 350 . 巧化 ¥15 

その他、シザーフ.♦を下■盲女ぶザ、1 


■流通事情じより、広告表示よりお安くなる場合もごだいます。まずは、お電話下さい。■ビジネス•ゲ—ムたットもござ‘います。 






















































































































































ディスプレイ 

CZ-604D 

CZ-605D 

CZ-613D 

CU-21HD 


周迅機器 ソフト 

CZ-8NJ1 ¥1,400 CZ-213MS ¥15 ,如日 

CZ-8NJ2 ¥1 日 ，540 CZ- 巧 3CS ¥15,3 日日 

PI □- 日 BE1A ¥20,000 CZ- 引 933 ¥23 ， 1 邮 

PIO-6BE2 ¥39,0 日日 CZ-211LS ¥30,80 日 


プリンタ 
CZ-8PC4 
CZ-8PG1 
CZ-8PG2 
10-73 日 X 


11 


デンキヤ 




営業時間 AMIl : 邮〜 PM 7: 邮水•木曜定休 


PROn. P/? 口 


KSTATION 

OHBDI 


CZ-B53C 

CZ-B04D 

セット¥特価 
¥24，( K ][) X 12@ 

¥12,7邮 X 24 回 

CZ-603C 

CZ-B04D 

11ット¥特価 
¥巧，3日日 xl 2回 
¥14,日邮 X 24 回 


CZ - 日已犯 
CZ- 日 □ 已 □ 

セツ K ¥ 特価 
¥25,300 X 12@ 
¥13,4日日 X 24 回 

CZ-603C 
CZ- 日 □ 己 □ 

セツ S ¥ 特価 
¥2日，6邮 XI 2回 
¥1日，1日日 X 24 回 


価 

格 

は 

全 

ベ 

て 

税 

込 

み 

で 

ず 


セツ h 超特価 



、RK STATION 


EXPERTE^ EXPERTEHa 

CZ-BB3C CZ-BB3C 
CZ-B05D CZ-B13D 

セ、ツト¥特価 セツ S ¥ 特価 

¥32ぶ日日 XI 2回 ¥33,加日 XI 2回 

¥17,邮日 X 24 回 ¥17,7日日 X 24 回 


CZ-B13C 

CZ-B13D 

セ、ット¥特価 
¥36,日日日 XI 2回 
¥19,即日 X 24 回 


CZ-B23C 

CZ-B13D 

セツ K ¥ 特価 
¥39,90日 XI 2回 
¥21 ， ^0X24@ 


全品乂ーカー保証即決クレジット OK 


M 時間テレホンサービス 


0482-54-3444 


お申し込み 

TEL.M 恥 - 日 4-34 邮 
FAX.04 化 - 日 4-3443 

埼玉県川口市西川口 4-6-4 


おち私い 

下記取引銀行□座 
までお振込み下さし、。 
王菱銀行西川□支店 
㈱ デンキヤ感〇巧邮日1 


iiii 


iiii 














ぶ/ 7 な•化 TOMATO senes •!< 


LAND 


lomRom 


I maxell IE 晒 励 sonY FUJI FILM £ ： araveife.lB WIITKI 


篇漁 B 导 P 商励ホ今ずぐ/お支払い朋ヶ月をから< 

株式をれソフマップをのボーナスー巧キムい、を . IK 回ホムいも受付中•グ 


れ 

て 

お 

0 

ま 

せ 

ん 


H 班000 


SUPER-HD 
EXPERTU • 且 -HD 


胃 A 十7、ソ K 大#里 B 0 MB 、3.5 インチ 

化ザしノ， HD 巧 «、 SCSI インタ—フ 


エイス懼ホ義爾、 


SUPER-HD SX-WINDOW»lS ^ 

ち々觀 Q 孤推 ^ 

. す sofmap 巧価 


mu 


CZ -623 C - TN < 本体 > 

cz -6 l 3 D - TN < は"ドットピッチ〇.31> .¥ Sofma 日巧证 

マクセルブランクディスケット <5"2 HDxi ( i 校> w ¥ Scifma が面 

霉ホ值巧¥650,000 ¥お■ちにで 



針‘|-で ’叩。.， 


基本セツ h 

EXPERT 凸 


クレジット注义 No *7 




cz-603c< 本体 > .¥Sofmap^ 

CZ-613D< ドットピッチ〇 .31> .¥Sofm 日嫌価 

マクセルブランクデイスケットか 2HDXI0 技 >".¥Sofma が巧 i 

權ホ巧巧 ¥490,000 ¥ お«にで 


ゲームセット 

EXPE RT も^ ^ ^^ 

.^ ofmap ^ S ® 


CZ -603 C < 本が > 

CZ -605 D < I 5" ドットビッチ0.39> 

CZ -8 NJ 2 ヴナがステイ7^> 

ゲームソフト2本なか MOOWT のがさなソ7わ ¥ S 0 fl 
マクセルブランクデイスケット <5-2 HDXl 版〉 


1樣準価冷 V 5 口,400 


|> .¥Sofma がが I 

> .¥ Sofmap ^ 

tTF のがさなソ7わ ¥ Sofmap ^ 

5 - 2 HDX 10 坟〉 - ¥Sofmap^5® 


¥斯瞄て 


¥ 

11,600 X 36 回 

ボーナス な し 


16.700 X 24(5] 

ポーナス な し 



ワープロセツ h 

SUPER-HEX 



CZ -623 C - TN < 本体> .¥ Sofma が0価 

cz -6 l 3 D - TN < は"ドットピッチ〇.31> . ¥Sofma 日巧価 

CZ -8 PC 4<48 ドット AK ? 乃ンタ> .¥ Sofmap 特価 

Hyper Word < CZ -25 旧 S 日本 B ワ-プロ >".¥ S 0 fma 贿価 
マクセルブランクデイスケッい 5-2 HDX 1 做> ¥ Sofmap ^ 


福ホ化な¥7的, 600 ¥お電后にで 

7； T ； TTOb ^ ポーナス¥43._0邮乂12回| 



MIDI セツ K 


EXPERT 丘-磯 


cz -6 i 3 c - BK < 本体> .¥ Sofma がな i 

CZ -605 D - 日 K < i 5 ••ドットむ刊 .3 わ . ¥Sofma が飾8 

CZ -6 BM 1 <MiDi ボ-わ . ¥Sof map 巧価 

cz -247 MK<music pro -68 k >. ¥Sofma が劑 B 

旧がが E 


マクセルブランクデイスケッ l ><5-2 HDx I 曲> … ¥Sof ma 


權ホ化な ¥635,600- 


¥が描て 


KZXililiE 31111 HI 


00 

¥22.200 X 24 回 


ボ-ナス ¥30,000 X 14® 

■ 

ポーナス なし 

1 

ポ-ナス V 30,000 X 6回 

1 

ボーナス な し 

1 

ポーナス なし 

■ 



グラフィックセット 

EXPERT 丘 


. が ofmariJi 

.39> . ¥Sofma が f 


cz -6 的む本体> ‘ 

CZ -605 D < I 5 ■•ドットピッチ0.39>1 
Z*S STAFF PR 068 K Ver .2.0 けラフィクッ-ルのわ ¥ Sofma 巧 i 
マクセルブランクディスケット <5—2 HDXI 0 か . が ofmarili 

樣ホ化な V 528.000 ¥お■居にて 


降 

M'^irir 


7•が ) ox 72回 
を 600 X 48 回 
12.300 X 36(11 


ボーナス V 35, 邮 0 X 10 回 

■ 

ポーナス V 50,0抓 X 6回 

1 

ポーナス な し 

1 

ボーナス な し 

1 

ボーナス なし 

1 

■ 


ゲ-ム良通信た ル SUPER-HD 


CZ -623 C - TN < 本巧> . 二… ¥ Sofma が1 

CZ -613 D - TN " 5" ドットピッチ0 ' 3 1 > .¥ Sofmap^i 

cz -8 PC 4<48 な K 晏列ンタ） .¥ Sofmap ^ 

cz -8 NJ 2< アナログスティック> .¥ Sofmapi$i 

ゲ—ムソフト 2 かま ttvsjoott 下の備さなソフト）.… ¥Sofma が i 

MD -24 FS シ a 巧用モデム2400 BPs >.¥ Sofmap^i 

CZ -257 C を COMMUNtCATlON PR 068 K Ver .2. 0> - ¥Sofma 赚1 

マクセルブランクテイスケット <5 2 HDX 10 校〉…… ¥ Sofma が価 


なホ価椿¥862,800 


¥が坛口 



¥20<400 X 36 回 


データベースセット 

EXPERTU 



CZ *613 C - BK < 本体> . ¥1 

CZ -6 口 D - BK < は-ドットピ7刑'31> .¥ Sofma が飾6 

cz -226 BS<card pro 68 k >. ¥Sofm 日日巧価 

cz -8 PKio <24 ピン： / U ンタ"口〇«}> .¥ Sofmap 1 $iii 

樣ホ価な V 727,600 ¥が•店にで 



ビジネス t ツ h 

EXPERT 


. お ofm 日 

ma が巧 S 
map ^ 
扣 3備 


CZ -603 C < 本が > 

CZ -605 D <15" ドットピ.巧 0. 39> .¥5 ofl 

CZ -8 PC 4<4 扑•ツト熟6ちプ U ンタ> .¥ S 0 fl 

C 2-2 1 2 BS<BUSINESS PR 068 K >. ¥Sofl 

マクセルブランクデイスケッ hWHDxio 校 >¥ Sofmap ^ 


なホ価巧 V 637,800 


¥33•居口 


降 


I II »^46.000 X 10 回 


ボーナス V 68,000 X 6回 


¥ 12,000 X 48 回 


¥ 15,300 X 36 回 


プリンター 1 

cz-bpc1^[L 

CZ-BPKIO L 

¥ぉ霞哥 

商**^® 

CZ-BPGh#ltL 

^fi¥130.000SjgJ|^ 

CZ- を G 私山左^ 

定価 6qj00j^^^|p\ 

¥ も湖 



周辺機器 


SOFT WARE 


ホ巧 ソフマップ巧® 

> CZ -6 BE 1. ¥ 35,000涛¥ 26,500 

ICZ -6 BE 1 A . ¥ 38,000蜂 ¥ 28,600 

ICZ -6 BE 2. ¥ 79,800晦¥ 60,000 

に Z -6 日 E 4. ¥138,邮〇晦 ¥107,000 

に之-6日 F 1. ¥ 49,800 •¥ 38,200 

に Z -6 日 P 1. ¥ 79,卵0時 ¥ 61,000 

> CZ -6 TU . ¥ 33.100晦¥ 25,000 

> AN - S 1000 . ¥ 36,600晦¥ 28,500 

ICZ -8 NS 1. ¥ 188,000時 ¥145,000 

> CZ -6 EB 1. ¥ 88,000晦¥ 67,500 


を® ソフマップ材« 

• Z's STAFF PR 068 K V 2.0.. ¥58,0抓 *¥39,700 
•DATA PRO 68 K ( CZ -220 BS ) ……¥ 58.00 日晦 ¥ お電話じて 
•CARD PR 068 K ( CZ -226 BS ) …。¥ 29,800 晦 ¥ お電話じて 
•C コンパイラ PR 068 K V 2.0( CZ .245 LS ). ¥39.800 晦 ¥32,000 
•SOUND PR 068 が CZ -214 MS ) ¥ 15,800晦 ¥12,500 
•MUSIC PR 068 K に Z -213 MS ) … ¥15,卵0 時¥お電話にて 
♦サンプリング PR 068 K ( CZ .215 MS ).... ¥17,卵 0*¥1み000 
♦コミ：!:: ヶ か 3 ン V 2.0( CZ -257 CS ) …¥巧，卵 0* ¥ お電話にて 

• OS -9( CZ -219 SS ). ¥29,卵0時 ¥ お電話に て 

•KAMIKAZE . ¥ 68.800 晦 ¥4 ら 000 


No •トンステム 


N□.1クレジットシステム 


N0.1 下巧りシステム 

わ持ちの機種を下取りに出して、新品に頁替えようと思つ 
ている方、ソフマップに御相談下さい0 
貫取り価格がどこよりも离く、斩品の販売価格がどこより 
もをいから、当がどこよりもお得な条件でお買求めいただ 
けます0 

又、差額を商品券でお支仏いもできます。 


No.l お送システム 


1. 到着日指定、夜間配送システム 

おをがのご都合に合わせて百己送させていただきます0 
機種じよっては、夜間配送できないものがあります。 

2. 代金引換システム镇手数料） 

係員が品物をお届けに巧きますので、その時にお支仏 
い下さい。 


1. 日ヶ月先からのお支私い OK 

スキップクレジットを巧!ネリ用になれば支仏い閒始ちを1ヶ 
月から、最 *9 ヶ月先までわくらせる事が出巧ます。 

2. 巧々¥1.邮〇からのお支払い日 K 

月々のわま仏いを巧の投をが¥1.000から OK 。 

3. 日4回*/^、ち01< 

わを巧のプランじをわ甘て、1回から最 *84 回までま仏 
い回おをわ进びいただけます。 

4. ステ、 ジプアップクレジット 

わを巧のプランに合わせて、毎月のわ支仏いを巧を徐々 
じ増やしてい<システムです。例えば、1年目は V 3.000、 
2年目は V 6.000というようじ、巧自由におますることが 
できます。 

己.ボーナス日回ホムいち OK 

毎月の支払いは〇、ボーナス時のみのお支仏いでクレジ 
ットゲ巧]利用じなれます。回がはし2回の化、4 • 6 • 8回仏 
いまで OK 。 

日.力ードクレジット 

を巧クレジットカードが庙巧だけでなく、 - n - 
巧巧が充でも巧利用になれます。なしく 
はわ巧轻じおない合わせ下さい。 ^ S 

7. カレッジクレジット 

巧化人なしで、学生の方でもクレジットが巧利用できます。 
(20 ホ la 上） 


No.l サポー h システム 


I . 初期不良交換期間3ヶ月 

•万一、わ届けしたお品が不をの巧合、わ K い上げ日よ 
り3ヶ月な内なら、同等品と即、交あ致します。 


吕.新品パソコン3年保証 

•メーカー保化が I 年の巧合、メーカー巧化1キ+マップ 
保肚2年のれ3年間のイ呆化になります。 


3. 中古パソコン1年保証 

参中古パソコン本体は、1年阳保化巧します。（ディスプレ 
イプリンタ等は6ケ巧巧化となります） 


4. 新品パソコン買取り保証 

•1 ヶ月が巧であれば必ず W 取り保化を巧で、下取り、 
K 取り致します。 


己.永义買取り保証 

参古くなった/ くソコン、スクみグ寸前の/ くソコンでも〇にグ 
どんな/、•ソコンでも、どこよりもな< K い取ります。 
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式輪 '' 


J 


基本わい J 卜 3 M バイトの大メモリ、 

■ /I が sai / ow —一 3口..,1^— 


括 
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商 

品 

な 

か 

に 

ち 

さ 

数 

巧 

0 

巧 

し、 


0 

ま 

ず 

の 
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若 

気 

巧 

に 

お 

巧 

ち 

せ 

下 

さ 

し; 

又 

品 

巧 

應 

は 

霉 

曰 

を 

動 


I 


Ji \/ W む化 TOMATO S 


[omRoni 


Imaxell 晒 El 班 1 sonY FUJI film ^ araveue.ie WMTKH 


TV 日本テレビ、 T 日 s 、 フジテレビ、 
テレビ巧曰、テレビ巧京巧歹 J 
で CM 放映中夕ち営1日店話 

下お〇差巧のおま払いは、クレジッ h を御利用下さい〇 


下巧0 •買巧 D 大視迎•ダ 




高巧買巧価宿表 


y 商品名 1 高お頁取 

X 68000 モニターセット 

X68(CZ-662C + CZ-600D 601 D) 

¥250,000 

X68 (CZ-662C + CZ-611 D/Gl 2D) 

¥260,000 

X68(CZ-652C + CZ-600D/601D) 

¥210,000 

X68 (CZ-652C + CZ-6 11 D/612D) 

¥220.000 

X68 (CZ-623C + CZ-602D) 

¥360.000 

X68 (CZ-623C + CZ-605D) 

¥380,000 

X68(CZ-623C + CZ-613D) 

¥390.000 

X68 (CZ-623C + CZ-603D) 

¥345.000 

X68 (CZ-623C + CZ-604D) 

¥350,000 

X68 (CZ-612C + CZ-600D/601 b) 

¥290.000 

X68(CZ-612C + CZ-611D/612D) 

¥300.000 

X68(CZ-611C + C 之 - 6000/601D) 

¥235,000 

X68 (CZ-611C + CZ-6110/6120) 

¥245,000 

X68 (CZ-603C + CZ-602D) 

¥255.000 

X68 (CZ-603C + CZ-605D) 

¥270.000 

X68 (CZ-603C + CZ-613D) 

¥280,000 

X68(CZ-603C + CZ-603D) 

¥215.000 

X68(CZ-603C + CZ-604D) 

¥225,000 

X68(CZ-602C + CZ-600D/601D) 

¥240,000 

X68(CZ-602C + CZ-611D/612D) 

¥250,000 

X68(CZ-601C + CZ-600D/601D) 

¥195,000 

X68 (CZ-600C + CZ-600D/601D) 

¥190,000 


PRO 且 






CZ-653C< 本か〉 .¥Sofm3 がが ffi 

CZ-6 1 3D り 5" ドットピザ 0 . 3じ .¥SDfmap 特価 

マクセルブランクデイスケット <5"2hdxio 枚 >‘"¥50Tma がを !1 

揉を価な V 444,000 ¥お電店 I 了 



基本セツ h 

P … 且 -HD 戸 

cz-663c< 本体 > . お ofmap^ 

cz-6i3D<i5" ドットビザ〇 .31> .¥Sofmap 输 i 

マクセルブランクデイスケット <5 ’ 2 HDX 10 枚い " ¥Sof ma が孰面 


巧を価なV 547,000 


500 X 6 
400 X 3 
400 X 7 
みを 00 X 48 回 
12,700 X 36 回 


¥お！坛な 




ポ — ナス ¥35,000X10 回 

■ 

ポーナス ¥50,0 邮乂 6 回 

1 

ボーナス な し 

1 

ポーナス な し 

1 

ボーナス な し 

1 


MO セット 

PRO 丘 


CZ -653 C < 本か . ¥S( 

CZ -605 D < け"ドットピッチ 0 .39).¥Sofr 

CZ -6 BMI <M の I ボード > .¥Sof m : 

CZ-252MS<MusicStudioPR068KVer.l.l) ¥Sofm3P 特 fl 
マクセルブランクデイスケット <5-2HDxi[i か … ¥Sofma がが！ 


Sofmap 特価 
Bofmap^tl 
3 日 fma 贿価 


«単価が ¥479,600 


¥ お ■ 樹コ : 


KM ：!^ 
戸■■■ホ -irr 
■EZOOK 

■け W 


500 X 84 回 


6,200 X 24 回 


8 i 800 X 48 回 


ボ-ナス ¥20, 000 X 1 4 回 


ポーナスV 60,000 X 4 回 


r ボー ナス 


’• 剛け回 ■ 


16,200 X 24 回 


開発セツ S 

PROn-HD 



CZ -663 C < 本体 > . . 

CZ -605 D < I 5" ドットピッチ0.39> .¥ S 0 TIT 

CZ -219 SS の S か . ¥SGfma 

CZ -2 11し S<C Compiler 》.¥50 fnr 

マクセルブランクディスケット <5’2HDx 10 か - ¥Sofmap 


棵ホ価巧 V 596.600 


¥が描了 



14,200 X 36 回 


¥20夕 00 X 24 回 


通信セツ h 

pRon 

CZ -653 C < 本体い… 

CZ -605 D <15" ドットピッチ 0.39>. 

MD -24 FS 5< ii « 用モデ AM 00 BPS >. 

CZ-257CS<C0MMUN に ATION PR058K> 
マクセルブランクデイスケットが 2 HDXI 化 [> "I 


お Sofm 日が面 
¥Sofma 口特血 
¥Sofmap 巧曲 
¥Sofma がお S 
¥Sofma 脚 


巧夕価な V 486,600 _ 


¥お■居な 

ポーナス V 28,000 X 12 回 


ポ-ナス V 25,000 XI 0回 


ポーナス な し 


ポーナス な し 


ボーナス な し 



プ ij ン h セツ h 

PRO 且 -HD 


cz-663c< ♦体 >.¥Sofma が 11 

CZ -605 D < け"ドットピッチ 0.39>. ¥Sofm 日 

CZ-8PG1 <24 ピン 漢を ドットのンタ -80 版 … ¥ Sof map 巧価 
CZ-221HS<NEW Print SHOP PR068K> ...¥SOfma 日巧価 
マクセルブランクディスケットな " 扣 Dx 10 か .. •¥Sofmap^ 


ホホ価巧¥676,800 

口 


ポ—ナス V 50, 邮 0 X 10 回 

■KZKilLLLESSifll 

ポ-ナス V 70,000 X 6回 


ポーナス な し 

■ EZE ^ Qi^SQlIiHI 

ボーナス な し 

¥ 16,200 X 36 回 

ポーナス な し 


店頭に直接来られる方は 

(東京的-巧 8-3156 C 大巧邮 -647-0562 

巧«巧売を 
ご利用の方は 

(東ま的-巧 3 -化 30 C 大巧邮 -633-7 巧 4 

FAX . の-巧3-が90 

ネし權 011 -日 65-7 的 0 權お 045-311 -3441 広 A 0 お-巧 2-0604 
仙台 022-2 BB -3405 を沢 0762-21 -7045 福岡的卜 752 -邮 44 
新满 0258-22-6139 €を| 052-332-2117 高化 0 B 7 日- 34 -日的 3 

24時面テレフォンサービス 

ぐ03 - 258 -7910 

フリ-ダイヤル 商品発送のお問をねせ 

W 5 0120-08-0113 

フリ-ダイヤル が»•修巧のお间合わせ 

が 0120-11 -0292 


業界 No .1 のほを巧 


支仏い回お 

13 

6 

10 

12 

け 

18 

20 

24130136142 

48154 

60 

66 

72 

78 

84 

化れホ利 

lii . 

5 
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9 

10 

12 

13 

16 19|2125 

28131 

35 

- 

- 

- 

- 

map ホ泽け 

2 0|2.5 

3 5 

5 0 

5.0 

6.0 

10.0 

I 0 .C 

10511 け1。!18 

191235 

24.5 

30 

わ 

巧5 

魁 


お支给い方法 


1. 代を引瘦システム 

A 呂かお巧をわ届けに巧さますのて > その巧にわミ仏い下さい 

2. クレジット 

わ巧き丢て支仏い回が、支仏い閒怡日.ホーナスのち無をわつしクつて下さい 
こち与か与クレシ . ソト用化をお送り致しますのて . こお入 • こ巧 Ef ) の上こ返ぶ下さい 
ホお重リ巧巧、谢おをの口をか b 自 W 引活しとなります 

3. «巧攝込 

わ巧なてが , 主文の上、下な巧ホへ巧 1 ミ巧いてわ巧り込み下さい 
こげ巧化、たたちじな 0 ろをお送りします振込キな扛 H よわ客巧 ft 巧となります 


お込先 


営業時固/; 


東ま秋葉原店 

= 巧銀行が巧原支店 ( を ) 1012131 
口座 名義 ㈱ ソフ マップ 


平 日 AM 11:00' 
日•祭日 AMf 0:00- 


- PM 8:00 

- PM 7:00 


田巧'^ 


〒101束まが千代田区外巧田3下目けを6号小暮ホ広ビル IF 
〒556大极ホ治ぶ区日本な5下目7を17号ソフマップヒル 


高巧下取 D 是巧表 

阻阿をミ /J レ东 9 〇この化のホおじついてらわ ■ おでわ巧なにわ ra いをわせ下さい。 





SUPER-HD 

CZ-623C 

CZ-613D 

EXPERT II 
CZ-603C 
CZ-605D 

EXPERTIIHD 

CZ-613C 

CZ-6I3D 

PRO II 
CZ-653C 
CZ-605D 

PR0II-HD 

CZ-603C 

CZ-605D 

下取り機種 

交換差額 

交換差額 

交換差額 

交換差額 

交換差額 

CZ-652C 

CZ-602D 

¥308,000 

¥135,000 

¥238,000 

¥ 95,000 

¥135,00 日 

CZ-602C 

CZ-602D 

¥268,000 

¥ 95,000 

¥198,000 

¥ 55,000 

¥ 95,000 

C 之 - 6UC 

CZ-611D 

¥270,000 

¥ 97,000 

¥2 日日 ，000 

¥ 57,000 

¥ 97,000 

CZ-601C 

CZ-601D 

¥318,00 日 

¥145,000 

¥248,000 

¥105,000 

¥145,00 日 

CZ-600C 

CZ-601D 

¥323,000 

¥150,00 日 

¥253,000 

¥110,000 

¥150,00 日 

CZ-880C 

CZ-880D 

¥440,000 

¥267,000 

¥370,00 日 

¥227,000 

¥267,000 

PC-9801VX21 

PC-KD854N 

¥313,000 

¥140,000 

¥243,000 

¥100,000 

¥140,000 

FM-TOWNS-2 

FMT-DP531 

¥393,000 

¥220,000 

¥323,000 

¥180,000 

¥220,000 




大巧曰本«店 


巧下 fl»T か 


。あなたが今、お持ちの機穩 











































































































































































































































が河ぞ锥伝化 

8.800 

大化;ち時代 

9.800 

サバッシユ 

7.朗〇 

トンネルズ&トロールズ 

9.孤0 

おポーグすずめ 

7.800 

ソーサリアン 

9.800 

ィース1 

7.800 

ィース2 

7.800 

ィース3 

8.700 

巧のの'!:、棋川 

9.700 

きゃんきやんバニースペリオール 

6.800 

スト□ペリー大找略 

6.孤0 

DPS 

5.400 

維新の放 

9.800 

アークス2 

9.800 

ラスト/\ルマゲドン 

7.800 

ルーンワース 

8.800 

その他をがな庙あり 


X 6 郎邮シリ 

-ズ 

商品名 

ま価(円) 

アースス2 

9.800 

アールタイプ 

7.800 


ミ価(円) 
6.朋〇 
6.800 
8.700 
8.700 
9.800 

9.800 

14.800 


PC 98 シリース 


巧おを 

を価(円) 

H 国を H 

14.800 

ポピュラス 

9.800 

ダンジョンマスター 

9.800 

ブライ上を 

9.800 

キャンぺーン版大歡巧2 

9.800 

トンネルズ&トロールズ 

9.800 

FOXY 

6.800 

ドラゴンナイト 

6.孤0 

セーラー服我±フェリス 

6.800 

うろつき童子 

6.800 

ダークレイス 

9.600 

エイトレイクスゴルフクラブ 

4.800 

レナム 

9.800 

を皇まを門 

9.800 

ドラゴンスレイヤー VI 

8.700 

維巧のみ 

9.800 

巧巧の;文献 

14.800 

水が伝 

9.800 

バトル 

12.800 

ワンダラーズフロムイース 

8.700 


RYU 11.600 

ロンメル 8.800 

我巧空軍 8.800 

エメラルドドラゴン 9.800 

スト□ベリー大敞略 6.800 

デ•ジャ 6.800 

坊をが宮 8.800 

DUEL 8.700 

インペリアルフォース 8.800 

大戦略 III 「ホの逆な編」3.600 

ブ J ンスオブペルシャ 8.800 

キャンぺーン版大巧巧 II マップ4.800 
麻雀悟空-天さへの道 9.800 

クォータースタッフ 9.800 

サイレントメビウス M .800 

3.5’ 版ら在度あります： 


アフターバーナー 

9.200 

イー ス 3 

8.700 

維新の激 

9.800 

信長我国群雄た 

9.800 

ガウディー 

9.800 

グラナダ 

8.800 

エージャックス 

8.800 

ジェノサイド 

8.800 

ナイトアームス 

9.700 

サラマンダー 

8.800 

スー パーハングオン 

8.800 

天下統一 

9.800 

ダンジョンマスター 

9.800 

ポビュラス 

9.800 

デスブリンガー 

9.800 

大海令 

12.800 

ラストハルマゲドン 

9.800 

森田巧が2 

10.000 

メタ J レサイト 

8.800 

V’BA しし 

7.900 

お平的巧を 

7.800 

その他を数在巧あり 



化巧年物語 
悅甲師団 
教略を軍 

ロンメ,1レ 

天と地と 

RYU 

□ードス A 我妃 
ブルトンレイ 
エメラルドドラゴン 
デジャ 
巧アナログ 
アークス2 

3.5‘瓶も在巧あります， 


商品名 
ドラゴンナイト 
FOXY 
DUEL 

ドラゴンスレイヤー VI 
信長我国群雄化 
水蔚伝 
=国志 II 


PC 88 シリース 


なおち 

DUEL 
云国志 H 
FOXY 


を化(円）巧が掛# 
8.700 7,300 

14.80012.500 
6.800 5.700 



サーク 

8.800 

7.400 

バズニック 

7.800 

6.600 

トンネルズ&トロールズ 

9.800 

8.300 

ダンジョンマスター 

9.800 

8.300 

ボビュラス 

9.800 

8.300 

ワンダラーズフロムイース 

8.700 

7.300 

ナイトアー厶ス 

9.700 

8.200 

パブルポブル 

7.200 

6.100 

ダウンタウン穀血おけ客 

8.800 

7.400 

スーパーハングオン 

8.800 

7.400 

H 国志11 

14.800 

12.500 

旧の血饒(上を） 

8.800 

7.400 

ヮール!'.コート 

8.800 

7.400 

ルーンワース 

8.800 

7.400 

シムシティー巧月7日発赫9.800 

8.300 

クオース 

6.800 

5.700 

ガンシップ 

11.800 

10.000 

巧なの決断 

14.800 

12.500 

イース I 

9.800 

8.300 

その他をがを巧あり 





ドラゴンナイト 

6.800 

5.700 

雀ボーグすずめ 

7.800 

6.600 

大化巧時代 

9.800 

8.300 

天巧たちの午をホ外3 

8.800 

7.400 

セーラー服牌±フェリス 

6.800 

5. 7孤 

エメラルドドラゴン 

8.800 

7.400 

クリムソン III 

8.700 

7.300 

巧幻のむ篇山 

9.700 

8.200 

WP うを化化 

6.800 

5.700 

きゃんきゃんバニースペリオール 

, 6.800 

5.700 

リップスティック AD VII 

6.800 

5.700 

DPS 

5.400 

4.500 

トンネルズ左トロールズ 

9.800 

8.300 

うろつきち子 

6.800 

5.700 

ランペルール 

9.800 

8.300 

ランペルール CD イ寸 

12.200 

10.300 

その他を巧を巧あり 



X 6 卵 00 シリ 

—ズ 


商品を 

ま価(円） 

巧あ(雌 

グラナダ 

8.800 

7.400 

天下統一 

9.800 

8.300 


PC 98 シリーズ 


巧品る 

ミ術円） 

强巧齡 

=国を H 

14.800 

12.500 

ポピュラス 

9.800 

8.300 

プ□ミストランド 

4.800 

4.30 Q 

ダンジョンマスター 

9.800 

8.300 

シムシティー (9 巧7日を巧）9.800 

8.300 

大化海時代 

9.800 

8.300 

キャンペーン版大教略 H 

9.800 

8.300 

栄冠は君じ 

9.500 

8.000 

FOXY 

6.孤0 

5.700 

ドラゴンナイト 

6.800 

5 700 

D - 欧州®巧楼 

12.800 

10.800 

ハ‘ズルトピア 

7.800 

氏奶〇 

エイトレイクスゴルフクラブ 

4.800 

4.300 

雀皇登を門 

9.800 

8.300 

ドラゴンスレイヤー VI 

8.700 

7.300 

バトル 

12.800 

10.800 

46保年物 S 吾 

9.800 

8.300 

推甲師団 

9.500 

8.000 

天と地と 

12.800 

10.800 



巧ビル 


[ BANK ' 


を T 

^ ビル^^! 



高 


PC 88 シリース 


大処分 


中ちソフ 


を文書 


ソフトる 


献 



メディア 


献売価格 


わる前 


買巧巧賴書 


フト名 


I 住所 I 

正^/ r g ミで 爭か 

TmWM ——風蜂^ 


错裡 




勃が 


メディア 


巧品ソフト旧％ OFF 


をお、消費说化み 


たどし、化瓶！•沖 ！*、« A 
.1 fuT £^( Kro の方は200円プラスしてお 
をして下さい。 

定価 5.0 邮円ホ满のなあじついてはプラス300円。 



新作エタラルド危が¥6,閒〇 ^肖巧税 


要りません/ 


巧巧 DE - iJA ¥5,700 


要りません/ 


• 代をはま文香をホえて、現金書留で送って下さい（小為替不可） 

巧仏いシステムらあります 

• 巧おソフトをごま文の場合は、商品代をを送って下さい，（送料、泊'黃税込み） 
•中古ソフトをご;ま文の場合は、必、ず巧輔こて在庵確認をして下さい 
♦未発巧ソフトの巧合は、予約巧いとさせていただきます 


• 頁巧りホ望の巧合成まずソフトを当店に送って下さいこちらで巧お査定のうえ、 TE しで 
ご連絡させていただきます値段が合わない場合、商品はすぐあをしますので、 ま,。して 
お送り下さい. 

• ディスケットの送料は、100枚まで500円です。 

• 中古ソフトリスト完ぶ、ごホ望の方は62円切手3かをわぷリ下さし、 


ブランド品 

5'2 HD 

臘 

1.弧0円 

ノーブランド 

57 HD 

10枚 

6日0内 

ノーブランド 

5'2 D 

10枚 

400円 

フランド蟲 

3.57 HD 

10か 

2.孤0円 

ノーブランド 

3.5'2 HD 

10枚 

1.500円 


消 !! 棋 3 %巧び送料 
500 円をプラスして送 
をして下さい。 


_ _ 〒5が） 

n I Q ぐ >ゎ k 11 )吉18た器纖胃3 

I J I 11 lx I ク ■ 1 / ISITMTl tel せけ時阳 AMn ： 00-PM8 ： (K) 

III ▼ , ■— V | f#V 巧’ 《 巧阳 AM 12：00- PM 8：03 

〈東京地区 TEL 才ープン〉 

00726-83-9907 巧 03-7i3-i424 



巧 


住3 


なじてお問い合わせください。 


000000000000 
000ひ〇び000000 

858886888888 

998821989699 


I 巧じてお問い合わせください。 


勇 §‘^§‘g 測刑§’勇測糊’§‘§’鄉§ 


巧じてお問い合わせください。 


なじてお問い合わせ圈瞧ください 


取中/ 































































通ち巧売のごま内 

全国通販 - 

■銀行振込で申し込みの方は商品名 
及びおぎなの住所•氏名•電話番号 
をわ知らせ下さい。 

〔振込先 ) 第一が#が巧おを支店 

を iiNo . り63457 ㈱ 才ーエーランド 

■現を*曾で送金されるわぎ株は電話番号と商品名、数量を明記して同封して下さ 
い.■クレジットでご赌入をホ望される方は申し込み用紙をお送り致しますのでご!己 
入の上返送して下さい。20ネ1•义上の方は、原則として保証人不要です。クレジットは 
I 〜60回仏で月々5.000円よりご自由に設をできます。 


•下取•頁取は巧話で見巧りしてわります。責任を持って下取りさせて頂きます。 
♦ごま义、わ問合せは… 午前10時から午後7時まで 
♦商品のお届けは…入を巧認散即日発送致します。 

㈱ 才一•王一•ランド 

〒巧0東京都渋を区円山町2日-4第5日新ビル 1 F 

巧 (03)770-8855 FAX 

閒まエリアの送料は、1個じつき¥1,000です0 
★全苗 i なが化書が。専門のアドバイザーカ、’、おを梯の二ーズじ巧応します〇 
★キ刀期不良-が送トラブル等じ迅ぷじが応し即巧みさせていただきます〇 


(03)770-7080 


アフターサービス 万全 

のサポートが制 
イ憂良パソコン販売巧 


パソコン g 円 

就高。 Q . A - うムド 

ド-ムソフトのこと■厦飄 I W ■ 


費怒藏墨^^ドンぉ電話マさぃ。 


♦お近くの方は、わ 
専門係員がアドバイスいたしま 
♦ビジネスソフト、ゲ- 
ならわまかせ下さい!！ 

セール 巧間 

イ，90 8-15 ^9-15 


‘ I •イ' 


もつてけ、もって比グドカ〜ンとプレだント 
0 A ランド恒例•大お買徳セール実施中 


> 毎週曰曜、第 2 • 第 4± 曜日は、定休日と 
させていたださまず。 


SHARP X 郎〇邮シリーズセット 


•次代のインる 

X6 卵日日 EXPERT II 

• CZ -603 C - 巨 K/GY 

• CZ -605 D - 巨 K/GY 

• MD -2 HD _20 枚 _ 

定価合計¥ 453,000 

0 A ランド大特価 

クレジ！ 

ツト 



SX-WINDOW 巧化.グ 

X68000 EXPERTII-HD 

• CZ -6 I 3 C - 巨 K/GY 
参 CZ -605 D - 巨 K/GY 
AMD -2 HD 20枚 


価合計¥ 563,000 

’0 A ランド大特価 


卜姻 

¥30.000 24® ¥15.700 

3姻 

¥10.900 

ク レジ 

ット 

12回 

¥37.300 

24回 

¥19.600 

3晒 

¥13.500 


が 800 日 PRO II 

♦ CZ -653 C - 巨 K/GY 

♦ CZ -605 D - 巨 K/GY 

♦ MD -2 HD 20か _ 

定価合計¥400,000 


>SX-WIND0W 塔載 . く / 


■ 八 

4! 


X6 卵日日 PR0I1-HD 

CZ -663 C - 曰 K/GY 
CZ -605 D - BK/GY 
MD -2 HD 20か 


定価合計¥510,000 


クレジ I 

ツト 


卜姻 

¥26.50 01241111 ¥13.900 peHl 

¥9,600 

クレジ 
•ソト 

12回 

¥33.70〇1 

241111¥17.70〇|36回 |¥に200 


X68000SUPER-HD 

• SX - WIND 0 W 搭載 

• SCSI インターフェース装備^ 

• 80 MB ハードディスク搭載 

• 3 M 巨大容量メモリ装備 
•高解像度グラフィック 


—S 謂 N 气巡 香載 // 久 r 

備」 一 

た卜 


X68000 SUPER-HD 

► 02-6230-了|\1(チタン） 
ICZ -6 I 犯 - TN (チタン） 
LMD -2 HD 20か 


クレジ 

ツト 


1回 

¥490.630 

12回 

¥41.900 

24回 

¥22,000 


価合計¥633,000 


0 A ランド大特価 


セットで購入のわ杳がじ、デイスケット （10 枚）、ゲームパックサービス中•グ 
さらに、期間中ゲームソフトが1本付きます0詳しくは、お巧お下さい。 


新製品コーナー 


ISX-WINDOW 

(次代インテリジェントソフト） 


を価 ¥6.800 

OA ランド特価// 


ICZ -6 巨 V -1 

( ビデオ • ボード ) 


定価 ¥21,000 

OA ランド特価// 



今月の特価品(限定)お早目にグ 


★ CZ -888 C (日 K ) シャープ 

限定つ 大特価¥00,000 

バ99,000 
10,000 
5,000 
4,000 
5,000 


★ CZ - 目 03 C ( BK ) シャープ 

L 展示品 3 を限を卜…大特価 ¥ 236,000 


参〇 之 .6530 ( BK ) シ ザーブ 

眉示化3点 Ml ：®. 

• WOA 300 (つープロ）シヤー 


• WD - A 330( ワーブロ）シャープ 

巧:価 V 185,000 . 

参 WD H し30 ( ワーブロ）シャーブ 

ホちい198.000 . 

参戸 W .9 10(マープロ》シャーブ 


•特化 V 1 

25,000 
1«« V 134 ,C 
卡化 ve 5 ，c 


> PC - KD 853( アナログ CRT ) NEC 
> XC-I 4980(アナログ CRT ) S 巧 
» CU - I 4 FD (アナログ CRT ) シヤーフ 
參户 A -850 日（■子手 ♦») シャーブ 
> PA -7 S 0 J )( 霉す乎 «) シザーブ 


nmvso.ooo 

1% 価 V 54 ,i 

••特価 V 46, 

化 ¥14， 

•特化 V 16, 


4,800 
6,000 
4ぶ〇〇 
6*000 


周辺機器 コーナー 


.cwpviiSS； 試コ—ナ- 0A ランド特選品// 

ま価 ¥198,000 . ► 输面 ¥152,000 !!***■ つ !! 

• CZ*8PC3(24 ドット龍写カラ - フリンタ -) ■ ■ 

を価 ¥ 65,800 . ► 特证 ¥ 53,000 U‘- 

• CZ-8PKI0(24 ヒン ; ミ字ドットフリンタ - • 136 做 . 

. ► 特価 ./ TEL 下さい ! 

(24 ヒンカラ -;II 字ドットフリンタ -‘80 衍） 

ま価 ¥13 日,日日日 . 狐 / TELT か、！ 

.CZ-8P のり化ンヵラ - 漢字ぃトフリンター 136 侃 ■CZ- 8 PC 4 (を価 ¥ 99,800) 

を価 ¥150.000 . ► 特価 ./ TEL 下さぃ！ 一り '^ マ 、^ 

• I か 735X( カラ - ィメ - ジェ .• ノトフリンタ -) ,48 ドット教お写カラ - 性佩 ; 々巧ん OfWT 

を価 ¥248,0 邮 . ► 巧な ./ TEL 下さぃ！ミ莫字フリンタ - 朽^凹す 

「X 郎〇邮用ソフトウェアー•コーナニ —11 X 郎邮 D 用周进機器〕ーナー I 

，! CZ-2I2BS(BUSINESS). ま恆 v 68,000► 巧鮮 53,000 •CZ-6PU1A.. を価 ¥ 38.000► 巧価 ¥ 30,000 

夕 r 7 ? 州 RSfnATA 、 .o/jEu « nnnk な fflfi 乂 ，6 nnn 参 GZ-6BM1 を価 Y 26.800> 巧価 ¥ 21,000 

ぶ GZ ぶ 0BS DATA) 曲化〇〇〇 ► 巧価 ¥ 45 厕 ©GZ-6BE1... を恤 ¥ 撕 .0 抓 ► 巧価 ¥ 69,800 

.1 CZ-2l5MS(Sampkng). ま还 <^ 17,800► 巧価 ¥ 13,800 •CZ-6VT1 定価 ¥ 69 800► 下 EL 下さし、 

；4 CZ-22IHS(NEWPmiShop)...... 定 ®v ル 8 邮 ► 巧巧 ¥ 15,500 ♦CZ-SNSI.... 定価 ¥ 1 说 .000► 巧価 ¥149,000 

.iCZ ぶ 7BS(T0P お榜会計 )…… 否巧 ¥ 扣 0.000► 巧证 ¥158,000 •GZ-6BG1 …. を価 ¥ 79.800► 特価 ¥ 63,000 

I CZ-226BS(CARD). 定 fliW 化扣〇 ► お価 ¥ 23,000 • 最新ダ—ムソフト 

な CZ-223CS(Communication). ミ (i¥ け . 8 邮 ► 巧価 ¥115 加 0 の仙ス種、，フト 

I CZ-2I3MS(MUSIC). ま'か 18.800► 巧価 ¥ 1 ん 800 // 

身 CZ • 川 LS(Ccon^r). まが 39. 的 0► 巧 ®¥ 314X)0 如 /^ 〜ぶ )/^ Or 广.ツ 

西 C-TRACE ( キャスト ) . ま面 ¥ 68,000 ►巧価 ¥ 52 卿 • 周ぶ機器•プリンター 

OEW ( ィ - スト ) . 定任 V 38,000► 巧価 ¥ 29, 抓 0 割引版売中 // T 巨 L 下さぃ / 

■ •〇 DATA 増設 RAM ホ'—ド 

•1MB 増設 RAM ボード •2MB 増設 RAM ボード •AMB 増設 RAM ボード 

PI0-6BEI-A PIO-6BE2-2M PIO-6BE4-4M 

定価 定価 定価 

¥ 25,000 i ¥50,000 V 88,000 




特価 ¥19,500 特価 ¥38,500特価 ¥67,000 


■八ードディスク■特価品もありますので T 巳し下さい。 


■アイテック ITX -640 …… 
■アイテック ITX -680 …… 

• ロジテック LHD -32 V 〜- 

• ロジテック LHD -34 VE " 

• ロジテック LHD -34 V 〜- 


巧価 ¥117,000 
巧価 ¥149,000 
巧価¥ 85,000 
巧価¥ 90,000 
特価 ¥104,000 


•シャープ CZ -620 H -- 
■シャープ CZ -64 H 〜 
•アイテム HXD -040 - 
•アイテム HXD -042 - 
• KM SR -80. 


特価¥118,000 

特価¥ 95,000 

巧価¥ 88,000 

特価¥ 95,000 
巧価 ¥130,000 


中をパソコン 


(価格/な孤まお動しまず。予約肋日 W 巧としま■す。） 


PC -980 IRA 5 •- 
PC -980 IRA 2 •- 
PC -980 IRX 2 •- 
PC -980 IEX 2 - 
PC -980 IVX 2 I - 
PC -980 IUX 2 I - 
PC -980 IVX 2 - 
PC -980 IVM 2 I - 
PC -980 IUVII - 
PG -980 IL \/22- 
PC -286 VE …… 
PC -286 US •.… 


¥338,000より 
¥265,000よリ 
¥199,000より 
¥190.000よリ 
¥170,000よリ 
¥165,000よリ 
¥160,0001り 
¥150,000よリ 
¥148,000よリ 
¥160,000よリ 
¥150,000よ V 
¥155,000より 


PC -286 VS - 
CZ -600 C • 

CZ -60 IC .... 
CZ -6 IIC ••- 
CZ 652 C …• 
CZ -6 I 2 C .. - 


¥165,000よリ 

¥160,000が 

¥170,000より 
VI98,000よリ 
¥178,000ょリ 
¥210,000よリ 

68000 巧モニター . ¥ 49,000よリ 

PC -980 I 巧々ウンドポード . ¥13,000よリ 

PC -88 SR.FR . ¥ 50,000よリ 

PC 88 FH.FA . ¥ 65,000より 

400 ライン CRT . ¥ 38,000よリ 

200 ライン CRT . ¥10,000よリ 



■表示価格は、税別表示です。詳しくは、お電話じて、お問い含せ下さい。掲載の価格は、7巧中現在です。 








































































































































ノ前□和 EXE CLUB ^ 


新規ユーザー ‘ EXE を員ク 


★ X 目日日邮ユーザーニーズに巧応した八ード-ソフトウェア-周辺 
が器は全て展示していまず。 


★新製品情報-ユーザー同±の情報交換がでさる、メンバー様の 
憩いのスぺースでず。 

★大特価セール期間中 X 日8邮日•ディスプレイ-プリンター御購入 
の方は全国どこでも送料無料/:/ 

★遠くでなかなかお越し頂けない方にも通販専用 TEL で専門ス 
タッフ （ X 68 PRO STAFF ) が親切了寧にお答えしまず0 
★ X 6 邮邮お買い上げの方、アイツーより日 i 邑プレゼント。 


^おげさ幸 
Iもれな* 


;もの吕点 
ついてくるク 


X 60000オリジナルステッカー 
X 68000フロッピータイトルシール 
X 68000オリジナルテレフスンカード I 
X 68000バック J 

★視巧シャープ X 目邮邮 EXE 会員の方、おトモタチをご紹介下 
をい。ご購入成立時点でアイ-ツーとシャープよりステキなプ 
じが^^^だント進呈ゃク 、、曼 

bn 聲アイ. 、ソー ン八ーズ歷待制度実施 

アイ’ ^ツーで X 郎〇邮•及びソフトウェア周辺が器をわ買上げ頂さまし/ 

じはオソジナル?<ンバースカードををが巧:‘しまず。メンバースのて 
コンライフをおぐれますよラに最蓄のフ;口一をアイ-ツーよりお 


5 ました ユ ー t ^ な 


展示品処!分祭早い者勝ち 

(； piS ^ CZ-BlSCBK 


颗 


CZ ■己 Q3DBK 


定価+3%= ¥扣7,324 



あなた 
おミが 
夕、ジタ 


がお娜 


シャープ販売コンテスト•パソコン部門最高峰貸 i 

シャづ■堀ち嫌請肅沪—ル •' { 


X 郎邮〇プ□ショップ镇巧店) 
ならではのを画ですグ 






アイ‘ツー1ロシ1^ーフクランドフェア‘90 OSAKA スタシアム 
じるがのご来場頂きましで、誠じありがとラごさいました。 
アイ.ツーサンクスフェア Pa け？ち只今を画中でずので、をラ 
ご期待// 


を 




綺（ 

X 閒邮〇ューザーみんな集まれ/ 
SX - WIND 0 W (7 S 勉巧を？を 
開值しま一•す0 


参加ご希望のちは、お円切手同封のラえ、お名前•ご住 
巧 ‘ TEL •生年月日•お持ちの X 即邮日の型番を書いて、 
アイ•ツー EXE CLU 己あてで、おくって下さい。 

日時、場所 etc ... ご連絡しまず.ツ 


場巧はと0あえず大阪でず/ 




X 6 日日日日ユーザーとつておさのクッ Xff 
X 目日邮日ユーザーのステータスシンボル。 

新ヴッズちクループインしてまずまず充実。 

キミのパソコンライフが一層楽しくなるコレクションだ/ 
X 即邮日オリジナルク、ッズをまだ持っていないキミ 
アイ•、ツーからお届けしちやいマス/ 



ミ泣し夕- EXBES^F 
….‘巧がが ggjo 日円 


.クタイピン 
3.000円（おみ!’ 



1 


巧驳ポ 

巧2.000巧。巧’. 
商の日なおジヤープペン 



X 现邮 

^關加日巧疫ジャープぺ二 
み虫证话ぶ rooo 円 （ お利） 
目!!まし時れ X 6 B 0 邮を 
ぶ00円 许ホ-— 

つがり )/ 

，ウスパッド 


I 邮ェシ□シ•ウスールポケット 


スハック 

!。円 I お1 


么即邮 [. _ 

巧^を巧1も^円（おか 


X6 邮邮牛 J 乂一 ! 川 、— 
巧々怖な巧麻う罵む 


ホ:*化が3.000円（おか’ X 6 B 0 J 
うホ端 


* ( 

ミ 


X 日日日日0ステッカー 
ホ JM 面な 500円（がみで’ 


の於ーラー BOX 
泣巧6.500円（おを 1 


ク，、/ 

'麵ゾ 

啤，科ろ遍 IP , ぉか; ''い EXPFRT PR 日巧巧（小） 

赢ィ【夕 13 HI 

" -がぶ細巧_ 3朋円（お圳) 

暫 mr - PA。swr ン1 

XBo コルでポ-ル ，け 地也が〇砸化 

も ioo 円（お別 > 

■ V .’I ボ-チ^^ 

巧ん000助抬抓— 


PRO STAF とシャンパー 

が別、 


通筋専用 T 巨し 


年中巧イ木 



ま巧厘 
牛并 
I 地下な 
ミち巧 


■営業時間 AM 11: 邮〜 PM 8:0 日 


Iniormatmn 乂 i ^ ntcrfa ぐ。 

邮-的卜邮00国鱗タタ巧口 


大阪店/〒日42大阪市中央区難敵千曰前1日-18 






















































♦ Y.S . 

•ポピュラス . 

参スーパーハングオン 

•エージャックス . 

•サ ーク . 

♦ァールタイブ . 

•アナログ JOYSTIC XE -1 AP 


■ま:価合計 .¥445.100 ►お特価 ¥353.000 


★この表がかの組合せ、お支 
仏い方法もご自由にできます。 
★XI シリーズ用、 X 68000 シリ 
—ズ用を社ハードディスク/プ 
リンタ等の周ぶ機器を大特価 
じてがホしてわります。 

巧 話じてわ巧合せください。 


参おを巧 i 

. ，台 # ei,wo 

SffitlUO ! 

\ ■ .脚ぶ y 

1 m ' 

i o の w 麵い化 

^ . 巧さ IRV 

■ o 

f 明度が 

»±»rio 

«&轰推 s- 

M 巧'谷が k 1 

f ' け。 巧 ミ 

y \l 

_) 

1 

けな V 


X 日日 □□□ シリーズ用周辺機器•ソフトオール超特価.グ 

型を 

品 を 

\定価 y 

ソフトる 

品 を 

\ を価 y 

CZ-6VTI 

カラーイメージユニット 

\¥ 69.800/ 

MUSIC PRO 

MIDI 版 

\¥ 28.800/ 

CZ-8NS1 

カラーイメージスキャナ 

Vi 88.00(/ 

MUSIC PRO-68K 

マウスを巧った楽 巧ワー ブロ 

W 18.800 

CZ-6BE1A 

IMBJ •段: RAM ボード 

\ 38.( 

碑 

SOUND PRO-68K 

サウンドエディタ 

\ 。.咕 

CZ-6BE2 

2M 日增投 RAM ポード 

¥\79.{ 

m 

Sampling PRO-68K 

AD PCM サンプリングエディタ 

^17 •抑 

CZ-6BE4 

4MBi •化 RAM ポード 

¥ が夕卵 

Musicstudio PRO-68K V.1.1 

MIDI マルチレコーデイングソフト 

¥\28.600 

CZ-8NM3 

マウス•トラックボール 

¥ \9 名 00 

OS-9/X 68000 

•7 ルチタスクオペレーテ f ングシステム 

¥ お 

画 0 

BF-68PRO 

« 巧 化 CRT フィルター 

¥ T 

)00 

PRO-68K 

サイバーノート 


1.800 

C2-6BP1 

巧な巧 » ブロセッサ•ボード 

¥ A 

ioF 

PRO-68K 

ステーシヨナリー 

¥ U 

po 

CZ-8NT1 

トラックボール 

¥悼 


Ccompiler PRO-68K 

ソフト閒発セット 

¥ 户 9 

矿 

CZ-6BM1 

MIDI ポード 

¥/26.{ 


Human 68K Ver2.0 

拥 宛‘ンールセット 

¥/ 9 


CZ-8NJ2 

アナログスティック 

y 23.8dt) 

PK)-6BE1-A 

巧 巧 IMRAM 

M 25.0 ホ 

CZ-6TU 

パソコンチユーナ 

六33.10、 

P に- 6BE2-2M 

2MRAM 

卜 50.00 、 

SX-68M 

MIDII/F 

¥ 19.800 \ 

P に- 6BE4-4M 

4MRAM 

/¥ 88.000\ 

XE-1AP 

アナログジョイバッド 

/¥ 13.800 ' 

MU1-B 

MIDI I/F+ ソフト 

/ ¥ 39.800 \ 


▲上紀かビジネスソフト、おおゲームソフト豊宙じ在庫あります。《を料はご注文の瞭お巧合せください。参お特価版巧中/ 


パソコン専門ショップ 





•渋を店 S 03—486-6541( 代） 
•横お店 S 045-314— 4777(代 ） i 


3-486-65 の ㈱ 


お谷/横淚 


〒150:まま都巧を区巧を 1-12-7 =巧巧をヒル 
お么お巧:=井が巧ミまを宮益巧支店 ( fNo 胡00340 


221: 横 お巧神ま川区«屋巧 2-12-8 第1ま設ビル 
込を巧:=巧 法 斤 横 おが前支な® N 0310852 




均等仏い 

|¥ 5,920 X 48 回 

¥ 7.40 Ox 说回 

¥12,100x24 回 

ポー ナス 

|¥30,000 x 8 回 

¥ 40.000 X 6 回 

¥ 50.000 X 4 回 


XSB8000 NEW PROS 

ゲーマーズセット。遊んで暮らせる SET / 

• PROD CZ 653 C .¥285.000 

•0.31 CRT CZ 603 D . ¥ 84,800 

♦グラナダ . ¥ 8.800 


均等私い 

¥ 7.320 x 48151 

¥10.100x3 徊 

¥13.450 "4 回 

ボーナス 

¥ 42.000 X 8 回 

¥ 50.000 X 徊 

¥80.000 X 4 回 


※本広告に掲載の全商品の価格じついて消爱税 
は含まれておりません。 


1 均等払い 1 

¥ 7.680 X 48 回 

¥ 9.8 卵 X 36 回 

¥14.370 "4 回 

1 ボーナス 1 

なし 

なし 

なし 


XS 68000 SUPER 阻 


♦ CZ -623 C-TN (本体•キーボード•マウス） . ¥498,000 

♦ CZ -613 D-TN (カラ-ディスプレイ） . ¥135,000 

• CZ -6 BP 1. ¥ 79.800 

■を価含か . ¥712,800 


クリエイト特価 


均等払い 

¥ 9,970 X48 回 

¥12.840x36 国 

¥18,660x24 回 

ボーナス 

なし 

なし 

なし 


忍巨 8000 NEW EXPERTE 

ミュージシャンセツ ho これち TM ネツ h ワークだよ〜7 


• CZ -603 C . ¥338,000 

• CZ -605 D . ¥115,000 

• MU 1. 巳 ( MIDI ボード&ソフト） . ¥ 39.800 

• CM 32 L . ¥ 69.000 

♦グラナダ . ¥ 8.800 

参 JOY カード . ¥ 1,800 


■を価合計 .¥572.400 ►超特価¥化8,000 



k MiiH H 


当社は XB 日000の販売認定店で东 

どんなことでも劳なしてご相談ください。 


XXBBOOOnewproe XKB8000 new expert 忍巨 SOOO 巨 xp 巨 rth 陋 

♦ CZ -653 C (本が) . ¥ 285,000 • CZ -603 C (本体) . ¥ 338.000 #02-613 C (本体) . ¥ 448.000 


♦ CZ -603 D け ラーデ f スブレイ) . ¥ 84.800 

♦おがきなゲームソフト1本 . ¥ 7,卵0 


■を価合計 • 


•¥377.600 


クリエイト特価 


I CZ -613 D (カラーテ V スプレイテレビ).. 

• CZ -8 NJ 2. 

>おがきなダームソフ N 本- 


•¥135.000 
•¥ 23.800 
•¥ 9.卵0 


• CZ -604 D (カラーディスプレイ).. 
•お好きなゲームソフト1本…. 


•¥ 94.800 
•¥ 9.800 


■定価合れ…… 

クリエイト特価 


•¥506.600 


■を価合計 • 


•¥552.600 


クリエイト特価 



ビック サ マーセール開 お中/ • 


営業時巧(定休日►渋を巧:日曜•祭日/横浜巧:水曜) 

AM1 日 :□ 日〜戶 M7: □日 


0 0 0 0 0 0 0 

7 8 8 8 8 8 8 

8 9 8 8 8 7 3 

yr yr yr yr yp 


ク UHVh 特巧 












































































































































X68000 全機種巧! 3 描え大特■トル 


[. に 

9月初旬帶曆舗 fTW シ/惊王議麵 


MBIT 

アイピ卜電テ柿ぶ含な 


@ 


ビデオポー ド CZ -6 BV 1 

¥21.{KKH 特価 


X 郎邮日に装«して、コンビュータ圃がをビデオ巧ちとしで取 
り出せま衣巧用モニターがなくても、液晶ヒジョンや大型テ 
レビのビデオ入力親子につないで、コンピュータのグームな 
どか楽しめまず。 


SHARP 

CZ -612 C (本休） 

「 プラス (ディスプレイ) 組させ-! 

CZ -603 D 特価 ¥358.000 

CZ -602 D 特価 ¥373.000 

CZ -611 D 特価 ¥383,000 

CZ -613 D 特価 ¥399.000 


XSBBOOO 

CZ -602 C (本術 

「プラス (ディスブレイ) 組合せ-! 
CZ -603 D 特価 ¥287,000 
CZ -602 D 特価 ¥302.000 
CZ -611 D 特価 ¥3 じ. 000 

CZ -613 D 特価 ¥337.000 

CZ -652 C (本体） 

ブラス (ティスプレイ) 組合せ- 

CZ -603 D 特価 ¥255,000 

CZ -602 D 特価 ¥268.000 

CZ -611 D 特価 ¥280,000 

CZ -612 D 特価 ¥295 .日 00 

CZ -603 C (本体） 

「プラス (ディスプレイ) がさせ] 
CZ -603 D 特価 ¥300.000 
CZ -602 D 特価 ¥313, 邮〇 
CZ -611 D 特価 ¥323.000 
CZ -613 D 特価 ¥343, 邮〇 

CZ -653 C 本が） 

「プラス (ディスフレイ) 組合せ 
CZ -603 D 特価 ¥287.000 

CZ -602 D 特価 ¥298,000 

CZ -611 D お佩 ¥31 0.000 

CZ -612 D 特価 ¥327,000 

CZ -623 C (本体） 

P プラス (ディスブレイ) 組合せ-! 
CZ -602 D 特価 ¥473,000 
CZ -603 D 特価 ¥458,000 
CZ -61 1 特価 ¥483,000 

CZ -21 HD 特価 ¥513, 邮〇 





SHARP 

AX286N-H2 All in Note 



SHARP 

AX 2 BBL - F ラップトップ 



NEC 


PC - 卵 Oin NOTE 

定価 ¥24 日.邮 ( H 特価 ¥1 卵，000 



TOSHIBA 


J 3100 SS DynaBook 

定価 ¥19 日加 ( H 巧価 ¥1 49,000 



《シャープ周辺機器(拖張、プリンター他)も常時取り扱っておりまず >> 


] アイヒット推奨ディスプレイ [ 


•シャーブ CU - I 4 FD 
カラーデイスフ’レイ 
0.31 チルト付 A /24 
を価 ¥74,800 : 
特価¥43.卵0 


識 


♦シャーブ CZ -860 D，BK 
カラーディスブレイ 
0.31 ナルト付 A/D 15/24 
定価 ¥92,200-: 

特価¥閱.卵0 


过 


参互巧 XC - M 98 CII 
(14 搜アナロク） 

ドットビッチ 0.28 
を細 ¥ 107,000 *. 

お価¥的,卵0 

XG -1498 Gn 巧応/、•ソコン概ネ里： PC -980 I シリープ 
I^Wrf / PC -286 V リ—ズ / PC - 386シリ—ブ / PC -880 1 

邀^ パ-ズ 

ぶ S ミ （上紀化池こはが巧の巧統ヶーカレで、沿が T 船 

♦シヤープ CZ -830 D.BK • 
(14 型） 1 

2モードオートスキヤン方ホ ^ 
(アナログ/デジタル） 1 

を価¥ 98,000.寸 1 

特価¥54.卵0巧围巧ヴ 


CZ -830 D 巧応 /、•ソコン檐巧： CZ 880 C /88 1 G 。 X 1/ 
TURBO ンリーズ。ケーカレは木がれ *5^ ま用。 

NEC PC -8801.9801 シリーズ ( XA . XL のみ不可） 
MZ 700/1 500/2000/2200/2500をソ J — ズ（お獎 
品シャーブ 8 D 8 K ) っ 

♦シヤーブ GZ -60 の-日 K 
(15 型アナログ TV /3 モード 
オートスキヤン） 

速:価¥99,800•た 
特価 ¥75,000 

CZ -602 D 巧応バソコン獲巧：ぷ X 1シリース7夕 

XI turbo シリ—ブ /XI yurboZ シリ-プ八68000 

1シリ-ス VPC 880 I シリーズ/ PC -9801 シリ-文/ 

' PC -286 シリ—ズ 

‘ 。 （ホは巧統ヶーブル AN 1506が化巧です） 


•シャープ CZ -603 D - GY-BK 
(15 型カラーデイスプレイ） 
ドットピッチ 3.9 
を価¥84,800‘シ 
特価 




CZ -603 D 巧応バソコン後巧：余 XI シリーズ /* 
XI turbo シリーズ /XI yurboZ シリーズ/ X 68000 
シリーズ / PC 880 1シリーズ/ PC - 9801シリーズ/ 
PC -286 シリーズ 

{淡は接巧ケーブル AN 1506が也、まです） 


] 各種特選•特価品/ [ 


パソコンファクス MZ -1 V 日1 

‘‘プリンタ•〕片クァクス" 

1 台 3 巧のスクレモノ 

限定セット販売/ / 

参 MZ 巧セット【インタ-フエ-スソフト巧） 

なホ価倍含れ¥ 342 .卵0時¥12日，000 

• MZ -1 V 日1(本体のみ） 

巧ホ 価 化合れ ¥278.000*¥ 9日，日邮 


《巧靡巧0> 

PC-E 朗 0 PJ 

ま価 V 28.800吟大巧価 
SHARP ボケコンを獲な、 

Z 孤ポード他、太平洋工業製おを後種の化 
参戶 C - 巨500戶 J ご謂入の方に、ちれなく 
•■ポクつンジャーナル巧別ち J 巧巧至/ 


r — 


POSO 化るかぐ月ンをつなぐインタ-•九づケ-ブル 

CE -14 DT ¥8,800 


八ガキち OK、New MZ フ U ンタ 

漢字カラー巧お写プリンタ 

シヤづ MZ-1P 巧 




<24 X 24ドット, g ず参7をカラー • 

度ず30ず/げ巧选がず • M 之 I 戶 
17とフルコンパチ参 5 KB のハツ/、 _ AAA 

メモリけ巧パソコン: M な000、巧華■価な¥59.800 

2500、巧00、6500シリーズ. XI シリ 
ーズ. X 68000 シリーズ化！ 


►特価¥巧，邮〇 


キヤノン LASER SHOT プリンター 

し BP - 目4邮 S 

を価¥4卵.0抓’ 特価/ 

キヤノン LASER SHOT ブ U ンタ ~ 

し BP - A 404 S 一一 

ま価¥265.孤0 棚/ 




<300/12000户 S そ2 ■ぶ巧巧応 
モデム巧化参裔声入化力端子 
が•ダイヤルパルス/ブッシュポ 
タン利に••ブッシュポタン巧 W ♦巧 
化•シャーブ乎 W 、 CCITT V 巧 
bisiAfg ホ W サボーい 


巧り> ♦〜 

み 


縣価格 ¥ 98,000 -f ¥29,800 


に TOWNS お買い得セット 



1.TOWNS-1 
を FMT-M 巨 （ 1M 》 

一 FMD - FD 301 woa ： 

し FMT-KB10I >-1■ 一、 
FMT-DP531, 。， - ♦ 一 7W W 8 日 • 白 00 
6. TOWNS-OS VU し呂〇 ¥ 80.000 

定麵 6 れ ¥555.800 


[338.000 
: 60.000 
[ 88.000 
; 20.000 


大特価/¥胡己，000 


<全商品新品完全保疆巧> ■シャーブポケコンを巧お賜を中。カタ□义特価まご請ホくださいげ 72 ) 


ぐ0426-45 -3001 一3 

FAX.0426-44-6002 

•営業時間/10:00〜19:00•電話受巧/20:00迄巧♦定が日/日曜日(祭日営業) 


SHARP SUPER XEX SHOP 


アイピ卜電テホホ巧含を t 干 I お東京都八王子市化野町日即-日 


上おの広告巧品はすべて店頭販売 



を通巧 
国價売 

化海ぶから沖视まで 


★ ぶ辛;}■はごが.义の除にわが I いなわせドさい。 

★化♦たの I 商,描は、すべて巧が,、化趾巧イ . j •きです。 
★化かの I 巧,思は兜か巧忠してありま卞力 t 、 ご化文の巧 
は、化 I かの麻姑.の.1-.、がおががまたは、おり1お込で 
わ中し化みドをし、。をが,宫，クレジットでもがよってわります。 
★ わ中し込みののは化ず化化ホりを I リ!北してドクい,， 
★がが,、が,切れの節はごがれドご•い。 


密±銀行八至子支店（普）17日2己05 


参本誌発売時じは上記価格よりさらにわポめやすい価格じ巧更されている場合があります> 参このに告の商品じはすべて送料•消致税は含まれてわりません。 























































































































夢と自由で一緒にやりましよラ 

従業員とし、ラより仲間として 

線、漏賣讀 


CG アーティス h •ネツ S ワーク 
i a m=NET 

CG 作品募集中!！ 


C 言語、アセンブラできる方大歓迎 
業務ソフ S •ケーム ‘ CG 等 
経験により優遇しまず 


システムブみック 1 ’ a m 
干593大販府婿市津义野化 3-33-18 
メイカレハウス205 

右記まで履歴書を送って下さい。 Phone .0722-64- 3770 


《広告半ぺージ》をしかしたら2が巧かをしれない卵年日月号〇かもかち〇 

月刊 

2 HD ディスクに入った XB 8000の 

もしら2枚が I だ'つたら こんどこをき^‘と l ' 

LISP 


90 年 9 月号 ( voi . 28 ) 
8 月 18 日発送 

鼓だつ/ 


芭藤 PI 


サビ 



わまえら剪:造プログラムにしてやる！ 

FINDR X 


でらつて、やつぱ夏だ力 > らをれなりのプログラム 
をの他、便利なツール、 PDD 、 ビープ音、読み物などを満載！ 

(なお、内をは一部を要されることがあります。ご了承下さい） 


をいでもってな濤の48曲組 

八ッ八の平巧律クラビーア巧集 

をれから 

納涼•八ージョンアップ- 
八ク巧り大を 

編集長祝一平からの御おが巧:一もど一も。9巧号は2が組のそ定なんでずが、な員旅巧があるしい、お益ち迫ってるしし、、 
だからぁ、イザとなったらくじけちやうかもしれなしう/3、っり」_ ______ 

販売方法は通信販売のみて’す。お申し込みの方法は左記の住所へ現を書留で 
定期購読日ヶ月分己，□日□円（沿•能込•郵送料サ-ビス） 

♦ 8 月巧日む降じをけせけたみは，原則として Vol .28 から発送します。斩たじ購読 
をホ望される方は，「斩規」と御明お下さい。 

♦が巧振替を御利用の巧をは口座番号「まま 5-362847 满開が作所 j でわ巧いいたします。 
製品のなお上，返品には応じられませんが,わ申し出があればま:期巧読を巧巧し巧金をわ度しします。 
(ごま意：バックナンバーのをけ付けは、定期賄読の方に限らせていたた•きます） 


満開製作所 

千171東京都豊島区要町 1-19-3 いさみビル 4 F 

TE し (03) 已己 4-92 曰 2/FAX.(03) 曰曰 4-3 目己巨 


電脳俱楽部 
編集部 


♦ 














A 辦 ESS 

XKZ 7 エミュレータ 


好評発売中 
定価 ¥ 日，日 □□ 



XI エ S ュレータは X 目邮邮上で XI シリーズのアプリケーションを実行ず 
るためのソフ h エ S ュレータでず。 XI のアプリケーションを完全にソフ h 
ウェアのみでエミュレートしているため、 XI 上での実行速度と比較して、 
平均3〜5倍程度おそくなりまずが、 X 郎邮日のマシン上に実現した仮想 XI 
マシンを楽しめまず。また、 XI と XB 即日日の相豆間でファイルを転送ずる 
ためのユーテイリテイと専用ケーブルが付属しまずので、 XI 上で作り上げ 
たソフ K の資産を X 郎日邮上に移行ずることち簡単にでさまず。 


XKU ェミュレータの機能 

♦ XI エミュレータは XI じ相当ずる機能をエミュレート。 

この仮想コンピュータには最大4つのドライブが仮想的に接続。 

• XI エミュレータからみたドライブは Human 郎 k のドライブ上にある 
ファイルで仮想的に実現。このファイルは XI 用の 5" 2□ディスクのイ 
メージをファイル起送ユーテイリテイでまるごと転送したもの。 


• X 1エミュレータで仮想的に実現した X 1は仮想ドライブから起動。 
このため仮想ドライブ用ファイルには、 XI を立ち上げるために必要な 
Hu 己 ASIC や CP / M などのシステムプログラ厶が必要。 

• XI エミュレータでは、 XI の持つ VRAM を含むメモリイメージや 
Z 邮 C P U を仮想的にソフ h ウェアで実現。 



Rr イスク耽を！ 

XI ディスク◄■► X 郎邮日 Human 6 日 k 近’2□ディスクイメージファイル） 

♦ XI エミュレータでは Human 郎 k 上のディスクイ —ジファイルを仮 
想ドライブとして使用。 

りァィルお送1 

XI BASIC : CP / M 4-^ X 68000 HumanBBk 

• XI で作ったプログラム邑データを X 郎邮日上で使用。 

※巧属の専巧ケーブルを XI と XB 邮日日に接続してファイルを転送しまず。 



据幻ェミュレータ Q を A 

Q . ファイル転送のために別途 RS - 巧 2 C ケーブルを買わないといけない 
のでずか？ 

A . 専用のケーブルが付属しまずのでその必要はありません。 

Q . XIBASIC のプログラムを X 日邮邮上の X - 巨 ASIC で使えまずか？ 
A . 通常のセーブではコードが違ラので使用でさませんが、アスキーセー 
ブしたファイルであれば X - BAS に上でそのままロード可能でず。 

Q . Turb □巳 ASIC で作成した住所録などの漢字を含んだデータがある 
のでずが X 6 邮日日上にファイル転送でさまずか？ 

A . XlTurb □も X 即日日日も漢字はシフト JIS 〕ー ドなのでファイルの 
輯送は可能でず。ただし、漢字 ROM を必要とずるをのはサポー S し 
ていません。 


Q . Turb 日用のソフトは動きまずか？ 

A . XI 用のみで Turb □専用のソフトは動さません。 

Q . ゲームは動さまずか？ 

A . 純粋に BAS にでかかれたものは動きまずが、プロテクトがかかったも 
のや直接八ードをアクたスずるよラな巿販のゲームは動さません。 

* タイ S ング等八ードウエアに化巧ずるよラなソフ h は、原理上実行でさない、をしくは 
正常に動イ乍しない場合があ0まずのでごを意ください。 

* 一部サポー h していない機能がありまず。 


な 1エミュレータ通信販売 I 購入希望として住所、氏名、電話番号をお知 
らせください。を文書をお送り致しまず。 



* この商品価なじは消’巧おは含まれておりません。 

幸 CP / M はデジタルリサーチ社の商巧です。 

文中のソフトウエアはるおの商標です。 

* 製品の仕様、名称は予告なくを更する場合もございますのであらかじめご了承ください。 


篇!アクセス 


〒101東京都千代田区神田神イ呆 BTI -64 
神保町協和ビル 7 F 
巧03 (233) 0200(イ巧 FAX . 03 (29 I ) 70 I 9 

















ままが巧奋区進ち巧 2 T 目巧お 4 号行 (03) 496-4141 
ままが巧田巿な巧 1 T 目39を16号な (0427)23- 1313 
束ま街 A 王子巧) Pn お号八王子すごう 7 FO (0426)26-4 M 1 
まま都立川巧幸田了4 - 39 -1巧の4巧） 36-4141 
巧木巿中巧3 - 4 - 3任 （0462)25-1548 
を山ホお巧2 - 1 - 10任 （0764)32-3133 
をパホ入ユ2 — 63任 (0762) 引-1130 
を；穴巿寺 i 也2 - 3な (0762)47 -巧24 

を古屋巧や区大巧 4 T 目 2-48 任 (052)262-1 141 


、夕ータキットのお巧めは J 这 P 各店でどうぞ。 


テクノランド大化ホ;良速区日本な日 T 目6番7号任 (06) 634-1211 疎井寺店 

メディアラント大化おぶ速区日本巧 5 T 目8番26号狂 (06) 634-1511 岸ホロ田店 

コスモランド大おホ,良速区おぶ中 2 T 目1番17号な (06) 634-3111 さんのみがはん！1 

U . S.LAND 大お巧,良を区日本化 4 T 目9を巧号な (06) 634-141’ 西き店 

ヒシネスラント大巧ホ化区巧田 1-1-3 大巧おを卖3ヒル B こで t (06) 348-1881 姫路店 

怕田巧大防巧化区小の巧巧い10任の 6) 362-1141 を都寺巧店 

高糊.店离概ホ高概巧11番16号狂(日 726)85- じじ ま都近鉄店 

くすは巧化方巿楠棄巧国町15番2号な(日720巧 6-8181 ネ□歌山店 

千里中央巧 8中巧お干まま即 -3 SENCHUPAL ? ま街 4 F 任 （06) 334-4141 ま良1はん館 

巧まを田店を愧巧大姻巧24 -10な (0726)93- 7521 が山インタ—店 

巧屋川店巧屋川ホな巧4 — 200(0720)34- 1166 脂本店 


巧井寺ホ岡2下目1お33号な (0729)38-21 11 
岸が田ホ主生町2451- 3任 (0724)37- 1021 
巧戸巿中央区八帷涵 3-2- 16な (078)231-2 川 
を庵県西宮ホ河原巧 5- im (0798)71-1171 
をな巧ま淫末1了巨1をを友生をおな巧ビル 1 Ftt (0792)22-1221 
ま辄巧下ま区寺巧る仏ホがルち美ミ目之巧54低 (075) 341 -3571 
まがホ下を区島え涵 t る下ルをを小巧巧 7 C 2 石 f (075)341-5769 
ネロ歌山巿元寺町4 T 目4お化行 (0 口 4)28- 1441 
ま良ホ三を巧478 - I な (0742)27- 1111 
大巧那山ホ巧田693 -1巧 (0743 日) 9-2 の1 
辦木巧手お本町4 - l?a (096) 369- 7800 



パソコソワープロ通信ネットワークサービス- 


J & P 類剛眉 


S に探訪 part 3 


KI 側凹同絶資識◎島 


(ジャンプ〕—ド: NATURAL ) 


51 なのがを姊 



巧庫県は六甲山の山の中で、ホ タル • ミーテインブをやりました。 
ホタルを巧めて見る人をあつて、雨の中のたつた2匹のホタルに 
みんな感動しました。そのあとルさな水溜まりでイモ U の親子や 
スタ7ジヤクシやヒルやミズス7シと遊びました。真つ暗闇の山 
中で懐中電口片手にイモ IJ をおつかけるいい歳をした人夕のよラ 
すじ、はじめて参加した若い人たちガ呆れていました。 


imM 「化鳥風此 


NATURAL SPACE の‘、： I: 仇け削 W を述かに 
心盛粒!えた広いが野で編化されています。就んでみたい 
がよ、 SIG までどうそ;そうして'ぶじ入ったらみで M 人になってく 
ださい。 


31世紀は■■自おの世紀 j / 

あつまれナチユラリスト【大自お探巧燃 


今ほど自然を痛めつけている時代はないなあといラのが実感。でち、 
自然大好さのワタシたちは嘆いてばかりではありません。牛乳パック 
を材料に 手 S きの八ガキを作る 人に にメンバーに送られた八ガキ 
はずこし分厚くてザラザラしていましたが、地球への愛情がいっぱし、 
の、ずごく感動的なちのでした。)、 休みのたびに水辺の烏を觀にいく 
人、資源のリサイクルに巧りがむ人 •…メンバーの一人ひとりが身近 
なところや、あるいは個人の力ではどラしようちないほどデジカイ問 
題に、コ、ツコツと取り組んでいまず。 SIG のボードでは、 自がを絵で語 
るために作った r 丫 UKI 画像通信システム J による美しい画像通信が 
自慢でず。(現在、 X 郎日日日と9日シリーズでデータ互換できまず>) 


厂 その他楽しい乂ニューがまだまだいつぱい/- 

★ J &尸ならではのノ V ノコン’家電製品 

の会員割引をある ON LINE SHOPPING 。 

★ J & P だから強い.ツバソコン情報をはじめとする 
役に立つ DATA BASE 。 

★みんなでおしやべり オンライン h —ク （ CHAT 傲能)〇 
★地域別•テー7別ボードで充実の BBS (巧子掲示おん 
★ビジユアんデータち)ばつち〇を受但できる X - MODEM 。 


JSP HOT LINE へのご入会はスタータキッ K で。 

お巧めは、下記のお店〜。又は現金書留じ 
て、¥3.日00+料0(消資お3%)二 ¥3. 090を 
事務局までおを0下さい。 

すぐにスタータキッ S をお送0します。 

+ BB , ム^. 〒日日6大阪市ミ良速 E 曰ホ橋 S 卜目 -5 上が電機がすをネ ： t 

ム r 用い口むせは J 邑 P hot LINE 事務局宛 TE し（日目)目32-巧21 



店店店店ぶぶぶぶ芯 
を川料山 W 化須 






















SHARP 


New-Life People 


ADVANCED 

-先駆の‘‘之’’アビりティがパソコンクリェイターを魅了する。一 

TURBO 


ぶ空り若心 化7 之 m 


パーソナルコンピュータ牛キーボード+マウス CZ -888 C - BK 福ホ価格169,800円け兒別） 


14型カラーデ イス ブレイテレビ_ CZ -860 D - 日 K 標辈価格_92,200円けを別） 


CZ -6 ST 1- B 標単価格 5,800円（悦別） 


クリエイテイブマインドを刺激ずる AV 機能 テレビ、ビデオ、ビデオディ 
スクなどの映像を最大4,096色のリアルな画像で瞬時にグラフィック画面に取 
り込めるカラー画像デジタイズ機能を標準装備。4段階の量子化取り込み、42 
通りのモザイク取り込みなど多彩なトリック取り込み処理もサボート〇さらにクロマ 
キー合成、インターレーススーパーインポーズ、4,096色対応デジタルテロッパ機 
自!、ステレオ FM 音源…先駆の AV 機能がアートワークの領域をさらに拖げます。 


AV 指向の高水準べーシック Z - BAS に搭載 多色グラフィック、 力 

ラー画像処理、ステレオ FM 音源、バンクメモリ対応など、夕ーボ Z シリーズが 
本来もつクリエイティブな機能をスレサポート。また豊富な画面モードで多色を 
駆使するときじ便ネリなグラフィック用関数 （ HSV ， RGB , HALF , CDOWN , 
CUP ) も装備。さらに FM 音源制御用ステートメントとして X 68000 と命令コン 
パチの化張 MML の採用じよリスムーズな8音同時演奏を実現しています。 


• メインメモリに 8 K バイト標準装備、 Z - BASIC で最大 576 K バイトまでサポート • IM バイトの5インチフロッピーディスクドライブ2基搭載* JIS 第1/第2水準準拠漢字、「システム. 
ユーザーき辛省」を標準装備した高度な日本語化巧機能•ニューデザインのマウス標準装備 • XI ターボシリーズの豊富なソフト資産が活用できるコンパチカレ設計•ブリンタ、 
RS -232 C など豊富なインターフェイスを装備•ドットピッチ 0.39 mm のハイコントラストブラウン管、 15 kHz /24 l<Hz のデュアルスキャンちホ探用14型カラーディスプレイテレビ（别売）。 



麻'''' 


A ** + •わ問い合わせは…シャ—プ ㈱ 巧子機器#柴本部システムおお営樂部干545大阪巿阿倍巧区長化巧22を22をな (06)62 M 22 U 大代衣） 
"マ 巧子お器事#本部ぶ晶映なシステム#業が第2商品企画部〒化2東京都巧お区巿を八巧巧8番地巧 (03)260-1 161(大代巧） 

T 4910217909569雑誌02179 -9 















